tıkladığım hücreleri yazdırmak

[yNsr43]

merhaba arkadaşlar sadece "a5:a50" aralığında mause ile tıklağıgım hücreyi "b1" e yazsın istiyorum aşağdaki kodu sınırlayabilirmiyiz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("sayfa1").Range("b1") = Cells(ActiveCell.Row, "A")
End Sub

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A5:A50]) Is Nothing Then Exit Sub
Range("B1") = Target.Value
End Sub

 

[yNsr43]

teşekkürler hocam elinize sağlık