Excel'in bir sayfasına, başka bir excel'deki sayfayı kopyalamak

[sadosit]

Merhaba,

20 sayfalık bir excelin 1. sayfasında ana verilerin olduğu ve diğer sayfaların bu verilerden işlem yaptığı bir excel dosyasında;

-vba ile 1. sayfadaki verileri silerek yerine başka bir exceldeki verileri getirmek istiyorum.

İlk durumda A1 hücresinden KZ2000 hücresine kadar dolu idi. A1 değişmeyecek ancak son hücre değişebilir.

Özetle A1 hücresinden başlayarak bu sayfadaki tüm veriler, başka bir excel dosyasının içindeki 1.sayfa ile değişmeli.

Şimdiden çok teşekkür ederim.

 

[xtrkax]

Tam anlamadım fakat dosya yolunu değiştirip bir deneyin:

Sub VeriDegistir()

Dim kaynak As Workbook
Dim hedef As Workbook
Dim kaynakSayfa As Worksheet
Dim hedefSayfa As Worksheet

Set kaynak = Workbooks.Open("C:\Kitap1.xlsx")
Set hedef = ThisWorkbook 'ya da hedef = Workbooks.Open("C:\Kitap2.xlsx") şeklinde de kullanabilirsiniz

Set kaynakSayfa = kaynak.Sheets(1)
Set hedefSayfa = hedef.Sheets(1)

hedefSayfa.Range("A1:KZ2000").Value = kaynakSayfa.Range("A1:KZ2000").Value

kaynak.Close
Set kaynakSayfa = Nothing
Set kaynak = Nothing
Set hedefSayfa = Nothing
Set hedef = Nothing

End Sub

 

[sadosit]

Sayın xtrkax;

Emeğiniz ve yardımınız için çok teşekkür ederim, çalışıyor