Çözüldü Temizle Kodu Ekleme (Kaydet Kodu Mevcut)

[Sebahattinnn]

Option Explicit
Sub DikdörtgenKöşeleriYuvarlatılmış1_Tıkla()

    Dim Sz As Worksheet, son As Long
  
    Set Sz = Sheets("Genel Liste")
  
    son = Sz.Cells(Rows.Count, "B").End(xlUp).Row + 1
  
    Sz.Cells(son, "A") = son - 1
    Range("A2:Q2").Copy Sz.Cells(son, "B")

End Sub

Bu kod kayıt yapıyor, kaydettimi tereddütte kalıyorum, kesin olsun diye devamına temizle kodu eklemek istiyorum ama yapamadım, yardımcı olurmusunuz?

 

[Ömer]

Merhaba,

Sorunuz net değil. Anladığım kadarıyla:

End Sub satırından önce aşağıdaki satırı ilave ederek deneyiniz.

Range("A2:Q2").ClearContents

.

 

[Sebahattinnn]

Çok sağolun Ömer Hocam, anlatamımışım ama doğru anlamışsınız. Mükemelsiniz. Sorunsuz çalışıyor.