Transfer Data To worksheet And Count Days Excell VBA

Combobbox Fill

Private Sub UserForm_Initialize()

Dim i As Long

For i = 2 To Application.WorksheetFunction.CountA(Sheet2.Range("A:A"))

Me.ComboBox1.AddItem Sheet2.Cells(i, 1).Value

Next i

End Sub

Textbox Format

Private Sub TextBox1_AfterUpdate()

On Error Resume Next

Me.TextBox1 = CDate(Me.TextBox1)

End Sub

Private Sub TextBox2_AfterUpdate()

On Error Resume Next

Me.TextBox2 = CDate(Me.TextBox2)

End Sub

Data Transfer To Sheet

Private Sub CommandButton1_Click()

Dim x As Long

x = Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) + 1

Sheet1.Range("A" & x).Value = Me.ComboBox1.Value

Sheet1.Range("B" & x).Value = Me.TextBox1.Text

Sheet1.Range("C" & x).Value = Me.TextBox2.Text

On Error Resume Next

Sheet1.Range("D" & x).Value = Sheet1.Range("C" & x) - Sheet1.Range("B" & x) & "Days"

End Sub