P
paul_gu
I'm trying to find a row based on two criteria the first is a text box
in a form called txton the value of which is held on column A. the
second criteria is in the same row it finds an empty cell in column F.
using the code below finds the first criteria no problem. does anyone
have any idea how too expand this code to find the second criteria.
Thanks in advance
Dim FindString As String
Dim rng As Range
FindString = UserForm1.txtON.Value
If Trim(FindString) <> "" Then
With Sheets("Re - Rostered Restdays").Range("A:A")
Set rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox "Nothing found"
End If
End With
End If
in a form called txton the value of which is held on column A. the
second criteria is in the same row it finds an empty cell in column F.
using the code below finds the first criteria no problem. does anyone
have any idea how too expand this code to find the second criteria.
Thanks in advance
Dim FindString As String
Dim rng As Range
FindString = UserForm1.txtON.Value
If Trim(FindString) <> "" Then
With Sheets("Re - Rostered Restdays").Range("A:A")
Set rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
Application.Goto rng, True
Else
MsgBox "Nothing found"
End If
End With
End If