با سلام
ضمن تشکر از دوست خوبم جناب آقای قاسمیان و کسب اجازه از ایشان
با مقداری تغییر در کد ایشان مشکل کپی شدن داده های ناخواسته حل میشود.
در دستور زیر در صورتیکه در هر یک از خانه های ستون A کلیک کنید مقدار مربوطه در شیت دو کپی میشود و برای جابجایی و حرکت میتوانید از دیگر ستونها استفاده نمایید.
کد:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mm = Split(Target.Address, "$")(1)
If mm <> "A" Then
Exit Sub
Else
L = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row
R = Range(Target.Address).Row
Range("B" & R & ":M" & R).Copy Destination:=Sheet2.Range("A" & L + 1)
End If
End Sub
با تشکر میر
علاقه مندی ها (Bookmarks)