Merhaba Değerli Arkadaşlar...
......
Worksheets("Sayfa1").Range("G3:K3").Select
Selection.Copy
dolu = Cells(Rows.Count, "A").End(3).Row + 1
Set Yapistir = Worksheets("sayfa1").Range("A" & dolu)
Paste Yapistir
Range("K3").ClearContents
Else
End If
End Sub
Şeklinde G3:K3 aralığındaki veriyi alıp A:E aralığında ilk boş satıra yapıştırma Makrosu çalışıyor.
Bunun üzerinde bir değişiklik yapmak istiyorum. A Sütununa Eğer ve Düşeyara formülü uyguladım ve A sütunundaki hücreleri boş görmediği için kopyala yapıştır makrom bozuldu. Bu makroyu C sütununa göre uygulamak istiyorum.
Ancak Makro üzerinde C sütununa göre düzeltmeler yaptığımda da kopyaladığı G3:K3 aralığını C den başlayarak yapıştırıyor yine bozuluyor.
Kısacası Ben kopyaladığım veriyi C sütün hücresinin SIRADAKİ boş hücresine göre ve A sütunundan A:E sıradaki satır üzerine yapıştırmasını istiyorum.
Bu Mümkün müdür? Yardımlarınızı Bekliyorum. (umarım anlatabilmişimdir)
......
Worksheets("Sayfa1").Range("G3:K3").Select
Selection.Copy
dolu = Cells(Rows.Count, "A").End(3).Row + 1
Set Yapistir = Worksheets("sayfa1").Range("A" & dolu)
Paste Yapistir
Range("K3").ClearContents
Else
End If
End Sub
Şeklinde G3:K3 aralığındaki veriyi alıp A:E aralığında ilk boş satıra yapıştırma Makrosu çalışıyor.
Bunun üzerinde bir değişiklik yapmak istiyorum. A Sütununa Eğer ve Düşeyara formülü uyguladım ve A sütunundaki hücreleri boş görmediği için kopyala yapıştır makrom bozuldu. Bu makroyu C sütununa göre uygulamak istiyorum.
Ancak Makro üzerinde C sütununa göre düzeltmeler yaptığımda da kopyaladığı G3:K3 aralığını C den başlayarak yapıştırıyor yine bozuluyor.
Kısacası Ben kopyaladığım veriyi C sütün hücresinin SIRADAKİ boş hücresine göre ve A sütunundan A:E sıradaki satır üzerine yapıştırmasını istiyorum.
Bu Mümkün müdür? Yardımlarınızı Bekliyorum. (umarım anlatabilmişimdir)