Hücre adını değişkene atamak

[ØjousefØ]

Merhaba,

Aktif hücrenin adını değişkene atamak istiyorum. Hücre adına göre gereksiz gördüğüm sütunları koşul yapısıyla adına göre silmek istiyorum. Yardımcı olursanız sevinirim.

Teşekkürler.

 

[Orion1]

Buyurun.

Sub aktifhucreadi59()
Dim hcr_adi As String
hcradi = ActiveCell.Address
MsgBox hcradi
End Sub

 

[ØjousefØ]

Teşekkürler ama ad yöneticisinden hücreye atamış olduğum adı değişkene atamak istiyorum.

 

[Orion1]

test adında bir adınız olsun.

MsgBox Range("test").Address(False, False)

 

[Korhan Ayhan]

Alternatif;

Sub Makro()
    On Error Resume Next
    Veri = ActiveCell.Name.Name
    On Error GoTo 0
    If Not IsEmpty(Veri) Then MsgBox Veri
End Sub

 

[Orion1]

dosyadaki adları listelemek için.

Sub adlar59()
For i = 1 To ThisWorkbook.Names.Count
    MsgBox ThisWorkbook.Names(i).Name
Next
End Sub

 

[ØjousefØ]

Cevaplar için çok teşekkür ederim

Alternatif;

Sub Makro()
    On Error Resume Next
    Veri = ActiveCell.Name.Name
    On Error GoTo 0
    If Not IsEmpty(Veri) Then MsgBox Veri
End Sub

Özellikle bu tam istediğim cevap oldu tekrardan teşekkürler Korhan Bey.