VBA - YAPIŞTIR BUTONU- SON BOŞ HÜCREYE YAPIŞTIRMA

[artdzy]

Merhabalar

Private Sub CommandButton1_Click()
Dim Yapistir As Range
Set Yapistir = Worksheets("VERI").Range("A2")
Paste Yapistir
End Sub

Kodu ile kopyalanan verinin A2 hücresinden itibaren yapıştırmasını saglıyorum fakat aynı sekilde baska bir yeriyi altına eklemek istediğimde yine doğal olarak A2 hüresine yapıştırmaktadır.
Bu formülü doluysa altındaki boş hücreye yapıştırması için nasıl revize etmeliyim.
Yardımcı olabilir misiniz?

 

[artdzy]

Sorunu çözdüm yardımcı olması adına yazıyorum

Private Sub CommandButton1_Click()
Range("A:A").End(xlDown).Offset(1, 0).Select 'en son satıra git
ActiveSheet.Paste 'yapıştır
Application.CutCopyMode = False 'kopyalanları iptal et
End Sub

 

[yanginci34]

Aşağıdaki gibi denermisiniz.

Private Sub CommandButton1_Click()
Dim Yapistir As Range
Dim dolu
dolu = Cells(Rows.Count, 1).End(3).Row
Set Yapistir = Worksheets("VERI").Range("A" & dolu + 1)
Paste Yapistir
End Sub

 

[artdzy]

Aşağıdaki gibi denermisiniz.

Private Sub CommandButton1_Click()
Dim Yapistir As Range
Dim dolu
dolu = Cells(Rows.Count, 1).End(3).Row
Set Yapistir = Worksheets("VERI").Range("A" & dolu + 1)
Paste Yapistir
End Sub

Çok teşekkürler daha düzgün çalıştı.

 

[yanginci34]

Rica ederim kolay gelsin