שלום ,
יצרתי קוד שמחפש ערך של תא מסויים בגיליון אחר ע"י CTRL+F , ובמידה והערך קיים מעתיק אותו לאותו תא בו קיים הערך שחיפשתי.
זאת על מנת למנוע צורות כתיבה שונות של אותו ערך ושערכים זהים ימצאו בעזרת V-LOOKUP.

כלומר נניח אני בגיליון א' בתא A15 ויש בו את הערך 45839338 , ארצה לחפש האם הערך קיים בגיליון ב'. אבצע העתקה של הערך , אעבור לגיליון ב' ואלחץ על קונטרול אפ , ואדביק את הערך. אבצע חיפוש ואם קיים הערך , אעתיק את התא ואדביק את הערך באותו תא בגיליון א' שאותו חיפשתי. כך אם יש שינויים קלים כגון גודל או צורה , לאחר ההעתקה הם יהיו זהים.

הבעיה היא שכאשר הערך לא נמצא בגיליון השני , אני מקבל הודעת שגיאה.
איך אני יכול לגרום לכך שלא אקבל הודעת שגיאה וזה פשוט יחזור לגיליון הראשון או אפילו יותר טוב , יעלה לי פופ אפ שאומר שהערך לא נמצא?

מצורף הקוד:



Dim x As String
x = ActiveCell.Text
ActiveCell.Copy
Sheets("ëîåú îùåå÷ú").Select
Range("A1").Select
Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
ActiveCell.Copy
Sheets("òöé àøéæä").Select
ActiveSheet.Paste
Range("A2").Select

End Sub



תודה מראש

קוד:

     Dim x As String
On Error GoTo Handler_Err

x = ActiveCell.Text
    ActiveCell.Copy
    Sheets("ëîåú îùåå÷ú").Select
    Range("A1").Select
    Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        Application.CutCopyMode = False
        ActiveCell.Copy
        Sheets("òöé àøéæä").Select
        ActiveSheet.Paste
        Range("A2").Select
    
Handler_Exit:
Exit Sub	 
Handler_Err:
MsgBox  err.Description  ,vbOKOnly + vbInformation ,"Error on page"	 
		  Err.Clear
Resume Handler_Exit
End Sub

בהצלחה