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

[mfr]

با سلام ... میخوام با کلیک بر روی مثلا 56 یا 59 یا هر یک از سلولهای ستون a در شیت form مقدار آن در شیت data پیدا شده و به همان سلول شیت data پرش کنیم .


البته با ماکرو ..... بسیار بسیار ممنون از اساتید بزرگوار

[misammisam]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("A:A")) Is Nothing Then
If Not (ActiveCell.Value = Empty) Then
lastRow = Sheet2.Range("A:A").Cells.Find(ActiveCell.Value, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookAt:=xlWhole).Row
Sheet2.Activate
Sheet2.Range("a" & lastRow).Select
End If
End If
End Sub 

[mfr]

بسیار بسیار ممنون از اساتید بزرگوار

[Amir Ghasemiyan]

بسیار بسیار ممنون از اساتید بزرگوار

دوست عزيز اگر پاسخ سوالتون رو دريافت كرديد لطفا تاپيك رو حل شده كنيد