Boş olan İlksatıra kopyalama

[osan003]

Boş olan Ýlksatıra kopyalama

Çalıştığım Excel dosyasında Sayfa1'de bulunan tablodaki bir satırı veya bazı hücreleri Sayfa2'deki tablodaki ilk boş satıra bir düğmeye atanmış makro ile ve değerleri ile kopyalamak istiyorum.Sayfa2 de daha önce kopyalanmış satırlar gerek görüldüğünde el ile silinmektedir,fakat kopyalama işleme her defasında boş olan ilk satıra yapılacak.
Selamlar.

 

[bedersu]

Merhaba,

Aşağıdaki kodlar işinizi görecektir;

Sub kopyala()
a = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A:A"))
i = 1

If Sheets("Sayfa2").Cells(i, 1) <> "" Then
Do Until Sheets("Sayfa2").Cells(i, 1) = ""
i = i + 1
Loop
ActiveCell.Copy

Sheets("Sayfa2").Cells(i, 1).PasteSpecial
End If
Application.CutCopyMode = False

End Sub

 

[osan003]

Malesef yukarda yazılı makroyu bir türlü çalıştıramadım.Küçük bir döküman eklemek mümkünmü acaba

 

[bedersu]

Döküman şu an için eklenemiyor ama ben biraz daha açıklayım isterseniz.Yukarıdaki kodlar ; eğer sayfa2'deki A1 hücresi boşsa çalışmaz.Tabi bunu iptal edebilirsiniz isterseniz.
Sayfa 1'de istediğiniz bir hücreyi tıklayın.Yukarıdaki kodları da bir makroya , oradan da bir butona atayın.Kodu çalıştırdığınızda,Sayfa2'deki A sütununda bir arama yapacak ve seçili hücredeki değeri A sütunundaki ilk boş hücreye atacak.Butona basmaya devam ettkçe de bu sürecek.
Sizin istediğiniz de bu değil mi?