En tæller/timer der automatisk tjekker nogle koloneres indhold.

Lav en knap, i en af dine userforms, brug den til at starte og stoppe koden

denne i et module, ikke userforms, ark eller thisworkbook moduler

Option Explicit
Dim TjekTime As Date

Public Sub Tjek_OK()
    Dim Data As Variant, I As Integer
    Data = Worksheets("Ark1").Range("H16:H42")
    For I = 1 To UBound(Data)
        If Data(I, 1) <> "OK" Then
            MsgBox "Der mangler OK i celle(H" & I + 16 & ")"
            Exit For
        End If
    Next
    TjekTime = Now() + TimeSerial(0, 0, 10)
Application.OnTime TjekTime, "Tjek_OK"
End Sub

Public Sub StartTjek()
TjekTime = Now() + TimeSerial(0, 0, 10)
Application.OnTime Now(), "Tjek_OK"
End Sub
Public Sub StopTjek()
Application.OnTime TjekTime, "Tjek_OK", , False
End Sub

Du kan nøjes med disse 2, start med Tjek_OK og slut med StopTjek


Option Explicit
Dim TjekTime As Date

Public Sub Tjek_OK()
    Dim Data As Variant, I As Integer
    Data = Worksheets("Ark1").Range("H16:H42")
    For I = 1 To UBound(Data)
        If Data(I, 1) <> "OK" Then
            MsgBox "Der mangler OK i celle(H" & I + 16 & ")"
            Exit For
        End If
    Next
    TjekTime = Now() + TimeSerial(0, 0, 10)
Application.OnTime TjekTime, "Tjek_OK"
End Sub


Public Sub StopTjek()
Application.OnTime TjekTime, "Tjek_OK", , False
End Sub

Tak for hjælpen. Jeg vil teste programmet på mandag. Hvordan kan jeg gøre således at tjek starter automatisk når jeg åbner excel arket?

mvh
sarben

Du mener excel mappen ikk ??
sæt denne i samme modul

Public Sub Auto_Open()
call Tjek_OK
end sub

Hej kabbak

Tak for hjælp.

Et andet spørgsmål:

Jeg har en plc der tester et emne og genererer et csv fil hver gang den er færdig med en test. csv filen bliver lagt i samme mappe hver gang. Filen hedder et serienummer bestående af fire cifre, f.eks. 2563, 3562, 1235, osv.... Hvordan kan jeg få excel til at tjekke om der er kommet et nyt csv fil hvert 10. sekund og kopiere serienummeret til en textbox i userformet? Det er altså den csv fil der er blevet genert sidst, som jeg skal have kopieret til userform. Serienummererene er IKKE kronologiske.

Jeg håber at du kan hjælpe mig med opgaven.

Mvh
Sarben