תעשה גיליון בקריאה עם כל הרצף ו vlookupיש לי טבלה עם נתונים של קבלות, ואני רוצה קוד שיעבור ויבדוק אם יש רצף של מספרי רבלות או שיש חסרים.
יש איך לעשות זאת באקסל (מאקרו / קוד) ?
תודה
Sub Demo()
Dim lngCounter As Long
Dim c As Range, rng As Range
Set rng = Range("A1:A" & Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row)
For Each c In rng
If c.Row > rng.Row Then
If c.Value <> c.Offset(-1, 0).Value + 1 Then
c.Interior.Color = RGB(255, 0, 0)
c.Offset(-1, 0).Interior.Color = RGB(255, 0, 0)
lngCounter = lngCounter + 1
End If
End If
Next
If lngCounter > 0 Then
If lngCounter = 1 Then
MsgBox "חסר קבלה אחת!", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "בדיקת רצף"
Else
MsgBox "חסרים " & lngCounter & " קבלות", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "בדיקת רצף"
End If
Else
MsgBox "הבדיקה הושלמה בהצלחה." & vbCrLf & "לא נמצאו קבלות חסרות.", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "בדיקת רצף"
End If
End Sub
אפשר גם בנוסחה אם מעניין אותך לשמוע...יש לי טבלה עם נתונים של קבלות, ואני רוצה קוד שיעבור ויבדוק אם יש רצף של מספרי רבלות או שיש חסרים.
יש איך לעשות זאת באקסל (מאקרו / קוד) ?
תודה
מעניין אותיאפשר גם בנוסחה אם מעניין אותך לשמוע...
מצו"ב קובץ עם 3 אפשרויותמעניין אותי
שעות אחרונות! אל תחמיצו!!!
מנוי פרימיום באתר פרוג, יקפיץ את המוניטין שלך לקהל גדול שאסור לך להחמיץ!
ועכשיו בהזדמנות, מבצע פסח ממשיך לשעות בודדות 10% הנחה ברכישת מנוי שנתי!
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קכו
א שִׁיר הַמַּעֲלוֹת בְּשׁוּב יְהוָה אֶת שִׁיבַת צִיּוֹן הָיִינוּ כְּחֹלְמִים:ב אָז יִמָּלֵא שְׂחוֹק פִּינוּ וּלְשׁוֹנֵנוּ רִנָּה אָז יֹאמְרוּ בַגּוֹיִם הִגְדִּיל יְהוָה לַעֲשׂוֹת עִם אֵלֶּה:ג הִגְדִּיל יְהוָה לַעֲשׂוֹת עִמָּנוּ הָיִינוּ שְׂמֵחִים:ד שׁוּבָה יְהוָה אֶת (שבותנו) שְׁבִיתֵנוּ כַּאֲפִיקִים בַּנֶּגֶב:ה הַזֹּרְעִים בְּדִמְעָה בְּרִנָּה יִקְצֹרוּ:ו הָלוֹךְ יֵלֵךְ וּבָכֹה נֹשֵׂא מֶשֶׁךְ הַזָּרַע בֹּא יָבוֹא בְרִנָּה נֹשֵׂא אֲלֻמֹּתָיו: