Tablodaki bilgileri makbuza bastır

[sahika51]

Merhaba saygıdeğer excel ailesi.
1-Dosyadaki Bilgi sayfasına girişleri yapıyorum. Aktar dediğimde bilgilerin Muhasebe sayfasına aktarması çok uzun sürüyor. birinci sorunum bu. (Not: D sütunu boşsa o satırı aktarmaz)
2. Muhasebe sayfasına aktarılan kişilerin makbuzunun Baskı bölümündeki örneğe uygun olarak hepsinin basılması gerekiyor.(Not: A4 bir sayfada 2 makbuz var)

yardımlarınız için şimdiden teşekkür ederim

 

[ÖmerBey]

Merhaba,
Aktar kodlarınızın başına ve sonuna aşağıdaki satırları ilave ederseniz dosyanız nispeten hızlanacaktır.
Kodların başına:

Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False

Kodların sonuna:

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True

 

[sahika51]

Merhaba,
Aktar kodlarınızın başına ve sonuna aşağıdaki satırları ilave ederseniz dosyanız nispeten hızlanacaktır.
Kodların başına:

Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False

Kodların sonuna:

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True

Ömer bey sayenizde bir şey daha öğrendik teşekkür ederim.