با سلام من میخوام در یک رنج مثلا a3:a15
با کلیک بر روی هر سلول اطلاعات داخل آن در سلول b2 نمایش داده شود .
ممنون میشم کمکم کنید
کد:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if not intersect(activecell, Range ("A1:A15")) is nothing then
Range ("B2")= Activecell.value
End if
End Sub
کامنت