Farklı bir Çalışma Kitabından Veri Kopyalama

[SCOCUK]

Sub Makro1()

Workbooks.Open Filename:="C:\Users\YAGMUR\Desktop\GÜNLÜK İSTATİSTİK\DENEME.xlsx"

Sheets("Sayfa1").Range("A1:D1").Select
    Selection.Copy
    Windows("ANA SAYFA.xlsm").Activate
    ss = Cells(Rows.Count, 6).End(xlUp).Row + 1
Cells(ss, 6).Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("DENEME.xlsx").Activate
    Range("B1").Select
    Application.CutCopyMode = False
    
ActiveWindow.Close 0

Range("B1").Select
    
End Sub

Merhaba; Yukarıda yazmış olduğum kodda ANA SAYFA isimli kitabım DENEME isimli excell kitabında bulunan verileri kopyalamakta ve kayıt yapmadan DENEME dosyası kapanmakta ama sorun şu ki eğer DENEME kitabı en son kapatılır iken Sayfa1 de kaydetilip kapatılmamış ise Örneğin; Sayfa1, Sayfa2 olsun siz en kayıt yaparken Sayfa2 de kaydedip kapatır iseniz kod hata veriyor bu durumun önüne nasıl geçebilirim acaba ilginiz için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Workbooks.Open Filename.... satırından sonra aşağıdaki satırı ekleyin.

Sheets("Sayfa1").Select

.