bulentkars
Altın Üye
- Katılım
- 5 Ağustos 2005
- Mesajlar
- 671
- Excel Vers. ve Dili
- 2003 TR
- Altın Üyelik Bitiş Tarihi
- 23-03-2027
Arkadaşlar Merhaba,
Aşağıdaki birleştirilmiş makrolaları çalıştırdığımda aşağıdaki kod ta da göreceğiniz gibi
Dosyalara_Sayfalara_Ayır_BSM ' bu kod'
Dosyalara_Sayfalara_Ayır_Plasiyer ' bu kod'
2 kod düzgün sonuç vermiyor, ancak kodları bağımsız ayrı ayrı çalıştırdığımda doğru çalışıyor. nerede hata var acaba bulamadım. her iki kod sayfalara ayırma yapıyor yardımcı olabilirseniz seviniri.
Aşağıdaki birleştirilmiş makrolaları çalıştırdığımda aşağıdaki kod ta da göreceğiniz gibi
Dosyalara_Sayfalara_Ayır_BSM ' bu kod'
Dosyalara_Sayfalara_Ayır_Plasiyer ' bu kod'
2 kod düzgün sonuç vermiyor, ancak kodları bağımsız ayrı ayrı çalıştırdığımda doğru çalışıyor. nerede hata var acaba bulamadım. her iki kod sayfalara ayırma yapıyor yardımcı olabilirseniz seviniri.
Kod:
Sub Havale_Birlestir()
Application.ScreenUpdating = False
GECENZAMAN = Now()
Degistirme_Tarihine_Gore_Dosya_Sil
Sayfa_Goster
Dosyaları_AC
Gunluk_Gelen_Havale
Açık_Dosyaları_Kapat
Dosyalara_Sayfalara_Ayır_BSM ' bu kod'
Dosyalara_Sayfalara_Ayır_Plasiyer ' bu kod'
Sayfa_gizle
Dosya_Kontrol2
Range("A6:A19").Value = "Gönderme"
MsgBox "Güncellemede Geçen Süre : " & Format(Now() - GECENZAMAN, "hh:mm:ss") & Chr(13) & "İşleminiz Tamamlanmıştır, Şaşırmayınız...", vbInformation, Application.UserName
Application.ScreenUpdating = True
End Sub