Excel de Hücreye Ad verme

[hakanbolat]

Excel de Hücreye Ad vermeyi biliyorum ama ben A5 Hücresinden A5000 Hücresine kadar
Ad vermem gerekiyor, Hücre Adına :
A5 : HKN_1
A6 : HKN_2
A7 : HKN_3 gibi A5000 hücresine kadar sıralı gitmesini istiyorum,bunu manuel yapmak
çok zor, otomatik yapma imkanımız varmı,makroylada yapılabilinir mi, Şimdiden yardımlarınız
için teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Ad_Tanımla()
    Dim X As Long
    
    For X = 5 To 5000
        ActiveWorkbook.Names.Add Name:="HKN_" & X - 4, RefersToR1C1:="=Sayfa1!R" & X & "C1"
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hakanbolat]

Çok Teşekkürler, Tam istediğim gibi..