Null values

[RoseChapman]

Hello,

I do not have values in all cells of my spreadsheet and I have to add "0", to those cells with nothing on it between D to CU columns. Is there a way to do this with MACROS? I would really appreciate your help

Many thanks

 

[mole999]

are they from formulas ?

 

[Fluff]

If the cells are genuinely empty try

Sub RoseChapman()
   Range("D:CU").SpecialCells(xlBlanks).Value = 0
End Sub

 

[RoseChapman]

There are no formulas just values

 

[RoseChapman]

Thank you very much Moderator,
I have added the following, but it does not work, not sure why, could you please help?. Many thanks

Worksheets("sheet2").Range("D2:CU").SpecialCells(xlBlanks).Value = 0

 

[RoseChapman]

Many thanks for your help Fluff,

using your code, I have added the following, but it does not work, not sure why, could you please help? many thanks

Worksheets("sheet2").Range("D2:CU").SpecialCells(xlBlanks).Value = 0

 

[Fluff]

It should be D:CU not D2:CU

 

[RoseChapman]

It should be D:CU not D2:CU

Oh it works!! this is great! this has saved hours work! thank you so much!!!

 

[RoseChapman]

Hello again,

is there any way to identify where the last row with values is? it is adding 0 up to row 1,048,576

 

[Fluff]

The code only works on the usedrange, so if it's putting 0s into all rows, you have some extraneous data or formatting somewhere in the row 1048576.
Select the rows below your data to the vary last row & delete them. Then save the file
You may also need to delete all the columns to the right of your data as well.