בדיקת כפילות בקבצי אופיס - מישהו יודע כיצד?

[נירוש]

יש לי מסמך אופיס ובו כתובות דוא"ל, ואני מעוניינת לבדוק מול מסמך אחר - איזה כתובת מופיעה בשניהם.
יש דרך לעשות זאת?
תודה

 

[5127109]

יש לי את זה (לפנות בפרטי כאן)

https://prog.co.il/threads/תוכנה-קלה-לסינון-כתובות-מייל-מטקסט-מעורבב.259874/

 

[נירוש]

יש לי את זה (לפנות בפרטי כאן)

https://prog.co.il/threads/תוכנה-קלה-לסינון-כתובות-מייל-מטקסט-מעורבב.259874/

תודה.
אני לא בטוחה שזה מה שאני צריכה.
אני לא צריכה הוצאה של מיילים מטקסט מעורבב והסרת כפילות שם, אני צריכה השוואה בין שני מסמכים - שלאחר ההשוואה יראה לי איזה מייל מופיע בשניהם [לדוגמא יסמן אותו בצהוב וכד'].

 

[moishy]

אוכל לכתוב לך מאקרו שיעשה את העבודה, לצורך כך יש להעלות מסמך דמה בתבנית במדוייקת של המסמכים שלך.

 

[נירוש]

בהתנדבות? תודה!
מדובר בקובץ אקסל פשוט. אני רוצה להשוות בין שני קבצי אקסל. [לא להתייחס לשאר השדות, אלא לבדוק רק האם הדוא"ל זהה].

 

[moishy]

בהתנדבות? תודה!

בודאי!
תעלו חוברת עבודה דמה.

 

[נירוש]

בודאי!
תעלו חוברת עבודה דמה.

תודה!
באיזה צורה זה יהיה הכי נח? אני רואה שיש הרבה אפשרויות לשמור את הקובץ CSV

 

[moishy]

לא משנה

 

[בר בי רב]

אם תכתוב מקרו אדרבה תוכל להוסיף למאגר שלי אם יהיה צורך ואם יהיה פופולרי
אבל חשבתי אולי אפשר ללכוד את הכתובות ולהמר את שני המסמכים עם הכתובות בלבד לטבלה ולסדר לפי א' ב' ואז לעשות את ההשוואה

 

[עיגול רבוע]

אפשר להעתיק את תוכנם של שני הקבצים לקובץ אחד.
אח"כ לעשות מיון.
ולראות את הרשומות הכפולות.
כמדומני שבאקסל אפשר מיד לראות מה הם הרשומות הכפולות.

 

[moishy]

סליחה על העיכוב.

בקשה קראו את ההוראות במאקרו:

Option Explicit

Sub Demo()

    Dim wbkB As Workbook
    Dim varSheetA As Variant
    Dim varSheetB As Variant
    Dim iRow As Long, xRow
    Dim counter As Long
    Dim strWorkbookToCompare As String
    Dim strCurrentDocumentRange As String
    Dim strSearchDocumentRange As String
   
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' כאן יש לכתוב את הנתיב המלא לקובץ שרוצים לבדוק בו כפילויות
    strWorkbookToCompare = "C:\Users\Desktop\file.xls"
   
    ' כאן יש לכתוב את הטווח שבו הנתונים בחוברת עבודה זו
    ' כגון: "B2:B50"
    strCurrentDocumentRange = "B2:B50"
   
    ' כאן יש לכתוב את הטווח שבו הנתונים בחוברת עבודה זו
    strSearchDocumentRange = "I2:I500"
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
    varSheetA = ActiveWorkbook.Worksheets(1).Range(strCurrentDocumentRange)
   
    Set wbkB = Workbooks.Open(strWorkbookToCompare)
    varSheetB = wbkB.Worksheets(1).Range(strSearchDocumentRange)

    For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)
        For xRow = LBound(varSheetB, 1) To UBound(varSheetB, 1)
            If (varSheetA(iRow, 1) = varSheetB(xRow, 1)) And (varSheetA(iRow, 1) <> "" And varSheetB(xRow, 1) <> "") Then
                ActiveWorkbook.Worksheets(1).Cells(xRow + 1, 9).Interior.Color = vbYellow
                counter = counter + 1
            End If
        Next xRow
    Next iRow

    MsgBox "סה''כ רשומות כפולות: " & counter, vbMsgBoxRight + vbMsgBoxRtlReading, "בודק כפילויות"
    wbkB.Close
   
End Sub

 

[נירוש]

בקשה קראו את ההוראות במאקרו:

​

תודה ויישר כח!
אפשר הסבר יותר פשוט - כיצד בדיוק משתמשים עם זה? היכן שמים אותו? והאם אי אפשר לעשות שיעבור על כל הקובץ, מבלי צורך לסמן לו מהיכן ועד היכן?
תודה!

 

[moishy]

יש לך שני קבצים באחד מהם הכתובות נמצאים בעמודה B ובשני בעמודה I.
את הקוד יש להכניס לקובץ עם הכתובות בעמודה B.
בקוד יש להגדיר את הנתיב המלא של הקובץ השני.
אם רוצים שהקוד יעבור על כל העמודות ניתן להזין את הטווח ככה: "B:B"

 

[נירוש]

תודה!!

 

[moishy]

עבד?

 

[נירוש]

אתפנה לזה בערב בעז"ה.
תודה!

 

[נירוש]

עבד?

מוציא הודעת שגיאה - רצ"ב תמונה:

 

[moishy]

יש להקיף את הנתיב בגרשיים:
"D:\abc.csv"

 

[נירוש]

יש להקיף את הנתיב בגרשיים:
"D:\abc.csv"

כך עשיתי, ועדיין מוציא הודעת שגיאה

 

[moishy]

כאשר המהדר נתקל בשגיאה בזמן ריצה, הקוד עוצר בשורה בה התרחשה השגיאה (מסומן בצהוב).
על מנת להריץ את הקוד מחדש, יש לעצור את הרצת הקוד ורק אח"כ ניתן להריץ את הקוד מחדש.
ניתן לעצור את הקוד ע"י לחיצה בו-זמנית על המקשים Ctrl+Pause/Break, או ע"י לחיצה על הריבוע הכחול (כפתור עצור) בעורך הקוד הVBE (למעלה בצד שמאל).