(23/11/2020, 23:14)hayalibey yazdı:

(23/11/2020, 22:29)feraz yazdı: Abey ben anlamıyorum son yolladığım kodları neden kullanmıyorsunuz.

Sub Siciller() ve Sub Listele() içinde alttaki kod var.
Başındaki tek tırnağı kaldırın.
Son yolladığım dosyaya baktım orda tırnak işareti yok.

'syfListe.Range("A1:Aj6").Clear

Hocam  liste ve Siciller  sayfasındaki tüm Qr kodları kaldırdım gizli A1de yıl  b1 de ay c1 de açıklama var bunları silmesin  ki A5 deki veri bozulmasın diye düşündüm

O zaman hangi hücreler yada satırlar silinecek?
Bağlantıda böyle göstermemiştiniz.Mesela ocak safasına başlık yani nasıl kopyalanacağına dair veriler ekleyinki örnek olarak ona göre bilelim.Boş satırları kopyalatıp duruyoruz