Hücre Adını Msgbox Yazdırmak

[hakanbolat]

Arkadaşlar merhaba, Hücreye tıkladığımda adını (a1 ise A1) (c18 ise C18) olarak msgbox uyarlayabilirmiyiz. Teşekkürler.

 

[Civan Jack]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ActiveCell.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ActiveCell.Cells.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Application.ActiveCell.Address
End Sub

 

[hakanbolat]

Yardımınız için teşekkürler, Ama $C$18 olarak değilde direk C18 yapabilirmiyiz, çünkü ben aşağıdaki kodda görüleceği üzere bir veriyi kopyalacağım ve soldaki veri dolu ise hemen sağına buraya kopyala komutu yapmaya çalışıyorum.

Columns("E:E").Select
Selection.Copy

Range("IV2").Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(0, 1).Select

Columns("I:I").Select --> Buradaki aralık değişken olacak
ActiveSheet.Paste
Application.CutCopyMode = False

 

[Civan Jack]

Anladım Hakan Bey, ama neden hücreye tıkladığınızda o hücrenin adresini msgboxta görmek istiyorsunuz onu anlamadım.
Konu başlığınız; Hücre Adını Msgbox Yazdırmak bende ona göre bir çözüm yazdım.
Neyse, VBA konusunda pek bir bilgim yok açıkcası, daha yeni yeni birşeyler öğrenmeye başlıyorum bende.
Sitede yapmak istediğiniz işlemle ilgili birkaç örnek görmüştüm. Dediğim gibi yeterince bilgiye sahip değilim. Umarım arkadaşlar yardımcı olurlar.

Teşekkür ederim.

 

[Orion1]

MsgBox ActiveCell.Address(rowabsolute:=False, columnabsolute:=False)

 

[Civan Jack]

Teşekkür ederim Evren Bey.

 

[hakanbolat]

Yardımlarınız için çok teşekkürler,istediğim sonuca ulaştım, Sayın Civan bey, sorusuna gelince, asıl amacım Msgbox yazdırmak değil,hücreyi nasıl nespit ederim,tespit ettiğim hücreyede verileri nasıl yerleştirebilirimdi,sayenizde çözdüm.

 

[Civan Jack]

Çok afedersiniz, benim anlayışsızlığıma verin ama yine anlamadım.
Hücreleri tespit etmek için illaki msgboxta mı görüntülemeniz gerekiyor.
Zaten görünmüyor mu ? Tespit ettiğiniz hücreyede verileri nasıl yerleştirebileceğinizin sorusuda aynı şeklide.

Neyse dediğim gibi anlayışsızlığıma verin lütfen.
Çalışmanızı görebilseydim belki bu durum ortadan kalkabilirdi.