Hello, I'm using the following in a commandbutton to look for a value in a cell and then go find it in another sheet to then assign a date to the cell, at the moment the code below is executing properly on the first instance found but I'd like it to do it for all the match results.
Private Sub CommandButton3_Click()
x = Sheets("Cell 1").Range("action_required1")
With Sheets("Actions")
Set rngfind = .Cells.Find(x, , , 1)
rngfind.Offset(, 3) = Date
End With
Range("I22:O22").Value = ""
End Sub
Kind regards
Private Sub CommandButton3_Click()
x = Sheets("Cell 1").Range("action_required1")
With Sheets("Actions")
Set rngfind = .Cells.Find(x, , , 1)
rngfind.Offset(, 3) = Date
End With
Range("I22:O22").Value = ""
End Sub
Kind regards