Başka Excelden veri kopyalama yapıştışma

[gkhvrl]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba;
Nasıl tarif edeceğimi bilemedim
Masa üzerinde Banka Excel diye klasörün içerisinde Hesap_Hareketleri ve Banka adında iki excel çalışma kitabım var.
Banka_Hareketleri hergün bankadan indirdiğim ekstre ,Banka adındaki excele kaldığım yerden kopyala yapıştırmasını istiyorum.
İşlem kodu referans alınabilir.
Kendimce bişeyler yaptım ama olmadı
Yardımlarınızı rica ederim...

Sub son_boş_satır()
Sheets("BANKA").Select
Sheets("BANKA").Activate
'Range("C7").End(xlDown).Offset(1, 0).Select
Range("C7").Select
ActiveCell.End(xlDown).Select
ActiveCell.Copy
Workbooks.Open Filename:="C:\Users\gvural\Desktop\Yeni klasör\Banka İşlemleri"
Range("A1").Select
Cells.Find(What:="???????????????", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("BANKA.xlsm").Activate
Sheets("Sheet1").Activate
Range("C7").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Workbooks("Banka İşlemleri").Activate
Workbooks("Banka İşlemleri").Close
End Sub

 

VBA ile Satır Sayısını Nasıl Bulabiliriz?

UserFormdaki TextBoxlara Açılır Takvim Ekleme

[Ömer BARAN]

Belgeniz ekte Sn. @gkhvrl

Belgedeki LOGOya tıklayınca veriler alınır.
Aynı verinin mükerrer alınmaması için, veri alınan Hesap_Hareketleri.xlsm isimli veri kaynağı belgenin adı,
veri alındıktan sonra XDHesap_Hareketleri.xlsm olarak değiştirilir.
Veriler mevcut belgede ilk boş satırdan itibaren aktarılır.

 

[gkhvrl]

Belgeniz ekte Sn. @gkhvrl

Belgedeki LOGOya tıklayınca veriler alınır.
Aynı verinin mükerrer alınmaması için, veri alınan Hesap_Hareketleri.xlsm isimli veri kaynağı belgenin adı,
veri alındıktan sonra XDHesap_Hareketleri.xlsm olarak değiştirilir.
Veriler mevcut belgede ilk boş satırdan itibaren aktarılır.

Merhaba Ömer hocam;
Öncelikle geri dönüşleriniz için teşekkür ederim.
Dosyayı açtım fakat veri alınacak belge yok uyarısı verdi.
Dosyaların resimlerini ekliyorum. Dosyalar aşağıda paylaştığım gibi
Yardımlarınızı rica ederim.

 

[Ömer BARAN]

@gkhvrl
Verinin okunacağı belgenin uzantısı nedir, *.xlsx mi *.xlsm mi?

Ayrıca; madem BANKA isimli belgeyle, verinin okunacağı belge aynı klasörde,
koddaki yol = XDsys.SpecialFolders("Desktop") & "\Banka Excel\" satırını
yol = ThisWorkbook.Path & "\" şeklinde değiştirin.

Bir de hatırlatma, bir belgeden veri alındığında o belgenin adı XDHesap_Hareketleri olarak değiştirilir.
Ki bu sayede aynı belgeden mükerrer veri alınmamış olur.

 

[gkhvrl]

@gkhvrl
Verinin okunacağı belgenin uzantısı nedir, *.xlsx mi *.xlsm mi?

Ayrıca; madem BANKA isimli belgeyle, verinin okunacağı belge aynı klasörde,
koddaki yol = XDsys.SpecialFolders("Desktop") & "\Banka Excel\" satırını
yol = ThisWorkbook.Path & "\" şeklinde değiştirin.

Bir de hatırlatma, bir belgeden veri alındığında o belgenin adı XDHesap_Hareketleri olarak değiştirilir.
Ki bu sayede aynı belgeden mükerrer veri alınmamış olur.

Hocam yol = ThisWorkbook.Path & "\" - değiştirince başarılı bir şekilde kopyaladı. Bu istediğim birşeydi.
Fakat Banka_Hareketleri çalışma kitabındaki tüm verileri Banka çalışma kitabına kopyalayıp yapıştırıyor.
Benim isteğim aşağıda paylaştığımı ekran görüntüsündeki son işlem kodunu Banka_Hareketleri bulup bir altındaki verileri Banka çalışma kitabına son işlemin altına yapıştırması rica budur.


Banka Çalışma Kitabı


Banka_Hareketleri

 

[Ömer BARAN]

İsteğinizi anladım.
Şu an yoğunum, uygun vakit cevap yazarım.

 

[gkhvrl]

İsteğinizi anladım.
Şu an yoğunum, uygun vakit cevap yazarım

Hocam acelesi yok siz ne zaman uygun olursanız.
Teşekkürler

 

[Ömer BARAN]

@gkhvrl
Dosyadaki kodu aşağıdakiyle değiştirin.

Görüntülemek için giriş yapmanız gerekmektedir.
(38 satır)

 

[gkhvrl]

Mükemmel olmuş Ömer hocam ellerinize sağlık