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:
Görüntülemek için giriş yapmanız gerekmektedir.
(81 satır)