Kapalı dosyayı açma ve verileri yapıştırma

FevzI · 20 Ağu 2019

Merhaba,
Ekteki RAPOR isimli dosyada SAYFA2 (TOPLU RAPOR) DE A-F sütunundaki veriler olduğu gibi kopyalanıp, DEPO TASLAK isimli dosyada Sayfa2 'de gene A-F sütunlarına yapıştırılacak. Mümkün mü acaba?
Not: DEPO TASLAK isimli dosya normalde kapalı. Makro çalışınca dosya açılacak, veriler yapıştırılacak ve dosya açık kalacak.
Dosyalar farklı klasörlerde.

Teşekkürler.

Feyzullah · 20 Ağu 2019

Makro Kaydet yöntemi ile yapabilirsin.

Feyzullah · 20 Ağu 2019

Feyzullah' Alıntı:
Makro Kaydet yöntemi ile yapabilirsin.

VBA:

Sub ExcelDestek()
dosya = ThisWorkbook.Path & "\DEPO TASLAK.xlsm"
    Set ac = Workbooks.Open(dosya)
    ThisWorkbook.Sheets("TOPLU RAPOR").Range("A:F").Copy ac.Sheets(2).Range("A1")
'   ac.Close False
MsgBox "...:İşlem Tamam:...", vbMsgBoxRtlReading + vbInformation, "ExcelDestek.com"
End Sub

MesutTopal · 20 Ağu 2019

Kod:

Sub Makro1()
Workbooks("RAPOR.xlsm").Sheets("Sayfa2").Columns("A:F").Copy

Workbooks.Open Filename:= "C:\" & "DEPO TASLAK" & ".xlsm"

Workbooks("DEPO TASLAK" & ".xlsm").Sheets("Sayfa2").Activate

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ActiveWorkbook.Save

ActiveWindow.Close

End Sub

FevzI · 22 Ağu 2019

Cevaplarınız için teşekkür ederim. Dosyalar aynı klasörde olduğu zaman çok güzel çalışıyor.
Dosyalar ayrı ayrı klasörlerde olduğu zaman dosyaların yollarını nasıl belirtebiliriz?
Teşekkürler

mars2 · 25 Eyl 2019

Cevaplarınız için teşekkür ederim.

	Hesap Numarasına Göre Dosya Açma ve Kayıt Etme Ömer BARAN 26 Eyl 2024 Makro Soruları
	döngü ile form açma ve hesaplama berkbaba 8 Kas 2020 Makro Soruları
	Ado ile birden çok kapalı dosyayı aktarma KarincaZZ 10 Şub 2020 Makro Soruları
	Tarihi Bugün Olan Dosyayı Açma selis 19 Şub 2021 Makro Soruları
	Makro ile Kapalı Dosyadan Veri Çekme PriveT 4 Mar 2025 Makro Soruları