Remove rows less than 10

WeDonNeedNoSteenkgRibbons · #1 07-15-2014, 09:38 AM

If I beat the move

:

Bob's comments take precendence. I agree they are the "first line of attack" if the "possible answers" don't appply.

I neglected to mention that if you do "for each" with a range, you don't have to start from the end and work up, as some macro solutions require.

And Bob I'll use tags when I have more than a single line or so

jolivanes · #2 07-16-2014, 11:10 AM

Or like this

Code:

Sub jolivanes()
Dim lr As Long, lc As Long
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 4).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
        With Range(Cells(1, 1), Cells(lr, lc))
            .AutoFilter 4, "<11"
            .Range(.Cells(2, 1), .Cells(lr, lc)).SpecialCells(12).EntireRow.Delete
        End With
    ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = True
End Sub

gbaker · #3 07-16-2014, 12:24 PM

Hi Jolivanes,
This is fantastic. Work for one worksheet. The only problem is I need to do it in multiple worksheet with a workbook that I need to have this work and because I want to do 1 Macro I am getting an error message:

Compile Error: Duplicate declaration in current scope

Dim lr As Long, lc As Long

Any suggestions. I'm relatively new at VBA

Thanks in Advance for your help with this. It's a beginning!!!!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM
Count rows and add blank rows accordingly	Hoochtheseal	Word VBA	1	01-29-2013 09:23 PM
rows in word?	j2b3	Word Tables	3	07-19-2012 03:59 PM
merging rows and creating sub-rows	gib65	Excel	2	12-09-2011 02:09 PM
How to remove blank rows from a specified range?	Learner7	Excel	1	04-19-2011 02:45 AM