Code:
Sub numbers()
Dim rngCell As Range
For Each rngCell In Sheets("Final").Range("F13:F" & rowLast)
If WorksheetFunction.CountIf(Sheets("Filter").Range("A1:A" & rowLast), rngCell) <> 0 And _
Range("I" & rngCell.Row).Value <= 0 And _
Range("D" & rngCell.Row).Value < 50 Or _
Range("D" & rngCell.Row).Value > 59 Or Then
MsgBox "Please add correct number " & rngCell
End
End If
Next
End Sub
I have this code, but I would like to set this comparing value from filter sheet column B. instead of writing numbers manually.
Range("D" & rngCell.Row).Value < 50 Or _
Range("D" & rngCell.Row).Value > 59 Or Then
Is possible to make this filter compare values from column B like If WorksheetFunction.CountIf(Sheets("Filter").Range("A1:A" & rowLast), rngCell) <> 0 And _
?
Any advice are welcome!