Format issue in VB code (Macro)

[rrajansg]

I have code like this to prepare summary from another sheet.

For K = 2 To Sheets(I).Cells.SpecialCells(xlLastCell).Row
Range("A" + Format(J)).FormulaR1C1 = "='" + a$ + "'!R" + Format(K) + "C1"
Range("B" + Format(J)).FormulaR1C1 = "='" + a$ + "'!R" + Format(K) + "C2"
Range("C" + Format(J)).FormulaR1C1 = "='" + a$ + "'!R" + Format(K) + "C3"
Range("D" + Format(J)).FormulaR1C1 = "='" + a$ + "'!R" + Format(K) + "C4"
J = J + 1

It works well, except format issue. Wherever there is no data, it shows 0. I need blank instead of zero.

Can you please fix this issue

Thanks

 

[mirabeau]

Have you considered something like Replace("0", "", xlWhole) at the end of the code for the relevant range?

 

[rrajansg]

Thanks for quick response

I am not very familiar with VB. The earlier vb code was given by one of member from this forum. i am trying to add in the end of every range. but it doesn't work

 

[mirabeau]

Perhaps if you give an overall view of what you are trying to achieve, then some good answers may be forthcoming from the forum without necessarily trying to modify a code which doesn't seem to entirely work for you anyway.