Adedi değişken, belli olmayan veriyi başka bir kitabakopyalamak

[kykbt]

Başka bir çalışma sayfasını xx sayfasındaki (A7:H??) olan bir alanı içinde veri olan son satırı bulup bu alan içindeki veri yi üzerinde çalıştığım sayfanın A:7 hücresini baz alarak ve sadece değerleri yapıştır seçeneği ile yapıştırmasını, ayrıca I:7 hücresindeki formulu aynen I:?? hücresine kadar kopyalamasını istiyorum.

 

[Korhan Ayhan]

Selamlar,

İki adet dosya (Kitap1 - Kitap2) oluşturdum ve bunları masaüstüne kaydettim. Aşağıdaki kodu Kitap1 isimli dosyada uyguladım. İki dosyayıda açıp aşağıdaki kodu çalıştırdım. Olumlu sonuç aldım.

Sub ALANI_BAŞKA_KİTABA_KOPYALA()
    Workbooks("Kitap1.xls").Activate
    Range("A7:H" & [H65536].End(3).Row).Copy
    Workbooks("Kitap2.xls").Activate
    Range("A7").PasteSpecial Paste:=xlPasteValues
    Range("I7").AutoFill Destination:=Range("I7:I" & [A65536].End(3).Row)
    Workbooks("Kitap1.xls").Activate
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kykbt]

Tşk

Korhan arkadaşım sağlıkla yaşayasın. Çok işime yaradı çok çok sağol.