İsim ile sayfa ekleme ?

[gokdag]

İyi akşamlar,

A hücresinde 1-95 kadar isim listem var bunlara tek tek sayfa açmam yerine daha kolay bir yöntemi varmıdır.

macro yada daha farklı bir yöntem varsa sevinirim.

Saygılarımla

 

[Tarkan VURAL]

Vardır, vardır, kolay....

sub isimleresayfaac()
For i = 1 To Range("a65536").End(3).Row
ad = len(cells(i, 1).value)
sheets.add.name = iif(len(cells(i, 1).value) >= 20, mid(cells(i, 1).value, 1, 20), cells(i, 1).value)
next i
i = empty
end sub

 

[gokdag]

Teşekkürler

 

[modoste]

kod ile ilgili bu yazıdğınız kısmı ben boş bi çalışma sayfası açtığımda nerelere ne yazıcamda çalıştırıcam yardımcı olabilirmisiniz. sayın tarkan Vural

 

[mrpeace0365]

benzer bir soru daha...

açılışta veri adlı bir çalışma sayfası eklemek istiyorum ve kapanışta o veri adlı sayfayı kaldırmak istiyorum... ancak bazen veri adlı çalışma sayfasını bilgisayar kaldırmadan/silmeden çıktığı için bir sonraki açılışta bu veri adlı sayfa mevcut bulunduğundan program hata veriyor...

sorum: açılışta veri adlı çalışma sayfası var mı yok mu kontrol edilsin, varsa silinsin(mutlaka!), yoksa veri adlı çalışma sayfası oluşturulsun...

forumda bununla ilgili konulara baktım ama hiçbirisinde istediğim cevabı bulamadım...

yardımcı olursanız sevinirim...