Application.inputbox

[merakli_72]

mrb
Application.inputbox ile bir hücreye tıkladığımızda inputbox içinde =$A$156 şeklinde tıklanan hücrenin adresi yazıyor, ama mesela msgbox ile bu değeri yazdırdığımızda =$A$156 hücresindeki değer yazdırılıyor.
inputbox ile tıklanan hücrenin satır nosunu alabilirmiyiz

Teşekkürler

 

[hamitcan]

mrb
Application.inputbox ile bir hücreye tıkladığımızda inputbox içinde =$A$156 şeklinde tıklanan hücrenin adresi yazıyor, ama mesela msgbox ile bu değeri yazdırdığımızda =$A$156 hücresindeki değer yazdırılıyor.

Buraya kadar birşey anlamadım.

inputbox ile tıklanan hücrenin satır nosunu alabilirmiyiz?Teşekkürler

Sub satirno()
 a = InputBox("adres", , ActiveCell.Row)
End Sub

 

[mesudiye_052]

Selamlar;

Public Sub hücre()
Dim alan As Range
Set alan = Application.InputBox(prompt:="hücreyi seç", Default:=ActiveCell, Type:=8)
MsgBox alan.Address
Set alan = Nothing
End Sub

 

[merakli_72]

Sayın mesudiye_052 çok teşekkür ederim
Sayın hamitcan inputbox ile tıklanan hücre aktif hücre olmadığı için o şekilde tıklanan hücrenin satır nosunu alamıyoruz

Saygılarımla