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
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