Ryd indhold i TextBox i Userform
Hej EksperterJeg har en Userform som skal stå åben når man arbejder i den.
Jeg har 4 textbox hvor man skal indsætte en verdi i og derefter gemme det. Når det er gemt skal den være klar til nye verdier.
Så mit spørsmål er hvordan jeg for rydet verdien i de fire textbox når jeg har gemt det?
Her er min gemme knap
Private Sub CommandButtonAFSLUTLODS_Click()
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 = Format(Now, "hh:mm")
.Offset(0, 1).Value = Format(DateAdd("n", 15, DateTime.Now), "hh:mm")
.Offset(0, 2).Value = Me.ComboBox120.Text
.Offset(0, 3).Value = Me.ComboBox121.Text
.Offset(0, 4).Value = Me.ComboBox122.Text
.Offset(0, 5).Value = Me.TextBox5.Text
Range("b2").Value = Format(Now, "dd-mmm-yy")
End With
Worksheets("ark1").Activate
ActiveWorkbook.Save
End Sub
MVH
Mic