hücre iceriklerini tablara isim olarak yazdırmak

[electronick]

Suanda calısmakta oldugum bir excel dosyasında birimfiyatteklif cetveli tabındaki c sütunundaki bütün hücreler icin tab acılmıs ve ben bu hücrelerin iceriklerini bu tabların ismii olarak yazmak gerekiyor. varolan bu hücrelerin icerigini tablara nasıl yazdırabilirim. ( 155 adet de biraz uzun sürüyor tek tek yazmak )

yardımlarınızı bekliyorum .............

 

[Levent Menteşoğlu]

Tabdan kastınız nedir?

 

[electronick]

worksheet yani

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kod kullanabilirsiniz.

sub isimlendir()
for a=1 to [c65536].end(3).row
sheets(a).name=cells(a,"c")
next
end sub

 

[electronick]

bunu nasıl uygulanacam ? mesela her worksheet mi kopyalamam gerekiyor.

 

[Levent Menteşoğlu]

bunu nasıl uygulanacam ? mesela her worksheet mi kopyalamam gerekiyor.

Hayır, C sütunundaki verilerin alınacağı sayfada bir buton oluşturun ve bu kodu o butona bağlayın.

 

[electronick]

ya cok sagol tesekkür cok işe yaradı bide bunun başka bir excel dosyasının herhangi bir sütunundan almasını istersek nasıl yapabiliriz. yardımcı olursanız sevirinim.

 

[Levent Menteşoğlu]

Bu durumda kod içine kitap adınıda ilave etmek gerekir. Kodun çalışması için verilerin okunacağı kitap açık olmalıdır.

[LEFT]sub isimlendir()
for a=1 to [c65536].end(3).row
[B][COLOR=blue]workbooks("kitap adı").[/COLOR][/B]sheets(a).name=cells(a,"c")
next
end sub

[/LEFT]