Aktar ve Sil

[Ahmet Sami]

İyi günler arkadaşlar elimde aşağıda ki gibi bir aktarma kodu var. AKTAR sayfasına aktarmada ve silmede bir sorun yok. Sizden istediğim yardım aktarma işleminde tüm sayfayı siliyor. Ben sadece C2:AE arasını silmesini istiyorum.

Private Sub CommandButton1_Click()
Dim SonSatir As Long
SonSatir = Cells(Rows.Count, "C").End(3).Row
Worksheets("AKTAR").Cells.Clear
Range("C2:AE" & SonSatir).Copy Worksheets("AKTAR").Range("C2")
End Sub

 

[Korhan Ayhan]

Bu satırı,

Worksheets("AKTAR").Cells.Clear

Aşağıdaki gibi değiştiririz.

Worksheets("AKTAR").Range("C2:AE" & Rows.Count).Clear

 

[Ahmet Sami]

Korhan bey çok teşekkür ederim sağolun