Excel Forum

Code: Select all

Private Sub UserForm_Activate()
    On Error Resume Next
    Dim Data1 As String
     Data1 = Range("Userdata").Address                          'Customerscan
    ComboBox1.RowSource = "Data!" & Data1
End Sub

Code: Select all

Private Sub ComboBox1_Change()                                      'cboProvince ??? Combobox
    Dim f As Long
    If ComboBox1.ListIndex <> -1 Then
        f = FindRow(Sheet2, "A", ComboBox1.Text)
        If f > 1 Then
            ComboBox1.Text = Sheet2.Range("A" & f).Value
            TextBox3.Text = Sheet2.Range("B" & f).Value
            TextBox4.Text = Sheet2.Range("C" & f).Value
            TextBox5.Text = Sheet2.Range("D" & f).Value
    End If
    End If
End Sub

Code: Select all

'Other code
Dim f As Long, v As String
Dim rall As Range, r As Range
If ComboBox1.ListIndex <> -1 Then
    v = Sheet1.Cells(ComboBox1.ListIndex + 3, "g").Value
    With Sheet2
        Set rall = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each r In rall
            If r.Value = ComboBox1.Text And r.Offset(0, 2) = v Then
                'f = FindRow(Sheet2, "A", ComboBox1.Text)
                f = r.Row
                Exit For
            End If
        Next r
    End With
'Other code