Makro İle Ad Tanımlamak

[baydeniro]

Merhaba Arkadaşlar,
Ad tanımlamayı makro kodu ile oluşturmak mümkün ama sabit değer olarak yapılabiliyor mu ?
Örneğin B5 hücresinde "ELMA" yazılı.

Hücredeki veri ile AD oluşturmak ve B5 hücresinde ELMA yazılı iken ELMA değerini, sonra B5 KİVİ olunca ve kod çalıştırılınca KİVİ değerini alması mümkün mü ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    ActiveWorkbook.Names.Add Name:="ÜRÜN", RefersTo:="=Sheet1!B5"
    MsgBox Range("ÜRÜN").Value
End Sub

 

[baydeniro]

Deneyiniz.

Option Explicit

Sub Test()
    ActiveWorkbook.Names.Add Name:="ÜRÜN", RefersTo:="=Sheet1!B5"
    MsgBox Range("ÜRÜN").Value
End Sub

üstad desteğiniz için çok teşekkür ediyorum. ÜRÜN ad tanımındaki değerin resimdeki gibi görünmesini nasıl sağlayabilirim ?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    ActiveWorkbook.Names.Add Name:="ÜRÜN", RefersTo:="" & Range("B5").Value & ""
    MsgBox [ÜRÜN]
End Sub

 

[baydeniro]

Deneyiniz.

Option Explicit

Sub Test()
    ActiveWorkbook.Names.Add Name:="ÜRÜN", RefersTo:="" & Range("B5").Value & ""
    MsgBox [ÜRÜN]
End Sub

Üstadım gerçekten harikasınız. Arada 10larca kod kombinasyonu denedim acaba kendim de bulabilir miyim diye. Hızır gibi yetiştiniz. sağolun var olun

 

[Korhan Ayhan]

Bence artık denemeyin. Yazmaya başlayın...