bir hücreden alınan sayı ile sayıya denk gelen sayfayı yazdırma

[gepci]

excelde sayfa1,sayfa2.......... sayfa6 kadar olan sayfaları sayfa adı mesala 1,2,3,.....5 olarak değiştirelim => ilk sayfaya(sayfa1) bilgi girişi yapacagız, sonraki sayfaların isimleri değiştiginden, sayfa1 adı değişmiyor (B sütunu bilgi girişi), sayfa2=1 adı sayfa3=2 , sayfa4=3,sayfa5=4, sayfa6=5 olarak yeniden adlandıralım.
B sütünuna yazılan B1,B2 ve B3 kadar olan hücrelere 1 ile 5 arasında üc sayı girelim. bu hücrede yazılan sayılar kaç ise ona karşılık gelen sayfayı yazdıran bir makro yardımı lütfen.
örnek B1=1 B2=3 B3=4 olsun. ismini değiştirip 1, 3 ve 4 yaptığımız sayfaları yazdırsın.

 

[gepci]

yardım edecek kimse yokk galibaaaaaaa

 

[YUSUF44]

Amatörce yaptığım bir çözüm: Aşağıdaki kodları bir modüle ekleyin ve Sayfa1 asyfanızı yani yazdırılacak sayfa adlarını girdiğiniz sayfayı sekmelerin en sonuna taşıyın (Şu anda Sayfa1 en başta duruyor onu 5 isimli sayfanın sağına almanız gerekiyor). Daha sonra sayfa1'e bir düğme ekleyip yaz makrosunu atayarak deneme yapın.

Sub yaz()
On Error GoTo son
For i = 1 To [a1].End(xlDown).Row
sayfa = Cells(i, 1).Value
Sheets(sayfa).PrintOut
Next
son:
End Sub

Elbette daha düzgün bir çözüm vardır ancak kısıtlı bilgimle ancak bu kadar yapabildim.