Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Public t
Public t2
Sub aftellen()
Application.ScreenUpdating = False
t = DateAdd("s", 30, Time)
Blad1.Range("C2").Value = Format(30, "00:00:00")
Application.OnTime t, "aftellen"
StartTimer1
DoEvents
End Sub
Sub StartTimer1()
If Range("c2") > 0 Then
Range("C2").Value = Range("C2").Value - TimeValue("00:00:01")
t2 = DateAdd("s", 1, Time)
Application.OnTime t2, "StartTimer1"
End If
End Sub
Sub stoptimer()
Application.OnTime t2, "StartTimer1", , False
Application.OnTime t, "aftellen", , False
End Sub
Public t
Public t2
Sub StartTimer1()
If Range("c2") > 0 Then
Range("C2").Value = Range("C2").Value - TimeValue("00:00:01")
t2 = DateAdd("s", 1, Time)
Application.OnTime t2, "StartTimer1"
End If
End Sub
Sub Barcodes()
Application.ScreenUpdating = False
Sheets("Codes").Select
Range("A3:A400").ClearContents
Range("C3:c400").ClearContents
Range("C3:c400").ClearComments
Sheets("Huidig bestand").Select
Workbooks.Open Filename:="G:\Planning\" & Format(Date, "yyyy") & "\" & Range("D6").Value & "\" & Range("B10").Value
Opvragen_barcodes
t = DateAdd("S", 900, Time)
Blad3.Range("C2").Value = Format(900, "00:00:00")
Range("A2:C2").Select
With Selection
.VerticalAlignment = xlCenter
.Interior.PatternColorIndex = xlAutomatic
.Interior.Color = 5296274
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
End With
Application.OnTime t, "Barcodes"
StartTimer1
DoEvents
Application.ScreenUpdating = True
End Sub
Sub Opvragen_barcodes()
On Error Resume Next
Sheets(Format(Date, "ddd") & IIf(Format(Now, "hh:mm") < "14:00", " VM + Dag", " NM")).Select
For Each cl In Range("C20:C400")
If Left(cl, 2) = 99 Or Left(cl, 2) = 10 And cl.Offset(0, 6) = "RE" Then 'And Left(cl.Offset(0, 1), 2) = "LK" And cl.Offset(0, 6) = "RE" Then
cl.Copy Destination:=ThisWorkbook.Sheets("Codes").Range("A500").End(xlUp).Offset(1, 0)
cl.Offset(0, 1).Copy Destination:=ThisWorkbook.Sheets("Codes").Range("C500").End(xlUp).Offset(1, 0)
End If
Next
ActiveWorkbook.Close SaveChanges:=False
Sheets("Codes").Select
Range("A3:C51").Borders.LineStyle = xlContinuous
Range("A1").Select
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.