VBA Help

[JoeyGaspard]

Hi all, I have a spreadsheet where I am trying to use VBA to delete all rows if the cell in column B is blank, for some reason it is not working? The code I am using is listed below, any help is greatly appreciated!


'Delete Blank Rows if No Data in cells in Column B
On Error Resume Next
Sheets("GeneralJournal").Select
With Range("B17:B500")
.Value = .Value
.SpecialCells(xlBlanks).EntireRow.Delete
End With
Range("B17").Select

Thanks!

 

[Joe4]

So I am guessing by your code, that column B has a formula in it, and you are first changing it to a hard-coded value, then trying to delete.
What exactly is that formula in column B?

 

[Fluff]

If you remove this line

On Error Resume Next

& run the macro again what happens?

 

[VBE313]

Sub JoeyGaspard()
With Sheets("GeneralJournal")
    .Range("B17:B500").Value = .Range("B17:B500").Value
    .Range("B17:B500").SpecialCells(xlBlanks).EntireRow.Delete
    .Range("B17").Select
End With
End Sub

 

[Fluff]

@VBE313
That is just going to delete rows 17 to 500 regardless of whether they are blank or not.

 

[JoeyGaspard]

If you remove this line

On Error Resume Next

& run the macro again what happens?

No difference

 

[Fluff]

So you didn't get an error message?

 

[Joe4]

No difference

Perhaps you missed my message (first reply in this thread).
Could you answer the question I posed?

 

[JoeyGaspard]

So you didn't get an error message?

I am not getting any error message, I would be happy to send you the spread sheet if you would like to look at it?

 

[Fluff]

In that case can you please post all the code & answer Joe's question.