کد 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]

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