کد vba برای سرچ کردن

[javadsar]

مدیران و اساتید عزیز سلام و عرض ادب..........لطفا کدی ارائه فرمایید که در محیط اکسل با اجرای ماکروی مربوطه مقدار سلول a1 شیت 1 را در شیت 2 پیدا کند . ممنونم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[امين اسماعيلي]

با درود
تو کل شیت یا تو ستون خاص یا تو محدوده خاص شیت 2 بگرده پیدا کنه

[javadsar]

با درود
تو کل شیت یا تو ستون خاص یا تو محدوده خاص شیت 2 بگرده پیدا کنه

آره عزیزم تو کل شیت بگرده...ممنون

[Javid Mokhtari]

با سلام.
برای شروع میتونید از کد زیر استفاده کنید:

Sheets("Sheet2").Select
Sheet2.Cells.Find(What:=Sheet1.Cells(1, 1), LookAt:=xlPart).Activate 

[امين اسماعيلي]

با درود
ببین کد زیر بدردتون میخوره

موارد سل A1 شیت 1 رو میره تو شیت 2 پیدا میکنه و یه کامنت براش میزاره که من اینجام - که میشه حالا بگیم رنگیش کنه یا هرچی

این کد هار رو توی یه ماژول کپی کنین و اجرا کنین سوالی بود در خدمتم - موردی هم که دوست عزیزمون در بالا اشاره کردن کاملا درسته و استارت کار هم از همین مطلبه

Sub Find()
Application.ScreenUpdating = False
On Error Resume Next

             With Sheet2.Cells

                 .ClearComments
                 End With
Dim lCount As Long

Dim rFoundCell As Range

Dim LastRow As Long

    If WorksheetFunction.CountA(Cells) > 0 Then

                LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

              End If


    Set rFoundCell = Range("A1")

        For lCount = 1 To LastRow

            Set rFoundCell = Sheet2.Cells.Find(What:=Sheet1.Range("A1").Value, After:=rFoundCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

                

             With rFoundCell

                

                 .AddComment Text:=Sheet1.Range("A1").Value & " is here "

             End With

            

        Next lCount
Application.ScreenUpdating = True
End Sub

[javadsar]

ممنونم

[Amir Ghasemiyan]

دوست عزيز در صورتي كه به جواب مورد نظرتون رسيديد گزينه حل شد (تيك سبز رنگ) در پست اولتون رو كليك كنيد
با تشكر