Snasui Excel Forum

Code: Select all

Private Sub CommandButton3_Click()
     Dim Row As Long
 
'    Row = Application.Match(TextBox13.Text, Sheets(2).Range("a:a"), 0)
    With Sheets(2)
         If Application.CountIf(.Range("a4", .Range("a" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
            'Set myRange = .Range("A:P")
            Row = Application.Match(TextBox13.Text, .Range("a:a"), 0)
        ElseIf Application.CountIf(.Range("b4", .Range("b" & .Rows.Count).End(xlUp)), TextBox13.Text) Then
            'Set myRange = .Range("B:P")
            Row = Application.Match(TextBox13.Text, .Range("b:b"), 0)
        End If
        'Other code...
End Sub

Code: Select all

ws.Cells(irow, 16).Value = WorksheetFunction.Text(TextBox12.Value, "dd/mm/yyyy")