Kullanıcı
- Katılım
- 28 Tem 2022
- Mesajlar
- 3
SELAMUNALEYKÜM CÜMLENİZE
BU KOD ÖNCELERİ ÇALIŞIYORDU
D: RAPORLAR /GÜNLÜK DOSYASINA KOPYALADIĞI VERİYİ BU GÜNÜN TARİHİ İLE KOPYALIYORDU XLS (MAKROSUZ)
kaydet1 Makro
Dim Dosyam As String
With Sheets("34,5")
Dosyam = "D:\Raporlar\Günlük\" & .Range("Aj3").Value & ".xls"
ActiveWorkbook.Worksheets = Dosyam HATA VEREN YER BURASI
ActiveWorkbook.ActiveSheet = Dosyam
ActiveWorkbook.ActiveWindow. ActiveSheet = Dosyam
ActiveWindow. ActiveWorkbook.ActiveSheet = Dosyam
BU ÜSTDEKİ AÇILIMLARI DENEDİM AMA ÇALIŞTIRAMADIM...............İLGİLENİZE ŞİMDİDEN TEŞEKKÜRLER
BU KOD ÖNCELERİ ÇALIŞIYORDU
D: RAPORLAR /GÜNLÜK DOSYASINA KOPYALADIĞI VERİYİ BU GÜNÜN TARİHİ İLE KOPYALIYORDU XLS (MAKROSUZ)
kaydet1 Makro
Dim Dosyam As String
With Sheets("34,5")
Dosyam = "D:\Raporlar\Günlük\" & .Range("Aj3").Value & ".xls"
ActiveWorkbook.Worksheets = Dosyam HATA VEREN YER BURASI
ActiveWorkbook.ActiveSheet = Dosyam
ActiveWorkbook.ActiveWindow. ActiveSheet = Dosyam
ActiveWindow. ActiveWorkbook.ActiveSheet = Dosyam
BU ÜSTDEKİ AÇILIMLARI DENEDİM AMA ÇALIŞTIRAMADIM...............İLGİLENİZE ŞİMDİDEN TEŞEKKÜRLER
VBA:
İndirmek için giriş yapmanız gerekmektedir.
(81 satır)