Beginner Seeking Help

[Viking1221]

Hello,

I have a macro that use the autofilter function to find blanks and then deletes the rows. However, I am struggling with how to write a macro that will find the last column in row 10 and filter on zero and delete all 0's. Then after it executes this code, I want 'that' entire column deleted. Any ideas?

This is the code I have, but is specifically looks at Column C:

Sub DeleteRowsC()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Journals")
ws.Activate
On Error Resume Next
ws.ShowAllData
On Error GoTo 0

ws.Range("A10:BZ10000").AutoFilter Field:=3, Criteria1:=""

Application.DisplayAlerts = False
ws.Range("A10:BZ10000").SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

On Error Resume Next
ws.ShowAllData
On Error GoTo 0

End Sub

 

[JLGWhiz]

I am probably misreading your post, but if you get the last column, delete the zeros and then delete the column, why not just delete the column to begin with?

Sub t()
With ActiveSheet
    . Columns(.Cells(10, Columns.Count).End(xlToLeft).Column).Delete xlShiftLeft
End With
End Sub

 

[jim may]

Are you wanting to DELETE Column of Row 10 Only?

 

[Viking1221]

Are you wanting to DELETE Column of Row 10 Only?

Hello,

What I am doing in my last row is adding up columns D:End to identify rows with all zero's. I then want to filter on 0 and delete all rows with 0 in this column. Then I want to delete that column as it is not in my original dataset.

 

[higrm]

Wouldn't just changing the 3 to a 10 work?

ws.Range("A10:BZ10000").AutoFilter Field:=3, Criteria1:=""

ws.Range("A10:BZ10000").AutoFilter Field:=10, Criteria1:=0

Then delete your rows and then do Range("j:j").delete

I think that will give you what you've asked for.

 

[higrm]

Oops, misread the row 10 as column 10. Ok, find the last cell in row 10 by going all the way to the right of column then and then back to the first filled cell. Once you have that cell, use it's column reference to adjust your autofilter line as above.

[FONT=Courier][COLOR=#00007f]Sub[/COLOR] xxx()

    [COLOR=#00007f]Dim[/COLOR] lCol [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]Long[/COLOR]
    lCol = Cells(10, Columns.Count).End(xlToLeft).Column
    [/FONT][FONT=Courier]Range("A10:BZ10000").AutoFilter Field:=lCol, Criteria1:=0   
    Range("A10:BZ10000").SpecialCells(xlCellTypeVisible).Delete
    Range(Cells(1,10),cells(1,10)).column.delete
[COLOR=#00007f]End[/COLOR] [COLOR=#00007f]Sub[/COLOR][/FONT]

I'm guessing on the last line whether that will get you the column ok.

 

[higrm]

correct last line:

[FONT=Courier][COLOR=#00007f]Sub[/COLOR] xxx()

    [COLOR=#00007f]Dim[/COLOR] lCol [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]Long[/COLOR]
    lCol = Cells(10, Columns.Count).End(xlToLeft).Column
    [/FONT][FONT=Courier]Range("A10:BZ10000").AutoFilter Field:=lCol, Criteria1:=0   
    Range("A10:BZ10000").SpecialCells(xlCellTypeVisible).Delete
    Range(Cells(1, lCol), Cells(1, lCol)).EntireColumn.Delete
[COLOR=#00007f]End[/COLOR] [COLOR=#00007f]Sub[/COLOR][/FONT]

 

[Viking1221]

correct last line:

[FONT=Courier][COLOR=#00007f]Sub[/COLOR] xxx()

    [COLOR=#00007f]Dim[/COLOR] lCol [COLOR=#00007f]As[/COLOR] [COLOR=#00007f]Long[/COLOR]
    lCol = Cells(10, Columns.Count).End(xlToLeft).Column
    [/FONT][FONT=Courier]Range("A10:BZ10000").AutoFilter Field:=lCol, Criteria1:=0   
    Range("A10:BZ10000").SpecialCells(xlCellTypeVisible).Delete
    Range(Cells(1, lCol), Cells(1, lCol)).EntireColumn.Delete
[COLOR=#00007f]End[/COLOR] [COLOR=#00007f]Sub[/COLOR][/FONT]

hello, this works great. However, it appears to only be deleting my top row and not all with row with zero. From my understanding the codes seems to be written correctly. Any ideas on why this may be?

 

[Michael M]

@Viking1221
You didn't respond to the post from @JLGWhiz.....which to me, seems to be the easiest and simplest method

Sub t()
With ActiveSheet
    . Columns(.Cells(10, Columns.Count).End(xlToLeft).Column).Delete xlShiftLeft
End With
End Sub

 

[Viking1221]

hello, this works great. However, it appears to only be deleting my top row and not all with row with zero. From my understanding the codes seems to be written correctly. Any ideas on why this may be?

Never mind, I figured it out, it is the way I have the numbers formatted. Zero's show as "-" I just had to change the 0 to a - and it worked. Thanks for your help.