Tjek dato og en celle

Sub loopCellsBox()

Dim iRow1 As Integer 'Rækken (B) der arbejdes med
   
    iRow1 = 2 'Sæt hvilken række der startes fra
            'Overskrifter i række 1
    Tæl1 = 0
    Do While Range("A" & iRow1).Value <> "" 'Så længe der er data I kolonne "Datokolonnen"
       
        If Not Range("B" & iRow1).Value = "x" And Not Range("B" & iRow1).Value = "X" Then
        MsgBox "Ingen x i kolonne B ved Dato: " & Range("A" & iRow1).Value & vbCrLf & _
                      "Dette er i række " & iRow1
        Tæl1 = Tæl1 + 1
       
        End If
        iRow1 = iRow1 + 1 'Forbered læsning af næste række
    Loop 'Afslut loopet
            MsgBox "Ingen X ved Dato i kolonne B" & vbCrLf & _
            "I " & Tæl1 & " kolonner"


Dim iRow2 As Integer 'Rækken (C) der arbejdes med

    iRow2 = 2 'Sæt hvilken række der startes fra
            'Overskrifter i række 1
    Tæl2 = 0
    Do While Range("A" & iRow2).Value <> "" 'Så længe der er data I kolonne "Datokolonnen"

        If Not Range("C" & iRow2).Value = "x" And Not Range("C" & iRow2).Value = "X" Then
        MsgBox "Ingen x i kolonne C ved Dato: " & Range("A" & iRow2).Value & vbCrLf & _
                      "Dette er i række " & iRow2
        Tæl2 = Tæl2 + 1
        End If
        iRow2 = iRow2 + 1 'Forbered læsning af næste række
    Loop 'Afslut loopet
            MsgBox "Ingen X ved Dato i kolonne B" & vbCrLf & _
            "I " & Tæl2 & " kolonner"
   
End Sub

Sub loopCellsFarve()

Dim iRow1 As Integer 'Rækken der arbejdes med
   
    iRow1 = 2 'Sæt hvilken række der startes fra
            'Overskrifter i række 1
   
    Do While Range("A" & iRow1).Value <> "" 'Så længe der er data I kolonne "Datokolonnen"
       
        If Not Range("B" & iRow1).Value = "x" And Not Range("B" & iRow1).Value = "X" Then
        Range("B" & iRow1).Offset(0, -1).Interior.ColorIndex = 6 'farver Dato gul
        End If
        iRow1 = iRow1 + 1 'Forbered læsning af næste række
    Loop 'Afslut loopet


    Dim iRow2 As Integer 'Rækken der arbejdes med
   
    iRow2 = 2 'Sæt hvilken række der startes fra
            'Overskrifter i række 1
   
    Do While Range("A" & iRow2).Value <> "" 'Så længe der er data I kolonne "Datokolonnen"
       
        If Not Range("C" & iRow2).Value = "x" And Not Range("C" & iRow2).Value = "X" Then
        Range("C" & iRow2).Offset(0, -2).Interior.ColorIndex = 3 'farver Dato rød
        End If
        iRow2 = iRow2 + 1 'Forbered læsning af næste række
    Loop 'Afslut loopet
End Sub

Sub loopCellsN()
Dim iRow As Integer 'Rækken (N) der arbejdes med
    iRow = 4 'Sæt hvilken række der startes fra
    Tæl2 = 0
    Do While Range("A" & iRow).Value <> "" 'Så længe der er data I kolonne "Datokolonnen"
   
        If Not Range("N" & iRow).Value = "x" And Not Range("N" & iRow).Value = "X" Then
        Tæl = Tæl + 1
        List = List & Range("A" & iRow).Value & "  I række:  " & Range("A" & iRow).Row & vbCr
        End If
        iRow = iRow + 1 'Forbered læsning af næste række
       
    Loop 'Afslut loopet
            MsgBox "Ingen X i kolonne N" & vbCrLf & _
            "med Dato i kolonne A " & vbCrLf & _
            "I alt: " & Tæl & " Rækker" & vbCrLf & _
            " " _
            & vbCr & List
End Sub