Sayfadaki isimleri yeni sayfalar açarak sayfalara dağıtma

[MENNES]

Arkadaslar başka konu altında yazdım ama sorunun çözümüne kavuşamadım ,
ekli dosyada vb hata veriyor,
makrolardan yapması beklenen A sütunundaki isimler ile sayfalar açıp isim yanındaki bilgilerin ilgili sayfaya aktarılması,
office 2003 te çalışıyor du ama 2007 de çalıştıramadım.
yardımlarınızı beklıyorum , aslında forumda bu dosya mevcut ancak sorun benım bılgısayarımda da olabılır ,
bende ,
Set ws1 = Sheets("Sayfa1")
Set rng = Range("Veritabanı")
bu 2 satırdan birinde değişmeli olarak hata veriyor
dosya ektedir

 

[hamitcan]

Set rng = Range("Veritabanı")

satırını

Set rng = Range("A1:H" & [a65536].End(3).Row)

şeklinde değiştirin.

 

[MENNES]

teşekkür ederim Sn. Hamitcan

 

[mustafaine1]

bu ornek mukemmelmis kaydettim tesekkurler..

 

[My Jörk]

Harika bir paylaşım Hamitcan Bey Teşekkürler

 

[dage50]

Herşey Güzelde İhtiyacımız oldu Araştırdık Form Sayfanıza Geldik Ama ALTIN üyelik istiyor bu ne demek şimdi