Hücredeki Ad Tanımlama İsmini Bulmak

[Emir Hüseyin Çoban]

.

Merhaba Arkadaşlar,

C1 hücresine ad tanımlayarak "alan1" ismini verdim.

Sayfanın Change kod olayında

if Target.address(0,0) = "C1" then yerine

if Target.??? = "alan1" then şeklinde

verdiğim ad tanımla ismine göre çalışmasını sağlamak istiyorum.

Ancak hücrede ad tanımlama varsa, bu tanımlamanın ismini tespit edebilecek komutu bulamadım.

.

 

[Necdet]

Merhaba,

Range("Alan1") şeklinde olacaktı, denemeden yazdım.

Yada bir değişkene atanırsa

dim x as string

x="Alan1"

Range(x) olarak kullanabilirsiniz.

 

[Emir Hüseyin Çoban]

.

Teşekkürler Necdet Bey, bu fikir üzerinden yürüyerek şu şekilde çözdüm...

Yakında paylaşacağım güzel bir çalışma için ışık tutacak...

If Target.Address = Range("alan1").Address Then

.

 

[turist]

Deneyin.

If Target.Address(0, 0) = Range("alan1").Address(0, 0) Then

NOT:
Sayın, Emir Hüseyin Çoban cevabı bulmuş....Yazarken görmedim.

 

[Necdet]

Merhaba,

Eğer hücre ad tanımı içeriyorsa aşağıdaki kodlar işe yarayabilir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim n As String
    On Error GoTo AdYok
    n = ActiveCell.Name
    MsgBox Target.Address & " hücresindeki Name : " & n
    Exit Sub
AdYok:
    MsgBox "Hücrede Ad Tanımı Yok"
End Sub

 

[alicimri]

Alternatif

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To ActiveWorkbook.Names.Count
If Not Intersect(Target, Range(ActiveWorkbook.Names(i))) Is Nothing Then
MsgBox ActiveWorkbook.Names(i).Name
End If
Next
End Sub

 

[Emir Hüseyin Çoban]

.

Örnek uygulama:
http://www.excel.web.tr/f157/satyr-...meyen-makro-kodlamasy-t173332.html#post944975

.