Snasui Excel Forum

Code: Select all

 Dim l As Long
    On Error Resume Next
    With Worksheets("Data")
        If Application.CountIf(.Range("f3", .Range("f" & .Rows.Count).End(xlUp)), tbFindQ.Text) Then
            l = Application.Match(tbFindQ.Text, .Range("f:f"), 0)
        ElseIf Application.CountIf(.Range("g3", .Range("g" & .Rows.Count).End(xlUp)), tbFindQ.Text) Then
            l = Application.Match(tbFindQ.Text, .Range("g:g"), 0)
        ElseIf Application.CountIf(.Range("a3", .Range("a" & .Rows.Count).End(xlUp)), tbFindQ.Text) Then
            l = Application.Match(tbFindQ.Text, .Range("a:a"), 0)
    
        End If