DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SütunAdı As String
SütunAdı = Split(ActiveCell.Address, "$")(1)
MsgBox "Satır No" & vbTab & ": " & ActiveCell.Row & Chr(10) & _
"Sütun Adı" & vbTab & ": " & SütunAdı & Chr(10) & _
"Sütun No" & vbTab & ": " & ActiveCell.Column
End Sub
Soru basit olunca örnek dosyaya bile bakmadan hemen atladım:
"Hah ben bunu biliyorum, kimseye kaptırmayayım"
:biggrin: