Hücre seçerek kopyalama

[steppe]

Hücre seçerek ilgili sütunda ilk boş hücreden başlayarak,istenilen sayıda kopyalama.Örnek dosyada detaylı açıklama mevcut.Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Dim son As Long
 
    son = Cells(Rows.Count, "A").End(xlUp).Row + 1
 
    Selection.Copy Range("A" & son & ":A" & son + 29)
 
End Sub

.

 

[steppe]

Ömer Hocam,
Tam istediğim gibi olmuş,çok teşekkür ederim.