Farklı isimdeki sayfalara aktarma yapmak

[bravo64]

merhaba arkadaşlar,
foruma yeni katıldım ve beklmediğim kadar faydalandım.Herkese çok teşekkür ederim.Benim ilk sorum aktarma konusunda.
ana girişleri yaptığım sayfam ve belirli aralıktaki bilgileri farklı isimde 140 ayrı sayfaya (isme göre) aktarmak istiyorum.İf ile hr sayfaya ayrı kod yazarak çok zor..yani kodu öyle yazmalıyımki ilgili sayfaya altalta aktarsın..Daha kısaca ("a2:c10") aralığını ,mesela sheets("sss") ye göndersin,yada hangi isme gitmek istiyorsam(140 sayfanın içinde)oraya kaydetsin..
şimdiden çok teşekkür ederim..
Bu arada sayın Leventm i naçizane kutluyorum bilgileri için..

 

[Levent Menteşoğlu]

Sorunuz için dosyanızın kısaltılmış bir örneğini eklermisiniz?

 

[bravo64]

Hızlı yanıtınız için teşekkür ederim..Daha önce yazdığım kod şöyle;
Sheets("anaterminal").range(("f2:h2").copy
sat=sheets("1").cells(65536,4).end(xlup).row
Sheets("1").cells(sat+1,4).pastespecial paste:=xlvalues
application.screenupdating=true
exit sub
Þimdi istediğim sayfa1 den başka 139 tane sayfam var ve kodu mesela 5.sayfaya yada 41.sayfaya ,anaterminaldeki bir hücreye ismini yazarak mesela gönderebilmek..örnek istemişsiniz ama önce planlamasını yaptığım için aktaramadım.bilmem bu yeterlimi?
iyilikler dilerim..

 

[bravo64]

buarada yanlış anlattım bir noktada,kodu değil aralıktaki verileri ilgili sayfaya aktarmak istiyorum.yani kod çalıştığında mesela sayfa2 ye göndersin yalnız.yada 23'e yada 95.sayfaya..sayfa ismini anaterminaldeki bir hücre başvurusu olarak olabilir mesela..

 

[Levent Menteşoğlu]

Sayfa ismini ana terminal sayfasındaki örneğin A1 hücresinden aldığını farzedelim bu durumda kodu aşağıdaki gibi düzenlemelisiniz.

[vb:1:424d8945b1]Sheets("anaterminal").range(("f2:h2").copy
ad=Sheets("anaterminal").range("A1").value
sat=sheets(ad).cells(65536,4).end(xlup).row
Sheets(ad).cells(sat+1,4).pastespecial paste:=xlvalues
application.screenupdating=true
exit sub
[/vb:1:424d8945b1]

 

[bravo64]

sayın leventm
kodu yazdım ama subcript out of range veriyor..

 

[bravo64]

sevgili leventm
çok özür dilerim a1 hücresini kendi dosyamda e12 olarak tanıtmışım..Kod başarılı..
Çok ama çok teşekkür ederim.