Hi Strud,
as an option
Sub Copy_AboveBellow_Error()
Dim i As Long, bu As Boolean
With Sheets("Sheet1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = "Error - Not Inputted" Then
bu = True
Sheets("Discrepancies").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3).Value = .Cells(i, 1).Resize(, 3).Value
End If
Next i
End With
If bu Then
MsgBox ("There are some stock items that you have not inputted in the stock take...")
Sheets("Discrepancies").Activate
Else
MsgBox ("Go To Upload Sheet"): Sheets("Upload Sheet").Activate
End If
End Sub
Bookmarks