D sürücüsü içerisinde bulunan xls dosyasını açıp içine bilgi kopyalama

[dragon44760]

ekte gönderdiğim dosya da "ziraat_bankası_disket_aç" adı altın bulunan kodla D sürücüsü içerisinde bulunan "Ziraat Bankası Txt Programı.xls" dosyasını açtırıyorum.
Lakin "banka işlemleri.xls" dosyasında bulunan "Ziraat Bankası Listesi" sayfasında "B4:G203" arası kopyalanıp "Ziraat Bankası Txt Programı.xls" dosyasının "A6" hücresine yapıştırmasını istiyorum.

Yardımcı olursanız sevinirim...

 

[dragon44760]

Arkadaşlar konu hala güncel. Bu konuda yardımlarınızı bekliyorum...

 

[dragon44760]

"banka işlemleri.xls" dosyasının adı değişken olduğu göz ardı edilmemeli.

Sayın hamitcan hocama ait bir kodu paylaşmak istiyorum.
Yeni dosya açıldıktan sonra önceki dosyaya geri dönüp işlem yapabilen aşağıdaki kod örnek olarak incelenebilir.
Bu kod ilgilenen arkadaşlara yol göstereceğini düşündüğüm için ekliyorum.

Sub banka_disketi()
    Sheets("banka").Visible = True
    Set wb = ActiveWorkbook
    Set NewWorkbook = Workbooks.Add
    wb.Sheets("banka").Copy Before:=NewWorkbook.Sheets(1)
    NewWorkbook.ActiveSheet.Name = "Banka listesi"
    wb.Sheets("banka").Visible = False
End Sub

 

[dragon44760]

Arkadaşlar dediğim gibi bir işlem yapılamayacaksa lütfen biri bu işlem yapılamıyor desin. Ben meraklı gözlerle sorunun cevabını beklemeyeyim.

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub ackopyala()
    Workbooks.Open Filename:="D:/Ziraat Bankası Txt Programı.xls"
    Workbooks("banka işlemleri").Sheets("Ziraat Bankası Listesi").[b4:g203].Copy _
    Workbooks("Ziraat Bankası Txt Programı").Sheets(1).[a6]
End Sub

 

[dragon44760]

Teşekkürler hocam....