Başka Excelden Veri Kopyalama Yapıştırma

  • Konuyu başlatan Konuyu başlatan gkhvrl
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

gkhvrl

Kullanıcı
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
 

Ekli dosyalar

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.
 

Ekli dosyalar

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.

1643014634962.webp


1643014526379.webp
 
@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ı
1643017865177.webp


Banka_Hareketleri
1643018439769.webp

1643018421741.webp
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst