Aktar ve Sil

Ahmet Sami

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
397
Excel Vers. ve Dili
microsoft office 2007-2010-2013-2019-2021
İ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
 

Ahmet Sami

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
397
Excel Vers. ve Dili
microsoft office 2007-2010-2013-2019-2021
Korhan bey çok teşekkür ederim sağolun
 
Üst