Private Sub CommandButton2_Click()
Dim x As Long
x = Me.ComboBox1.ListIndex + 2
Sheets("Statement").Rows(x).Delete
End Sub
Private Sub CommandButton3_Click()
Dim x As Long
x = Me.ComboBox1.ListIndex + 2
With Sheets("Statement")
.Cells(x, 1) = Me.TextBox1.Value
.Cells(x, 2) = Me.TextBox2.Value
.Cells(x, 3) = Me.TextBox3.Value
End With
End Sub
Private Sub UserForm_Initialize()
With Sheets("Statement")
Me.ComboBox1.List = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value
End With
End Sub