יש לי את זה (לפנות בפרטי כאן)
https://prog.co.il/threads/תוכנה-קלה-לסינון-כתובות-מייל-מטקסט-מעורבב.259874/
בודאי!בהתנדבות? תודה!
תודה!בודאי!
תעלו חוברת עבודה דמה.
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
בקשה קראו את ההוראות במאקרו:
כך עשיתי, ועדיין מוציא הודעת שגיאהיש להקיף את הנתיב בגרשיים:
"D:\abc.csv"
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
הנחת ענק!
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
24.06
י"ח סיוון
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
7.05
כ"ט ניסן
#רקבפרוג
הרצאה מרתקת:
מלחמה מבעד לעדשה
עם אילן לורנצי
שיתוף מטלטל ומיוחד על צילומים בזמן מלחמה ותיעודים יותאי דופן זווית יוצאת דופן מתוך עזה והעוטף ועד הצפון
לתלמידים ובוגרים בלבד!
תהילים פרק קלב
א שִׁיר הַמַּעֲלוֹת זְכוֹר יְהוָה לְדָוִד אֵת כָּל עֻנּוֹתוֹ:ב אֲשֶׁר נִשְׁבַּע לַיהוָה נָדַר לַאֲבִיר יַעֲקֹב:ג אִם אָבֹא בְּאֹהֶל בֵּיתִי אִם אֶעֱלֶה עַל עֶרֶשׂ יְצוּעָי:ד אִם אֶתֵּן שְׁנַת לְעֵינָי לְעַפְעַפַּי תְּנוּמָה:ה עַד אֶמְצָא מָקוֹם לַיהוָה מִשְׁכָּנוֹת לַאֲבִיר יַעֲקֹב:ו הִנֵּה שְׁמַעֲנוּהָ בְאֶפְרָתָה מְצָאנוּהָ בִּשְׂדֵי יָעַר:ז נָבוֹאָה לְמִשְׁכְּנוֹתָיו נִשְׁתַּחֲוֶה לַהֲדֹם רַגְלָיו:ח קוּמָה יְהוָה לִמְנוּחָתֶךָ אַתָּה וַאֲרוֹן עֻזֶּךָ:ט כֹּהֲנֶיךָ יִלְבְּשׁוּ צֶדֶק וַחֲסִידֶיךָ יְרַנֵּנוּ:י בַּעֲבוּר דָּוִד עַבְדֶּךָ אַל תָּשֵׁב פְּנֵי מְשִׁיחֶךָ:יא נִשְׁבַּע יְהוָה לְדָוִד אֱמֶת לֹא יָשׁוּב מִמֶּנָּה מִפְּרִי בִטְנְךָ אָשִׁית לְכִסֵּא לָךְ:יב אִם יִשְׁמְרוּ בָנֶיךָ בְּרִיתִי וְעֵדֹתִי זוֹ אֲלַמְּדֵם גַּם בְּנֵיהֶם עֲדֵי עַד יֵשְׁבוּ לְכִסֵּא לָךְ:יג כִּי בָחַר יְהוָה בְּצִיּוֹן אִוָּהּ לְמוֹשָׁב לוֹ:יד זֹאת מְנוּחָתִי עֲדֵי עַד פֹּה אֵשֵׁב כִּי אִוִּתִיהָ:טו צֵידָהּ בָּרֵךְ אֲבָרֵךְ אֶבְיוֹנֶיהָ אַשְׂבִּיעַ לָחֶם:טז וְכֹהֲנֶיהָ אַלְבִּישׁ יֶשַׁע וַחֲסִידֶיהָ רַנֵּן יְרַנֵּנוּ:יז שָׁם אַצְמִיחַ קֶרֶן לְדָוִד עָרַכְתִּי נֵר לִמְשִׁיחִי:יח אוֹיְבָיו אַלְבִּישׁ בֹּשֶׁת וְעָלָיו יָצִיץ נִזְרוֹ: