H Sütununa Göre Sayfalara Ayırma

Loop While Not BUL Is Nothing And BUL.Address <> Adres bu satırdaki Not BUL Is Nothing And Yazısını silerek denermisin hocam. Olmazsa örnek bir dosya yüklemeniz şart görünüyor.

Sonuç aynı ESC yapmadan döngü sonlanmıyor. Akşam detaylı bir örnek dosya hazırladım. Teşekkürler.
Acep 60 saniye sonra kod ile esc tuşuna bastırtabilirmiyiz.

Merhaba Tahsin Bey,

Excelde sayfa silme olayları çok hızlıdır fakat ekleme olayı daha yavaştır.

Anladığım kadarıyla kodlar her seferinde sayfaları silip yeniden oluşturuyor. Bu da zaman kaybına yol açıyor. Bu işlem "H" sütunundaki bezersiz veri sayısı ile alakalıdır. 3500 satırda benzersiz veri sayısı çoğalırsa süre daha da artacaktır.

Benim tavsiyem sayfaları bir kez oluşturun. Bu şekilde bir kez bekleme yapmış olursunuz. Daha sonra makro çalıştığında varolan stok sayfalarındaki eski bilgileri silip içine yeni güncel bilgileri aktarsın. Bu işlem size epey performans kazandıracaktır.

Bununla ilgili olarak aşağıdaki kodları deneyebilirsiniz.

Sn. korhan hocam; müthiş bir hız üstün bir performans. Sayfaları baştan oluşturması dağıtımın yapması 57 değişik sayfada 8,78 sn. var olan sayfalara dağıtımı ise sadece 0,98 sn. Allah sizden razı olsun,
Sayfalara dağıtım yaptıktan sonra benim image1 nesnesi tam c sütununa denk geliyor, burada ismin üzerine tıkladığımda dosyadan resim çekiyor, bu şekilde yazıcıya gönderirsem image1 nesnesinin kapladığı yer yazıcıdan çıktığı için altındaki hücre değerleri görünmüyor, Bunu sayfalara dağıtım yaparken c sütunu haricinde başka bir sutuna gelmesini sağlarsak bu sıkıntı olmayacak.
Ayrıca ilk çalıştırdığımda hata vermişti bu hatanın sayfalara ayırırken 31 karakter fazlısı olan servis adı
42 PENDİK - KARTAL - MALTEPE - KADIKÖY bunun - KADIKÖY kısmını sildiğimde normale döndü, hata vermedi, Sayfalara ayırmadan önce H sütunundaki 31 karakter fazlasını sildirebilir miyiz. Saygılar Hayırlı Bayramlar

Sn. Korhan Hocam sizleri yordum, ama çok güzel oldu, Allah Razı olsun hakkınızı helal edin.