Hi,
Ive got a search code that works well and does what i need it to, however i'm stuck on working out how to make it find the next occurrence of the search word in that column and do the same actions...
My code is below...Thanks
Dim FindString As String
Dim Rng2 As Range
Dim Rng As Range
FindString = "Sunday"
If Trim(FindString) <> "" Then
With Sheets("HRTimeSheet").Range("B:B")
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
End If
End With
End If
Rng.Offset(0, 2).Value = "0:00"
Rng.Offset(0, 3).Value = "0:00"
Rng.Offset(0, 4).Value = "0:00"
Ive got a search code that works well and does what i need it to, however i'm stuck on working out how to make it find the next occurrence of the search word in that column and do the same actions...
My code is below...Thanks
Dim FindString As String
Dim Rng2 As Range
Dim Rng As Range
FindString = "Sunday"
If Trim(FindString) <> "" Then
With Sheets("HRTimeSheet").Range("B:B")
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
End If
End With
End If
Rng.Offset(0, 2).Value = "0:00"
Rng.Offset(0, 3).Value = "0:00"
Rng.Offset(0, 4).Value = "0:00"