Name Alanının Makro İle Hücreden Alınması Mümkün mü

[baydeniro]

Merhaba arkadaşlar. Insert menüsü altındaki Name fonksiyonunda belirlenecek alanın makro yardımı ile F2 hücresinde yazılı olan adres olarak belirlenmesi mümkün mü ?

 

[Ferhat Pazarçevirdi]

MErhaba arkadaşlar. Insert menüsü altındaki Name fonksiyonunda belirlenecek alanın makro ile hücrede yazılan adresin makro kodu ile Namealani isimli alan olarak tanımlanması mümkün mü ?

Kurduğunuz cümleyi anlamak, problemi çözmekten daha zordu

Aşağıdaki örnek; Name (AD) olarak tanımlanmış alanı, bir Range objesine Set eder. Daha sonra da, -örnek olarak- bu nesnenin adresini görüntüler.

Sub Name_Adresini_Belirlemek()
    Dim rg As Range
    Set rg = Range("Namealani")
        MsgBox rg.Address
    Set rg = Nothing
End Sub

 

[baydeniro]

Tebrikler

Sayın Ferhat Pazarçevirdi yardımlarınızın yanısıra açıksözlülüğünüz ve esprili anlayışınız için de ayrıca çok teşekkürler. Burada elde etmek istediğim : F2 hücresinde hangi adres yazılı ise, bu adresin Namealani'nın kapsamı olarak tanımlanabilmesi !!!

 

[Ferhat Pazarçevirdi]

O zamana aşağıdaki kodu deneyiniz.

Sub Name_Tanimlamak()
Dim rg As Range
On Error Resume Next
Set rg = Range(Range("F2").Value)
If Err.Number <> 0 Then
    MsgBox "Hücredeki referansı gözden geçirin", vbCritical, "UYARI"
    Set rg = Nothing
    Exit Sub
Else
ActiveWorkbook.Names.Add _
                     Name:="Namealani", _
                     RefersTo:=Range(Range("F2").Value)
End If
Set rg = Nothing
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[baydeniro]

Teşekkürler

Sayın Ferhat Pazarçevirdi ve Korhan Ayhan yardımlarınız ve ilginiz için çok teşekkürler. Sağlıcakla kalın.