mouse ile seçtiğim bir aralığın adresi nasıl bulunur

[modoste]

merhaba sayın hocalarım
AU256:AU400 aralığını mouse ile seçtiğimde ekranda biryerde AU256:AU400 yazdığı bir ayar var mı
mesela 11R x 26C gibi yazı en sol ütte çıkıyo ama kaç satır ve sütun seçtiğin yazıyo.

 

[modoste]

aralığı seçip sağ tıklayıp mad tanımla dediğimde seçtiğim aralıpın adresi görünüyo
işte daha pratik bir yöntem varmı mouse ile seçtiğimde biryerde beliriyoru mu

 

[Merhum İdris SERDAR]

.

Bu olur mu?

Sub macro1()
  [A1] = Selection.Address
End Sub

.

 

[modoste]

sayın hocam
çözüm olan herşey olur bu sefer başka yöntemler varsa onlarıda bekliyorum

 

[Korhan Ayhan]

Alternatif;

İlgili sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Sayfada mouse ile hücre seçimi yaptığınızda excelin alt taraftaki görev çubuğunda (StatusBar) sol tarafta size bildirim görünecektir.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.StatusBar = "Seçtiğiniz Alanın Adresi : " & Selection.Address
End Sub

Aşağıdaki kodları ise ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulayınız. Burada ki kodlar ise başka dosyaya geçtiğinizde ya da exceli kapattığınızda StatusBar bölümünü eski haline getirecektir.

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.StatusBar = False
End Sub

Private Sub Workbook_Deactivate()
    Application.StatusBar = False
End Sub

 

[modoste]

Teşekkür ederim Korhan Hocam

 

[halit3]

Bir alternatif kod

Sub makro2()
MsgBox ActiveWindow.RangeSelection.Address
End Sub

not: kodu şöyle denermisiniz
kodu bir komut duğmesine bağlayınız ve sayfaya bir adet resim ekleyiniz imleç resimin üzerindeyken (resim seçili iken) komut duğmesine tıklayınız.
sonucu gözlemleyin.