Kapalı olan dosyama veri aktarma

[ogunbalci]

İyi günler;
Aylık her gün için ayrı bir excel dosyam var, bir tane de aylık gün gün yazdığım verileri aylık olarak toplam excel dosyam var
Günlük excel tabloya kaydet macro butonu atadım
bu buton hem kendi sayfasındaki yerine kopyalıyor hem de Kitap3 dediğim farklı bir excel dosyasına kopyalıyor
sizden yardım bulunduğum konu şu
Kitap3 Excel dosyası kapalı iken veri kaydetmesi
birde 30 gün lük 30 excel dosyasındaki verileri Kitap3 dosyası kayıt eder mi? eğer etmez ise bu konuda yardım edermisiniz?
Aşağıda verdiğim macro başarı ile kayıt ediyor fakat kitap 3 kapalı iken hata veriyor.


macro formülüm şu:

Sub Makro11()
'
' Makro11 Makro
'

'
Range("B53:FF53").Select
Selection.Copy
Sheets("Tehir Lİstesi").Select
Range("A5").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Kitap3.xlsx").Activate
Range("B5").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows( _
"2024 Kargo Trafik Yönetimi Merkezi Seyrüsefer - Tehir Cetveli son.xlsm"). _
Activate
Sheets("KARGO GAYRETTEPE YÖNÜ").Select
Application.CutCopyMode = False
Range("AP27").Select
End Sub

 

[Korhan Ayhan]

Kitap3 dosyasını arka planda gizli olarak açarak işlem yapabilirsiniz..

Arama Sonuçları