Kısa Açıklama
Başka Excelden Veri Kopyalama Yapıştırma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- 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
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