AutoFilter /specialcells

  • Thread starter Thread starter Ron de Bruin
  • Start date Start date
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
 
rotflmao

Was this their words Ron, or your interpretation of the nice things they called
you :-)
 
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.
 
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.
 
Back
Top