עזרה באקסל בדיקת רצף קבלות

[ארי4791]

יש לי טבלה עם נתונים של קבלות, ואני רוצה קוד שיעבור ויבדוק אם יש רצף של מספרי רבלות או שיש חסרים.
יש איך לעשות זאת באקסל (מאקרו / קוד) ?
תודה

 

[אפר]

יש לי טבלה עם נתונים של קבלות, ואני רוצה קוד שיעבור ויבדוק אם יש רצף של מספרי רבלות או שיש חסרים.
יש איך לעשות זאת באקסל (מאקרו / קוד) ?
תודה

תעשה גיליון בקריאה עם כל הרצף ו vlookup

 

[ארי4791]

יש מצב לדוגמא?
תודה מראש

 

[moishy]

לא פירטת מה אתה מצפה שיקרה אם חסר קבלה...

בהנחה שהקבלות נמצאות בעמודה A החל משורה 1 (אם לא יש לשנות את הקוד בשורה 5 בהתאם.

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

 

[מאסטר באקסל]

יש לי טבלה עם נתונים של קבלות, ואני רוצה קוד שיעבור ויבדוק אם יש רצף של מספרי רבלות או שיש חסרים.
יש איך לעשות זאת באקסל (מאקרו / קוד) ?
תודה

אפשר גם בנוסחה אם מעניין אותך לשמוע...

 

[ארי4791]

אפשר גם בנוסחה אם מעניין אותך לשמוע...

מעניין אותי

 

[אפר]

מעניין אותי

מצו"ב קובץ עם 3 אפשרויות
עיצוב מותנה - מדגיש את הרשומה לאחר החור
עמודה סמוכה - על אותו בסיס מחזירה False על הערך הראשון אחרי החור
VLOOKUP - עוזר גם לא לפי הסדר בגיליון 2

 

[שמשי פישער]

לא הבנתי מה הביע?

 

[מאסטר באקסל]

אפשר גם בנוסחה אם מעניין אותך לשמוע...

מעניין אותי

בכבוד