makro ile aktarma mükerrersiz

  • Konuyu başlatan Konuyu başlatan berkbaba
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

berkbaba

Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Kod: 
If Not Intersect(Target, Range("b6:c50")) Is Nothing Then
Application.ScreenUpdating = False
Range("b6:c" & Cells(65536, 3).End(xlUp).Row).Copy
Sheets("sayfa1").Range("b" & Sheets("sayfa1").Cells(65536, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

Sayfanın b, c aralığında işlem yapıldığında sayfa1 b sütunundan itibaren yazıyor.
Ancak b ve c sütununda her işlem yaptığında da aktarıyor.
bu kodu
sayfa1 de aynı isim varsa aktarmasın, yoksa altına eklesin şeklinde nasıl düzeltebilirim?
 
Hücrelerdeki Değerlerden Veri Oluşturma
Başka Bilgisayardaki Bir Dosyadan Veri Çekme
Tarihe göre sırala Oylamaya göre sırala
Aslında paylaşmış olduğun kodda biraz mantıksızlık var gibi geldi, neye hizmet ettiğini yani ne amaçla yapıldığını bilmediğim için böyle düşünmüş olabilirim.

Paylaşmış olduğun kod yeni girilen değeri değilde her defasında sayfayı komple aktarıyor. Burada mantıklı görünen Sayfa1 de B ve C sütünunu her defasında silip yeninden yapıştırması gerekiyor.


VBA: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b6:c50")) Is Nothing Then
Application.ScreenUpdating = False: With Sheets("Sayfa1")
.Range("B6:C" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 2).ClearContents
Range("B6:C" & UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy .Range("B6")
Target.Select
End With: Application.CutCopyMode = False
End If
End Sub
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst