deleting all rows with positive numbers in vba

[jazzD]

hi i have an exel list with a column with both positive and negative numbers. ive recorded a macro to delete lots of columns and rows but the last step is to delete the rows with positive numbers. what code can i use? i cant write code, only record macros!! thank you!

 

[Joe4]

Welcome to the Board!

Turn on your Macro Recorder, and record yourself setting up a Filter to only show numbers greater than zero (your positive numbers).
Then, add this following code that will delete all records that are not hidden, and remove the filter:

'   Deletes all unhidden rows except for the header (first row only)
    Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    Application.DisplayAlerts = True

'   Remove filters
    ActiveSheet.AutoFilterMode = False

 

[jazzD]

Welcome to the Board!

Turn on your Macro Recorder, and record yourself setting up a Filter to only show numbers greater than zero (your positive numbers).
Then, add this following code that will delete all records that are not hidden, and remove the filter:

'   Deletes all unhidden rows except for the header (first row only)
    Application.DisplayAlerts = False
    ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
    Application.DisplayAlerts = True

'   Remove filters
    ActiveSheet.AutoFilterMode = False

thank you so much this worked great, i dont know why i hadnt thought of recording a filter!!

 

[Joe4]

You are welcome.
Glad I was able to help!