sekmelere otomatik isim verme

[vivaayew_ts]

Herkese merhabalar;
Sıkıntım şu yönde;
Elimde 221 sekmelik bir excel dosyası var 1. sekmede a sütünunda kişilerin adlarından oluşan bir liste var 220 kişilik.
Ben bu 221 sekmenin 220 sini kişiler için kullanacağım ve diğer sekmelerin isimlerini otomatik olarak kişilerin ismine çevirebilmek istiyorum.

Yani elimdeki 220 sekmenin isimlerini a3 ten a222 hücresine kadar değerleri sırasıyla vermek istiyorum bu mümkünmü acaba

küçük bir örnek ekledim dosya 4 sekmeden oluşuyor 1.sekmede kişi listesi var 3 kişilik, diğer sekmelerin isimlerinin bu isimler olmasını istiyorum hatta yapılabiliyorsa kişi isimlerinin bulunduğu hücrelere köprü atıp o kişinin sekmesinin açılması da yapılabilir mi.

4 sekme varken çok kolay görünüyor ama 220 sekme olunca çok zaman alıcı.

 

[Excelmy]

sayın vivaayew_ts

Ekli dosyayı inceleyiniz.

 

[vivaayew_ts]

sayın vivaayew_ts

Ekli dosyayı inceleyiniz.

Sn Kuman çok teşekkür ederim ama 2 sıkıntımı dile getirmek isterim
1. si isme çift tıkladığımda yeni sekme açılıyor bu güzel ama zaten benim dosyamda 220 tane sekme mevcut.
2.si isme çiftk tıklıyoru o isimde yeni sekme açılıyor bu çok kullanışlı olabilir fakat açılan yeni sekmede boş hücreye çift tıklayınca ana sayfaya dönüyor fakat açılan yeni sekme siliniyor.

 

[security]

Merhaba Örnegi Denermisiniz... B1 deki İsme Göre Yeni Sayfa Oluşturur... İsim listesini A1 den alıyor...

 

[vivaayew_ts]

Merhaba Örnegi Denermisiniz... B1 deki İsme Göre Yeni Sayfa Oluşturur... İsim listesini A1 den alıyor...

teşekkür ediyorum Sn security fakat tek tıklamayla tüm sayfaları oluşturması mümkün mü acaba 220 ismi tek tek seçmesek

 

[Mehmet Şahin]

merhaba,
dosyanızda 220 sekme varmıdır, yani adı mı değiştirilecek, ya da yeni mi oluşturulacak?
İyi çalışmalar.

 

[vivaayew_ts]

merhaba,
dosyanızda 220 sekme varmıdır, yani adı mı değiştirilecek, ya da yeni mi oluşturulacak?
İyi çalışmalar.

220 sekme şuan var değişik isimlerle kayıtlı

 

[Excelmy]

Sn Kuman çok teşekkür ederim ama 2 sıkıntımı dile getirmek isterim
1. si isme çift tıkladığımda yeni sekme açılıyor bu güzel ama zaten benim dosyamda 220 tane sekme mevcut.
2.si isme çiftk tıklıyoru o isimde yeni sekme açılıyor bu çok kullanışlı olabilir fakat açılan yeni sekmede boş hücreye çift tıklayınca ana sayfaya dönüyor fakat açılan yeni sekme siliniyor.

Sayın vivaayew_ts

1 ) İsime çift tıkladığınız zaman kendi sayfası kayıtlı ise açılır, kayıtlı değil ise yeni kayıt yapılır.

2 ) Ana sayfaya döndüğünüz zaman açılan sekme silinmiyor sadece gizleniyor.

Bilginize.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz. Kod mevcut sayfalarııza ilk sayfanın A sütunundaki isimleri verir. Sayfa sayısı ile isim listesi adet bazında uyuşmuyorsa uyarı mesajı vererek işlemi sonlandırır.

Option Explicit
 
Sub SAYFA_ADI_DÜZENLE()
    Dim X As Integer
    
    On Error GoTo Son
    
    For X = 3 To Sheets(1).Range("A65536").End(3).Row
        If Cells(X, 1) <> "" Then
        Sheets(X - 1).Name = Cells(X, 1)
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Exit Sub

Son:
    MsgBox "İsim listesi ile sayfa sayısı eşleşmiyor !" & Chr(10) & _
    "Lütfen kontrol ediniz !", vbCritical, "Dikkat !"
End Sub

 

[Mehmet Şahin]

İyi akşamlar,
Korhan bey'in hoşgörüsüne sığınarak, sade ve hızlı kodlarına bir ekleme yaparsak sanırım köprü gereksinimini de çözmüş oluruz, iyi çalışmalar.

Option Explicit
 
Sub SAYFA_ADI_DÜZENLE()
    Dim X As Integer
    
    On Error GoTo Son
    
    For X = 3 To Sheets(1).Range("A65536").End(3).Row
        If Cells(X, 1) <> "" Then
        Sheets(X - 1).Name = Cells(X, 1)
           [COLOR=Red]Cells(X, 1).Hyperlinks.Add Anchor:=Cells(X, 1), Address:="", _
            SubAddress:="'" & Cells(X, 1).Value & "'!" & Sheets(Cells(X, 1).Value).Cells(1, "a").Address, _
            ScreenTip:="Sayfaya git", TextToDisplay:=Cells(X, 1).Value[/COLOR]
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    Exit Sub

Son:
    MsgBox "İsim listesi ile sayfa sayısı eşleşmiyor !" & Chr(10) & _
    "Lütfen kontrol ediniz !", vbCritical, "Dikkat !"
End Sub

 

[otufan03]

Arkadaşlar oluşturacağımız yeni sayfaları, önceden biçimlendirilmiş diyelimki içinde şablon tablo bulunan sayfalar şeklinde yapmak mümkünmü?

 

[gokhanbek]

Arkadaşlar oluşturacağımız yeni sayfaları, önceden biçimlendirilmiş diyelimki içinde şablon tablo bulunan sayfalar şeklinde yapmak mümkünmü?

evet mümkün
forumda daha önce bulmuştum
isteğine göre değiştir ben aktif olarak kullanıyorum

 

[otufan03]

Teşekkür ederim.

 

[sibelkorkut]

Eklenmiş Dosyalar ayemenici-şablon ile sayfa oluştur.xls (152.0 KB, 15 Görüntülenme)

BU MACRO NEDEN ÇALIŞMIYOR OLABİLİR?

 

[parametre]

Eklenmiş Dosyalar ayemenici-şablon ile sayfa oluştur.xls (152.0 KB, 15 Görüntülenme)

BU MACRO NEDEN ÇALIŞMIYOR OLABİLİR?

ofisiniz 2003 ise makronuzun guvenlik seviyesini ortaya alınız

 

[okokokokok]

peki bu kodu ne yapmamız gerekiyor?

 

[Mehmet Şahin]

Merhaba,
dosyanızı ekleyerek yeni bir konu açın ve istediğinizi detaylı olarak belirtin. Bu şekilde daha çok kişi ilgilenecektir. İyi çalışmalar.