(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