+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak (/konu-sablonu-belirlenen-sayfalara-kopyalama-yontemi-ile-sartli-dagitmak.html)
RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - hayalibey - 23/11/2020
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
RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - feraz - 23/11/2020
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.
Re: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - feraz - 23/11/2020
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").ClearRE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - hayalibey - 23/11/2020
(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
RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - feraz - 23/11/2020
(23/11/2020, 23:14)hayalibey yazdı:O zaman hangi hücreler yada satırlar silinecek?(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
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
RE: Şablonu Belirlenen Sayfalara Kopyalama Yöntemi İle Şartlı Dağıtmak - hayalibey - 23/11/2020
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ış