کپی با موس

[سهیل نصرت آبادی1]

سلام دوستان
میخوام رو هر عدد که کلیک کردم با موس همون عدد به شیت 2 و داخل سلول مورد نظر انتقال پیدا کند

[iranweld]

با سلام

در فایل پیوست بر روی هر سلول دوبل کلیک کنید در شیت بعدی در سلول متناظر همان سلول کپی میگردد



- - - Updated - - -

اگر هم فقط سلولهای ستون g بایستی به شیت بعد منتقل شوند کد را بدین صورت اصلاح کنید

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 If Not Intersect(Target, Me.Range("g1:g1000")) Is Nothing Then

aa = ActiveCell.Address

ActiveCell.Copy Destination:=Sheet2.Range(aa)

End If

End Sub 

[سهیل نصرت آبادی1]

سلام ممنون بابت پاسختون
میخوام تو شیت یک اگر عدد 10 انتخاب شد کپی بشه تو شیت دو سلول j5
یعنی اعدادی رو که بصورت پراکنده تو شیت یک انتخاب میکنم بترتیب تو شیت 2 داخل سلول j5 به بعد قرار بگیره

[iranweld]

فایل پیوست را بررسی کنید