Farklı excel kitaplarına veri aktarma

[sahemi]

giris adlı excel kitabında veriyi aşağıdaki kod ile farklı sayfaya aktarabiliyorum.

Benim istediğim giris adlı excel kitabındaki veriyi, rapor isimli başka bir excel kitabına alt alta aktarmak.

Yardımlarınız için şimdiden teşekkürler


Private Sub CommandButton1_Click()

Dim giris As Worksheet
Dim liste As Worksheet
Dim son As Long
Dim sat As Long

Set giris = ThisWorkbook.Sheets("aktaran")
Set liste = ThisWorkbook.Sheets("alan")
son = liste.Range("A65536").End(3).Row

If son < 2 Then sat = 2 Else sat = son + 1

liste.Cells(sat, "A") = giris.Cells(10, "A")
liste.Cells(sat, "B") = giris.Cells(10, "B")
liste.Cells(sat, "C") = giris.Cells(10, "C")
liste.Cells(sat, "D") = giris.Cells(10, "D")

giris.Cells(10, "A") = ""
giris.Cells(10, "B") = ""

End Sub

 

[sahemi]

Yardımcı olabilecek arkadaşlar, kodu söyleyebilir mi?

 

[sahemi]

Kendi soruma kendim cevap vereyim,

Set liste =Workbooks("Rapor.xlsm").Worksheets("Sayfa1")

Yalnız bu kod, rapor isimli dosya açık ise kayıt yapıyor. Rapor isimli dosya açılmadan aktarmayı nasıl yapabilirim.

 

[sahemi]

Arkadaşlar, çok mu zor bir soru sordum?

Cevap vermek için bu ilgisizlik neden anlamıyorum.

 

[sahemi]

Konuyu kapatabilirsiniz. En güzeli araştırarak bulmak.