- Katılım
- 6 Ocak 2010
- Mesajlar
- 2,224
- Excel Vers. ve Dili
- İŞ: 2021 Win Eng
merhaba.
siteyi var eden ve devam ettiren herkese teşekkürlerimi sunarak bir konuda, mümkünse yardım rica ediyorum.
gerek sitede gerekse nette aradım ama tam bana göre bir çözüm elde edemedim. belk iacemi olmakla ilgili bir durum.
aşağıdaki gibi bir kodum var ve bunu 21 farklı dosya için sadece sadece 1 satırını değiştirerek 21 defa alta alta yazarak makroyu oluşturuyorum.
dosya_aç (farklı çalışmalarda da da kullandığım "şablon" ve "veri" isimli 2 dosyayı açan makro. kalacak)
Windows("veri.xls").Activate
Sheets("kopyalanacak").Select
Range("B2:C46").Select
Selection.Copy
Windows("şablon.xls").Activate
Sheets("1").Select
Range("A6:B50").Select
ActiveSheet.Paste
kaydetA50 (A50 hücresindeki veriyi dosya ismi yaparak keydeden makro. kalacak)
ActiveWorkbook.Close
Range("B2:C46").Select
satırı hariç her şey aynı. bu satır bir sonrakinde B48:C92; ondan sonrakinde B94:C138 olmak üzere (her defasında B ve C'ye 46 eklenerek) B922:C966'ya kadar gidiyor.
bu satırın üstündekileri bir makro, satırın kendisi ve satırın altındakileri ayrı makro yapmak istemiyorum.
yardımlarınızı rica eder, peşinen teşekkür ederim.
siteyi var eden ve devam ettiren herkese teşekkürlerimi sunarak bir konuda, mümkünse yardım rica ediyorum.
gerek sitede gerekse nette aradım ama tam bana göre bir çözüm elde edemedim. belk iacemi olmakla ilgili bir durum.
aşağıdaki gibi bir kodum var ve bunu 21 farklı dosya için sadece sadece 1 satırını değiştirerek 21 defa alta alta yazarak makroyu oluşturuyorum.
dosya_aç (farklı çalışmalarda da da kullandığım "şablon" ve "veri" isimli 2 dosyayı açan makro. kalacak)
Windows("veri.xls").Activate
Sheets("kopyalanacak").Select
Range("B2:C46").Select
Selection.Copy
Windows("şablon.xls").Activate
Sheets("1").Select
Range("A6:B50").Select
ActiveSheet.Paste
kaydetA50 (A50 hücresindeki veriyi dosya ismi yaparak keydeden makro. kalacak)
ActiveWorkbook.Close
Range("B2:C46").Select
satırı hariç her şey aynı. bu satır bir sonrakinde B48:C92; ondan sonrakinde B94:C138 olmak üzere (her defasında B ve C'ye 46 eklenerek) B922:C966'ya kadar gidiyor.
bu satırın üstündekileri bir makro, satırın kendisi ve satırın altındakileri ayrı makro yapmak istemiyorum.
yardımlarınızı rica eder, peşinen teşekkür ederim.