Aksuda
Altın Üye
- Katılım
- 14 Nisan 2019
- Mesajlar
- 40
- Excel Vers. ve Dili
- Excel 2010 ve üzeri. İngilizce
- Altın Üyelik Bitiş Tarihi
- 22-04-2025
Merhaba,
Çok çok yeni bir üyeyim. Uzun yıllardır makro kullanmıyorum, pek çok şeyi unutmuşum Siz üstadlardan yardım rica ediyorum.
Bir "Marka" dosyam var. Bu dosya içerisinde 300 tane sheet var. Her sheetin içerisindeki verilerin kopyalanması gereken 300 dosya var.
Her bir sheet in tek tek ana dosyasına kopyalanması gerekiyor.
Ben bir makro hazırladım ama sadece bir sheeti yapıyor diğer sheetleri yaptırmakla ilgili bir türlü çözüm bulamadım.
Bir soru: Hangi sheet hangi dosyayı açması gerekiyor gibi bir liste ile çalıştırmak daha mı mantıklı olur ben bilemedim, mümkün mü? Nasıl yapabilirim.?
1 haftadır çözmeye çalışıyorum, dün gece 3 e kadar uğraştım ama ne yapsam olmadı. Döngü kurmak istedim ama oda olmadı bu kadar yapabildim.
Engin bilginizle yardımlarınızı rica ediyorum.
Çok teşekkür ederim.
Dosyalarım aşağıdaki linktedir. Teşekkürler
https://www.dosyaupload.com/6d2b
https://www.dosyaupload.com/6d2c
https://www.dosyaupload.com/6d2d
https://www.dosyaupload.com/6d2e
Çok çok yeni bir üyeyim. Uzun yıllardır makro kullanmıyorum, pek çok şeyi unutmuşum Siz üstadlardan yardım rica ediyorum.
Bir "Marka" dosyam var. Bu dosya içerisinde 300 tane sheet var. Her sheetin içerisindeki verilerin kopyalanması gereken 300 dosya var.
Her bir sheet in tek tek ana dosyasına kopyalanması gerekiyor.
Ben bir makro hazırladım ama sadece bir sheeti yapıyor diğer sheetleri yaptırmakla ilgili bir türlü çözüm bulamadım.
Bir soru: Hangi sheet hangi dosyayı açması gerekiyor gibi bir liste ile çalıştırmak daha mı mantıklı olur ben bilemedim, mümkün mü? Nasıl yapabilirim.?
1 haftadır çözmeye çalışıyorum, dün gece 3 e kadar uğraştım ama ne yapsam olmadı. Döngü kurmak istedim ama oda olmadı bu kadar yapabildim.
Engin bilginizle yardımlarınızı rica ediyorum.
Çok teşekkür ederim.
Dosyalarım aşağıdaki linktedir. Teşekkürler
https://www.dosyaupload.com/6d2b
https://www.dosyaupload.com/6d2c
https://www.dosyaupload.com/6d2d
https://www.dosyaupload.com/6d2e
Kod:
Sub COPY()
'Marka dosyasındaki her sheet için ayrı ayrı dosyalar açılarak copy işlemi gerçekleşecek
' Ben sadece tek bir sheet için yapabiliyorum. 300 sheet ve 300 dosya için bu kodun çalışması gerekiyor.
' Daha kısa bir yolu var mı?
Worksheets("AGRI KESICI").Select
Range("A2:AZ2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.COPY
Workbooks.Open Filename:="D:\makrolar\excelweb\XAGRI KESICI.xlsx"
Worksheets("YENI").Select
Range("B:B").End(xlDown).Offset(1, 0).Select 'Son satıra git
ActiveCell.End(xlToLeft).Select 'son satıın en soluna gider
ActiveSheet.Paste 'Yapıştır
ActiveWorkbook.Save
'ActiveWorkbook.Close
Worksheets("COCUK").Select
Range("A2:AZ2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.COPY
Workbooks.Open Filename:="D:\makrolar\excelweb\excelweb\XCOCUK.xlsx"
Worksheets("YENI").Select
Range("B:B").End(xlDown).Offset(1, 0).Select 'Son satıra git
ActiveCell.End(xlToLeft).Select 'son satıın en soluna gider
ActiveSheet.Paste 'Yapıştır
ActiveWorkbook.Save
End Sub
Son düzenleme: