Inputbox til bemærkning, hvis der er gået over en time siden sidste tjek
Hej,Jeg er kommet i et lille problem, jeg skal lave en inputboks, som kommer frem, hvis der er gået over en time siden den sidste tjek.
Her er hele koden som den skal lægges i.
Private Sub chkEjfe_Change()
If chkEjfe.Value = True Then
txtGen1.Visible = True
lblFe1.Visible = True
cmbFe.Visible = True
txtGen2.Visible = True
lblFe2.Visible = True
cmbFe2.Visible = True
txtBemærk.Visible = True
Else
txtGen1.Visible = False
lblFe1.Visible = False
cmbFe.Visible = False
txtGen2.Visible = False
lblFe2.Visible = False
cmbFe2.Visible = False
txtBemærk.Visible = False
End If
End Sub
Private Sub chkEjnon_Change()
If chkEjnon.Value = True Then
txtGen1.Visible = True
lblNon1.Visible = True
cmbNon.Visible = True
txtGen2.Visible = True
lblNon2.Visible = True
cmbNon2.Visible = True
txtBemærk.Visible = True
Else
txtGen1.Visible = False
lblNon1.Visible = False
cmbNon.Visible = False
txtGen2.Visible = False
lblNon2.Visible = False
cmbNon2.Visible = False
txtBemærk.Visible = False
End If
End Sub
Private Sub chkEjstain_Change()
If chkEjstain.Value = True Then
txtGen1.Visible = True
lblStain1.Visible = True
cmbStain.Visible = True
txtGen2.Visible = True
lblStain2.Visible = True
cmbStain2.Visible = True
txtBemærk.Visible = True
Else
txtGen1.Visible = False
lblStain1.Visible = False
cmbStain.Visible = False
txtGen2.Visible = False
lblStain2.Visible = False
cmbStain2.Visible = False
txtBemærk.Visible = False
End If
End Sub
Private Sub chkSent_Click()
If chkSent.Value Then
txtBemærk.Visible = True
Else
txtBemærk.Visible = False
End If
End Sub
Private Sub cmdAnnuller_Click()
Worksheets("Forside").Activate
Unload Me
End Sub
Private Sub cmdGem_Click()
If cmbProdukt.Text = "" Then
MsgBox "Husk at vælge produkt!"
cmbProdukt.SetFocus
Exit Sub
End If
If cmbFe.Visible = True Then
If cmbFe.Text = "" Then
MsgBox "Er første Fe Test OK?"
cmbFe.SetFocus
Exit Sub
End If
End If
If cmbFe2.Visible = True Then
If cmbFe2.Text = "" Then
MsgBox " Er anden Fe test OK?"
cmbFe2.SetFocus
Exit Sub
End If
End If
If cmbNon.Visible = True Then
If cmbNon.Text = "" Then
MsgBox "Er første Non Fe test OK?"
cmbNon.SetFocus
Exit Sub
End If
End If
If cmbNon2.Visible = True Then
If cmbNon2.Text = "" Then
MsgBox "Er anden Non Fe test OK?"
cmbNon2.SetFocus
Exit Sub
End If
End If
If cmbStain.Visible = True Then
If cmbStain.Text = "" Then
MsgBox " Er første Stainless test OK?"
cmbStain.SetFocus
Exit Sub
End If
End If
If cmbStain2.Visible = True Then
If cmbStain2.Text = "" Then
MsgBox "Er anden Stainless test OK?"
cmbStain2.SetFocus
Exit Sub
End If
End If
If txtBemærk.Visible = True Then
If txtBemærk.Text = "" Then
MsgBox "Husk at skrive en bemærkning!"
txtBemærk.SetFocus
Exit Sub
End If
End If
If txtInit.Text = "" Then
MsgBox "Husk at indtaste dine egne Initialer"
txtInit.SetFocus
Exit Sub
End If
Worksheets("Metaldetektor L5").Activate
Range("A2").Select
If Range("A2").Value = "" Then
Range("A2").Activate
Else
Range("A2").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If
With ActiveCell
.Value = txtLinje.Text
.Offset(0, 1).Value = CDate(txtDatodag.Text)
.Offset(0, 2).Value = txtTid.Text
.Offset(0, 3).Value = cmbProdukt.Text
.Offset(0, 4).Value = txtFe.Text
If chkOkfe.Value = True Then
.Offset(0, 5).Value = "Ok"
End If
If chkEjfe.Value = True Then
.Offset(0, 5).Value = "Ej ok"
End If
.Offset(0, 6) = cmbFe.Text
.Offset(0, 7) = cmbFe2.Text
.Offset(0, 8).Value = txtNon.Text
If chkOknon.Value = True Then
.Offset(0, 9).Value = "Ok"
End If
If chkEjnon.Value = True Then
.Offset(0, 9).Value = "Ej ok"
End If
.Offset(0, 10).Value = cmbNon.Text
.Offset(0, 11).Value = cmbNon2.Text
.Offset(0, 12).Value = txtStain.Text
If chkOkstain.Value = True Then
.Offset(0, 13).Value = "Ok"
End If
If chkEjstain.Value = True Then
.Offset(0, 13).Value = "Ej ok"
End If
.Offset(0, 14).Value = cmbStain.Text
.Offset(0, 15).Value = cmbStain2.Text
.Offset(0, 16).Value = txtFeud.Text
.Offset(0, 17).Value = cmbFetest1.Text
.Offset(0, 18).Value = txtNonud.Text
.Offset(0, 19).Value = cmbNontest1.Text
.Offset(0, 20).Value = txtStainud.Text
.Offset(0, 21).Value = cmbStaintest1.Text
.Offset(0, 22).Value = cmbFetest2.Text
.Offset(0, 23).Value = cmbNontest2.Text
.Offset(0, 24).Value = cmbStaintest2.Text
.Offset(0, 25).Value = txtBemærk.Text
.Offset(0, 26).Value = txtInit.Text
End With
Worksheets("Forside").Activate
ActiveWorkbook.Save
Unload Me
End Sub
Private Sub UserForm_Activate()
txtDatodag.Text = Format(Now, "dd-mm-yyyy")
txtTid.Text = Format(Now, "hh:mm")
txtLinje.Text = ("5")
txtFe.Text = Worksheets("Kvalitet").Range("I3")
txtNon.Text = Worksheets("Kvalitet").Range("I4")
txtStain.Text = Worksheets("Kvalitet").Range("I5")
txtFeud.Text = Worksheets("Kvalitet").Range("I3")
txtNonud.Text = Worksheets("Kvalitet").Range("I4")
txtStainud.Text = Worksheets("Kvalitet").Range("I5")
txtTitel.Text = Worksheets("Kvalitet").Range("C5")
txtSkema.Text = Worksheets("Kvalitet").Range("A5")
txtGældende.Text = Worksheets("Kvalitet").Range("B5")
txtSenest.Text = Worksheets("Kvalitet").Range("D5")
txtRef.Text = Worksheets("Kvalitet").Range("E5")
txtRefnr.Text = Worksheets("Kvalitet").Range("F5")
With cmbProdukt
.RowSource = "Linje_5"
.ListIndex = 0
End With
With cmbFe
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbFe2
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbNon
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbNon2
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbStain
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbStain2
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbFetest1
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbFetest2
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbNontest1
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbNontest2
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbStaintest1
.RowSource = "Liste_ok"
.ListIndex = 0
End With
With cmbStaintest2
.RowSource = "Liste_ok"
.ListIndex = 0
End With
Me.Lab_sidsteRegtid.Caption = hentSidsteRegtid
End Sub
Private Function hentSidsteRegtid() As Date
Dim ark As Worksheet
Dim sidsteRække As Long
ActiveWorkbook.Sheets("Metaldetektor L5").Visible = True
Set ark = ActiveWorkbook.Sheets("Metaldetektor L5")
ark.Select
sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
hentSidsteRegtid = Range("C" & sidsteRække)
ActiveWorkbook.Sheets("Metaldetektor L5").Visible = False
End Function
Håber der er nogen der kan hjælpe mig med mit lille problem.
