Seçili Alan Adresini Yazdırmak

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kod ile Q18 hücresine aktif hücresini yazdırmak mümkün. Peki Cursör/İmleç B4:E6 alanı seçili ise bunu adresi yazdırmak mümkün mü ?

Sub qwerty()
Range("Q18") = ActiveCell.Address
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi denedinizmi?

=Selection.Cells.Address
veya
=Selection.Address
iki şekildede olacaktır.

 

[baydeniro]

Çok teşekkürler PLİNT. aynen bu şekilde oldu. Emeğinize sağlık. Sağlıcakla kalın.