bulentkars
Yeni Üye
- Katılım
- 30 May 2022
- Mesajlar
- 605
- Çözümler
- 5
- Aldığı beğeni
- 104
- Excel V
- Office 365 TR
Konu Sahibi
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 sevinirim. Anlamadığım nokta dosyaları kapatıp açtığımda zaman zaman çalışıyor acaba hafızayı temizlemek için bir şeymi yapmak lazım
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
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 sevinirim. Anlamadığım nokta dosyaları kapatıp açtığımda zaman zaman çalışıyor acaba hafızayı temizlemek için bir şeymi yapmak lazım
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
