VBA Help - how to find Blank cells specified columns

[Mallesh23]

Hi Team,

how to find blank cells for columns(1,3,5,6,9,10,14,16) faster way.

Last row of the above columns is 10000 records. header at at first row.



Thanks
mg

 

[JLGWhiz]

The question is somewhat ambiguous. What do you want to do if you find blank cells in those column?

 

[Mallesh23]

Hi JLGWhiz

Actually all above columns are Amount columns. and in that columns I don't want any blank cells.

Macro to check before proceeding further. if found exit the sub.



Thanks
mg

 

[JLGWhiz]

Maybe something like this

Sub t()
Dim rng As Range
Set rng = Union(Columns(1), Columns(3), Columns(5), Columns(6), Columns(9), Columns(10), Columns(14), Columns(16))
Application.DisplayAlerts = False
On Error GoTo Skip:
    If Intersect(ActiveSheet.UsedRange, rng).SpecialCells(xlCellTypeBlanks).Count > 0 Then
        Beep
       MsgBox "Blanks"
    End If
Skip:
Err.Clear
Application.DisplayAlerts = True
End Sub

 

[Mallesh23]

HI JLZWhiz,

Really awsome, thanks a lot it worked. ?

Need one more help if you can .

I want to check "-" charecter in above columns. sometimes user put by mistakes in Amounts Columns.

if Found macro should exit with message.




Thanks
mg

 

[JLGWhiz]

According to forum guidelines, additional requests not meeting the original issue criteria should be made by starting a new thread.

 

[Mallesh23]

Hi JLGWhiz,

Millions of Thanks for your help, I will put extra thread for it.



Thanks
mg

 

[JLGWhiz]

Hi JLGWhiz,

Millions of Thanks for your help, I will put extra thread for it.



Thanks
mg

You're welcome,
Regards, JLG