I can see that the "If Not IsEmpty(ActiveCell) Then" works with identifying blanks and formualas that do not return results but how could I include this is my code?
My full code is:
Sub Dig_check()
Range("A171").Select
Selection.End(xlDown).Select
Dim rowcheck As Integer
rowcheck = ActiveCell.Row
Range("B172:B" & rowcheck).Select
Dim findblank As String
On Error Resume Next
Selection.SpecialCells(xlBlanks).Select
findblank = ActiveCell.Value
If Not IsEmpty(ActiveCell) Then
If findblank = "171" Then GoTo nxt1
MsgBox ("You need to fill out text in column B, row " & findblank)
End
End If
nxt1:
Range("D172:D" & rowcheck).Select
Selection.SpecialCells(xlBlanks).Select
findblank = ActiveCell.Value
If Not IsEmpty(ActiveCell) Then
If findblank = "171" Then GoTo nxt2
MsgBox ("You need to fill out text in column D, row " & findblank)
End
End If
nxt2:
Range("I172:I" & rowcheck).Select
Selection.SpecialCells(xlBlanks).Select
findblank = ActiveCell.Value
If Not IsEmpty(ActiveCell) Then
If findblank = "171" Then GoTo nxt3
MsgBox ("You need to fill out text in column I, row" & findblank)
End
End If
nxt3:
Range("J172:J" & rowcheck).Select
Selection.SpecialCells(xlBlanks).Select
findblank = ActiveCell.Value
If Not IsEmpty(ActiveCell) Then
If findblank = "171" Then GoTo nxt4
MsgBox ("You need to fill out text in column J, row " & findblank)
End
End If
nxt4:
' Your code here if everything is ok.
Range("A171:AK171").Select
Range(Selection, Selection.End(xlDown)).Select
Any ideas? I basically need to automatically find the range starting from A171 and then down to the last row with text in and search the cells within that range for blank or formula's that equal "" in column B, D, I and J. My code might not be the best way to do this though?
Bookmarks