Sıradaki İlk Boş Satıra Yapıştır Makrosu Hakkında Yardım...

[smaeler]

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)

 

[Astalavista58]

Merhaba, eğer yanlış anlamadıysam,
dolu = Cells(Rows.Count, "A").End(3).Row + 1
bu satırdaki "A" yerine "C" yazmak yeterli olacaktır.

 

[Necdet]

Merhaba,

dolu = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("Sayfa1").Range("G3:K3").Copy Sheets("Sayfa1").Range("A" & dolu)

 

[smaeler]

Merhaba, eğer yanlış anlamadıysam,
dolu = Cells(Rows.Count, "A").End(3).Row + 1
bu satırdaki "A" yerine "C" yazmak yeterli olacaktır.

Bunu evdeki pc de denedim olmamıştı ancak ofisteki pc de oldu. Bunun nedeni nedir bilmiyorum ama işimi gördü. Teşekkür ederim.