automatic entry of data into a data entry form new

[Grahamscown]

is there a way to auto populate fields in a data entry form like seen below i would like to enter just the name and have the rego and company auto populate from a list and time . date , month and week auto populate at the same time of entry

 

[Fluff]

sorry where will i add it to the bottom or top

You need to add that line in the place where I showed.

 

[Grahamscown]

You need to add that line in the place where I showed.

 

[Grahamscown]

Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmddate_Click()

Call txtdate_Change

End Sub

Private Sub cmdenter_Click()

Dim RowCount As Long

RowCount = Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Sheet1").Range("A1")
.Offset(RowCount, 0) = Format(Now(), "HH:MM:SS AM/PM")
.Offset(RowCount, 1) = Me.txtname.Value
.Offset(RowCount, 2) = Application.VLookup(Me.txtname.Value, Sheet2.Range("A:B"), 2, False)
.Offset(RowCount, 3) = Application.VLookup(Me.txtname.Value, Sheet2.Range("A:C"), 3, False)
.Offset(RowCount, 4) = Date
.Offset(RowCount, 5) = Me.txtmonth.Value
.Offset(RowCount, 6) = Me.txtweek.Value

End With

  
End Sub

Private Sub cmdtime_Click()
 
 Call txttime_Change

End Sub

Private Sub txtcompany_Change()

End Sub

Private Sub txtdate_Change()

txtdate.Value = Date

End Sub

Private Sub txtmonth_Change()

End Sub

Private Sub txtname_Change()

End Sub

Private Sub txtrego_Change()

End Sub

Private Sub txttime_Change()

txttime.Value = Time

End Sub

Private Sub txtweek_Change()

End Sub

Private Sub UserForm_Click()

End Sub

ok i have a working script now but i want to change the text box for name into a dropdown to avoid spelling mistakes

 

[Fluff]

You can populate a combo like

Private Sub UserForm_Initialize()

   With Sheet2.Range("A2", Sheet2.Range("A" & Rows.Count).End(xlUp))
      Me.ComboBox1.List = .Value
   End With
End Sub