انتقال محتویات یک سلول به سلول دیگر با یک کلیک

[sanjesh_88]

سلام
من یک ستون دارم که اسامی افراد توی آن نوشته شده است حالا می خوام وقتی روی نام هر فرد کلیک می کنم اسم همان فرد در سلول h2 نمایش داده شود . این کار را می خوام فقط با کلیک کردن انجام بشه . نمی خوام کومبواکس باز بشه . با تشکر

[iranweld]

با سلام

کدهای ذیل را در قسمت کدنویسی sheet1 کپی کنید


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

endRow = Cells(Rows.Count, "A").End(xlUp).Row

If Not Intersect(Target, Me.Range("a2:a" & endRow)) Is Nothing Then

Range("h2") = Target

End If

End Sub

19769

[sanjesh_88]

ممنون