Zafer Hocam sayfalara dağıt kodunda altlardaki gereksiz yavaşlatan Qrcode ve diğer kısımları koddan çıkardım.

Daha iyi sanki su an kod. Hızlı gibi

Ama şu sorun oluştu.
eğer Kontrol sayfası PQRST diye devam eden sütunların ikinci satırında veri yoksa Liste sayfalarında ve sicil 12 3 sayfasına kopyaladığı A5 AJ6 satırını almıyor ve çirkin bir görüntü oluşuyor
Liste ve sicil sayfalarına her surette A5 AJ6 yi kopyalasin ve A5 satırını düzgün kopyalasin

Tamam abey ya bu aklam yada yarın akşam bakarım.
Sorun değil ikinci satır olayı hallederiz.
Ayrıca bu konu çözülünce dizi yada recordset ile hızlandırırız.
Aklıma gelen copy yaptırıyoruz ve ne vatsa aktarıyoruz sadece değer ve numberformatları aktartabiliriz.Akşam zaman bulursam önce 2.satır olayına bakaruz.O da workshhetfunction.countA ile kontrol ettiririz diye düşünüyorum.

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

(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

(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

Hocam burdaki ekli resimdeki gibi
2020 yılı ocak ayı puantaji
Bu yazıyı combobox2 sayfasının olduğu aydan liste ve sicil sayfalarına değer olarak getirebilir isek A1 AJ6 arasını önce silip sonra
A5 AJ6 arasinı Kopyalayabilirz daha sade olur sanırsam

Hocam bir de düne göre kod biraz daha mı hızlanmış