Snasui Excel Forum

Code: Select all

Private Sub ComboBox1_Change()
    Dim l As Long, f_Range As Range
    If Me.ComboBox1.Text = "" Then Exit Sub
    With Worksheets("Product")
        Set f_Range = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        If Application.CountIfs(f_Range, Me.ComboBox1.Text) = 0 Then Exit Sub
        l = Application.Match(Me.ComboBox1.Text, f_Range, 0)
        Me.TextBox2.Text = f_Range(l).Offset(0, 1).Value
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim rall As Range, r As Range
    With Worksheets("Product")
        Set rall = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each r In rall
            Me.ComboBox1.AddItem r.Value
        Next r
    End With
End Sub

Code: Select all

Cells(r, 1) = Application.Text(TextBox3.Text, "dd/mm/yyyy")

Code: Select all

Private Sub TextBox3_Change()
Cells(r, 1) = Application.Text(TextBox3.Text, "dd/mm/yyyy")
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Do
        r = r + 1
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = TextBox3.Text
'Other code

Code: Select all

Private Sub CommandButton1_Click()
    Do
        r = r + 1
    Loop Until Cells(r, 1) = ""
    Cells(r, 1) = Application.Text(TextBox3.Text, "dd/mm/yyyy")
'Other code

Code: Select all

Private Sub CommandButton1_Click()
    Do
        r = r + 1
    Loop Until Cells(r, 1) = ""
    Cells(r, 1).Value2 = TextBox3.Value
'Other code