Aktif olan hücrenin sutun adı..

[Ziynettin]

Merhaba,
Aşağıdaki kod aktif hücrenin kaçıncı sutun olduğu bulunuyor.

Sub sutun_no()
MsgBox ActiveCell.Column
End Sub

Arkadaşlar yapmak istediğim, hangi hücre aktif ise aktif hücrenin sutun adını bulmak. Yardımlarınızdan dolayı şimdiden teşekkür ederim.

 

[apocalyt]

örnek dosya eklerseniz daha çabuk çözüme ulaşabilirsiniz..

 

[Ziynettin]

Sayın apocalyt, ilgin için teşekkür ederim.
Boş bir excel sayfasında, örneğin E7 hücresi aktif ise yukarıdaki kod ile sutun numarası 5, yapılması istenen sutun adı: "E" olarak bulmak

 

[apocalyt]

şunu deneyin..

Sub deneme()
x = Mid(ActiveCell.Columns.Address, 2, 1)
MsgBox x
End Sub

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

MsgBox "Aktif Hücre : " & ActiveCell.Address(0, 0)

 

[Ziynettin]

Teşekkür ederim.
İyi çalışmalar.

 

[ZorBey_]

Merhaba
tasmed
İyi Çalışmalar
Sitedeki Arkadaşların
Hazırladığı Bir Örnek
Arşivimde Vardı.

 

[Zeki Gürsoy]

Bu da başka bir yolu...

MsgBox Chr(64 + ActiveCell.Column)

 

[Korhan Ayhan]

Günaydın,

Zeki bey sizin önerdiğiniz kodu "IV65536" hücresinde denediğimde hata veriyor. Ayrıca "Z" sütunundan sonraki sütunlarda farklı karakterler döndürüyor.

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Sub Aktif_Sutun()
    MsgBox Replace(ActiveCell.Address(0, 0), ActiveCell.Row, "")
End Sub

 

[Ziynettin]

Korhan Bey minnettarım. Aradığım kod buydu. Paylaşımda bulunun arkadaşlara çok çok teşekkür ederim.
İyi çalışmalar...

 

[halit3]

Buda alternetif olsun

kod:

MsgBox Split(ActiveCell.Address, "$")(1)

 

[Hacı Bayram ÖZKAN]

Merhabalar konu açmadan giriyorum, ama belirli bir aralıkta olan hücreler için nasıl yapılır. Örneğin Stok No yazısının altında bulunan hücreler için mesaj almak istiyorum. Stok No = D7 de, stoklar ise D8,D9,D10 gibi Mesajda Stoklar D8 ile D10 arasındadır şeklinde istiyorum. Teşekkürler.