Sütun adı nasıl bulunur?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Sütun numarası 27 den küçükse sütun adını buluyorum.
zz = 5
[A2] = Chr(64 + zz)
Sütun numarası 26 dan büyükse sütun adını makro ile nasıl bulabilirim?
Saygılarımla

 

[Asri]

Hocam bu şekilde deneyiniz.

Function ColToNum(Columnnumber) As String

Dim ColumnLetter As String

ColumnLetter = Split(Cells(1, Columnnumber).Address, "$")(1)
 
ColToNum = ColumnLetter

End Function

 

[Tevfik_Kursun]

Sayın Asri Hocam,
İlginize çok teşekkür ederim.
Saygılarımla

 

[Asri]

Hocam, bu alternatifler de bulunsun.

Sub Number2Letter()
'PURPOSE: Convert a given number into it's corresponding Letter Reference
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
Dim ColumnNumber As Long
Dim ColumnLetter As String
'Input Column Number
  ColumnNumber = 115
'Convert To Column Letter
  ColumnLetter = Split(Cells(1, ColumnNumber).Address, "$")(1)
 
'Display Result
  MsgBox "Column " & ColumnNumber & " = Column " & ColumnLetter
 
End Sub
-------------------------------------------------------------
Sub Letter2Number()
'PURPOSE: Convert a given letter into it's corresponding Numeric Reference
'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
Dim ColumnNumber As Long
Dim ColumnLetter As String
'Input Column Letter
  ColumnLetter = "AG"
 
'Convert To Column Number
   ColumnNumber = Range(ColumnLetter & 1).Column
  
'Display Result
  MsgBox "Column " & ColumnLetter & " = Column " & ColumnNumber
    
End Sub

 

[Tevfik_Kursun]

Sayın Asri Hocam,
İşte şimdi tam istediğim oldu. İlginize çok teşekkür ederim.
Saygılarımla

 

[alicimri]

Alternatif

Sub Makro2()
MsgBox Replace(Replace(Cells(1, ActiveCell.Column).Address, "$", ""), "1", "")
End Sub

 

[Tevfik_Kursun]

Teşekkürler