AutoFilter /specialcells

R

Ron de Bruin

Hi

I show two friends how they can delete
empty rows with the first example that is working I send.

After trying it a copple of times both select the whole column
and lost all there data. (funny)

Found a way to avoid a problem with specialcells
If there are more then 8192 ranges the areas.count will be 1

Public Sub DeleteBlankRows()
On Error Resume Next 'In case there are no blanks
If Columns("A").SpecialCells(xlCellTypeBlanks).Areas.Count = 1 Then Exit Sub
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
 
K

Ken Wright

rotflmao

Was this their words Ron, or your interpretation of the nice things they called
you :)
 
K

Ken Wright

LOL - Now show then how to do it with a macro and then watch them try to undo it
:)
 
W

Wei-Dong Xu [MSFT]

Hi Ron,

Thank you for posting in MSDN managed newsgroup!

I am quite sure which sample you are working on now. It will be greatly
appreciated you tell me that. Furthermore, if you have any questions or
concerns, please feel free to post it in the group. I am standing by to be
some of assistance.

Thank you for using Microsoft NewsGroup!

Wei-Dong Xu
Microsoft Product Support Services
Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.
 
W

Wei-Dong Xu [MSFT]

Hi Ron,

Thank you for the replying!

If you have any questions, please feel free to let me know. I am glad to be
of some assistance.

Thank you for using Microsoft NewsGroup!

Wei-Dong Xu
Microsoft Product Support Services
Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.
 
Top