Tanımlı alan adlarının excel de listelenmesi

[kubile]

Sn. Hocalarım, uzman katılımcılar ve arkadaşlar,

Sizlere yöneltilmediğini düşündüğüm ve internette başka kaynaklarda da cevabını
bulamadığım bir sorum var.

Ad yöneticisinde görüntülenen, dolayısıyla tüm çalışma sayfalarında yer alan ad
tanımlamalarını excel hücreleri içerisinde (herhangibir sayfaya) nasıl düşürebilir -
listeleyebiliriz?

Diğer bir deyişle Ad yöneticisi penceresinin görünümünü mevcut dosyanın çalışma sayfasına
uyarlama imkanı var mıdır. ?

Örnek dosyada resimli olarak gösterilmiştir.

Ayrıca;
Yurttaş hocamızın değerli çalışması için (ALAN-ADLARI.XLS) bende bu satırlarım vesilesiyle teşekkürlerimi iletiyorum.

Saygılarımla,

 

[mustafaine1]

name manager diye bir eklenti var internette rahatlikla bulabilrsin ama excel uzerine bu sekilde bir liste yapmiyor..

 

[Merhum İdris SERDAR]

Sn. Hocalarım, uzman katılımcılar ve arkadaşlar,

Sizlere yöneltilmediğini düşündüğüm ve internette başka kaynaklarda da cevabını
bulamadığım bir sorum var.

Ad yöneticisinde görüntülenen, dolayısıyla tüm çalışma sayfalarında yer alan ad
tanımlamalarını excel hücreleri içerisinde (herhangibir sayfaya) nasıl düşürebilir -
listeleyebiliriz?

Diğer bir deyişle Ad yöneticisi penceresinin görünümünü mevcut dosyanın çalışma sayfasına
uyarlama imkanı var mıdır. ?

Örnek dosyada resimli olarak gösterilmiştir.

Ayrıca;
Yurttaş hocamızın değerli çalışması için (ALAN-ADLARI.XLS) bende bu satırlarım vesilesiyle teşekkürlerimi iletiyorum.

Saygılarımla,

.


Belirttiğiniz dosyanın

AD-YAPIŞTIR sayfasındaki durumdan farklı bir şey mi istiyorsunuz?


.

 

[halit3]

Sn. Hocalarım, uzman katılımcılar ve arkadaşlar,

Sizlere yöneltilmediğini düşündüğüm ve internette başka kaynaklarda da cevabını
bulamadığım bir sorum var.

Ad yöneticisinde görüntülenen, dolayısıyla tüm çalışma sayfalarında yer alan ad
tanımlamalarını excel hücreleri içerisinde (herhangibir sayfaya) nasıl düşürebilir -
listeleyebiliriz?

Diğer bir deyişle Ad yöneticisi penceresinin görünümünü mevcut dosyanın çalışma sayfasına
uyarlama imkanı var mıdır. ?

Örnek dosyada resimli olarak gösterilmiştir.

Ayrıca;
Yurttaş hocamızın değerli çalışması için (ALAN-ADLARI.XLS) bende bu satırlarım vesilesiyle teşekkürlerimi iletiyorum.

Saygılarımla,

böyle birşeymi istiyorsunuz.

Sub adlarılistele()
For Each adlar In ThisWorkbook.Names
i = i + 1
Cells(i, 1).Value = adlar.Name
Next
End Sub

 

[halit3]

birde bu var

Sub adlarılistele()
For Each adlar In ThisWorkbook.Names
i = i + 1
Cells(i, 1).Value = adlar.Name
Cells(i, 2).Value = adlar.RefersToR1C1
Next
End Sub

 

[Merhum İdris SERDAR]

.

Bu da makrolu:

Sub Macro1()

    Range("A1").ListNames
    
End Sub

.

 

[uzmanamele]

merhaba

alternatif.

f3 / liste yapıştır

 

[kubile]

Sn. Yurttaş ve Halit3,
Kullanışlı örnekleriniz ve öğretimleriniz için teşekkür ederim.

Sn. Mustafaine,
İlginize teşekkür ederim.

Sn. Süleyman Özyüksel,
Pratik çözümünüz için teşekkür ederim.

Saygılarımla,

 

[Levent Menteşoğlu]

Eğer daha kapsalı bilgi almak isterseniz aşağıdaki makroyuda kullanabilirsiniz.

Sub tanimliadlar()
Dim adlar As Names
Set adlar = ActiveWorkbook.Names
For a = 1 To adlar.Count
Cells(a, "a") = adlar.Item(a).NameLocal
Cells(a, "b") = adlar.Item(a).Value
Cells(a, "c") = "'" & adlar.Item(a).RefersToLocal
If adlar.Item(a).NameLocal Like "*!*" Then
Cells(a, "d") = "Çalışma Sayfası"
Else
Cells(a, "d") = "Çalışma Kitabı"
End If
Next
End Sub

 

[kubile]

Sn. Levent bey,
Arkadaşlarımızın ilgi ve özverileri malum, sanırım konuyu sizin mesajını kapatıyor.
Elleriniz dert görmesin.
Saygılarımla,

 

[uzmanamele]

merhaba

yeri gelmişken ek katkıda bulunayım.
hatalı tanımlı adların bulunduğu dosyada bunları temizlemek bazen sorun olur.
kod ile tanımlı ad silindiğinde silinmesini istemediğimiz tanımlı adlar olabilir.
bilgi ve katkı olsun anlamında küçük bir kod ekleyeyim.

Sub T_Ad_Sil()
Dim ONAY As Byte
For Each adlar In ThisWorkbook.Names
    ONAY = MsgBox(adlar & vbCrLf & vbCrLf & _
    "Tanımlı Ad Silinsin mi?", vbInformation + vbYesNo)
    
    If ONAY = vbYes Then
        adlar.Delete
    ElseIf ONAY = vbNo Then
    End If
    Next
End Sub

 

[uzmanamele]

Merhaba

Üzerinde çalıştığım bir dosyada 50 den fazla çalışma sayfası var.
Birkaç bin tane de hatalı tanımlı ad var, kod ile tanımlı adları silmek 4-5 dakika sürüyor.
Dosyadaki tüm tanımlı adlar silindiğinde, yazdırma alanı ve yazdırma başlıkları da siliniyor ya da bir önceki mesajda olduğu gibi bunu seçime bağlı yaparsak silme işlemi 2-3 saati buluyor. (denemiştim)

Dosyadaki tanımlı adlardan yazdırma başlıkları ve yazdırma alanları hariç tümünü silmek için küçük bir kod yazarak sorunu çözdüm.
Eminim acemice oluşturulmuş bu tür dosyalardan kurtulmak için sizin de işinize yarayacaktır.

Sub T_Ad_Sil_3()
On Error GoTo 10
Dim ONAY As Byte
For Each adlar In ThisWorkbook.Names
    If (adlar.Name Like "*Print_Titles*" Or adlar.Name Like "*Print_Area*") Then GoTo 10

        adlar.Delete
10:
    Next
End Sub