[حل شده] کلیک بر روی یک سلول و اعمال تغییرات در سلولی دیگر

[anf-b]

سلام دوستان عزیز
امیدوارم حالتون خوب باشه
میخواستم اگه ممکنه من رو راهنمایی کنید
میخوام وقتی روی سلول d4 کلیک میشه، یک رقم به ارقام سلول d1 اضافه بشه
نمیدونم برای اینکار هم باید از ماکرو استفاده کرد و یا اینکه راه حل دیگه ای هم داره؟ ممنون میشم بنده رو راهنمایی کنید
با تشکر از شما

[amir_ts]

با سلام
کد زیر رو در شیت مورد نظر وارد کنید.

[LEFT]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Integer
n = 1
    If Target.Address = "$D$4" Then
          Range("d1").Value = Range("d1").Value + n
    End If
End Sub
[/LEFT]