Delete Zero 0 and shift the cells up

[Abhishekghorpade]

Hi,

Could you please give me a macro to delete the cell which has only "0" and shift the cells up..

Thanks

 

[Joe4]

I think we are going to need more information.
What does your data structure look like?
What range are we checking for zeroes?
Do you want to shifts all cells (rows) up, or just that one column?
Does using filters to filter out the zeroes do what you want?

 

[Abhishekghorpade]

The data is in column C. all the numbers are 6 digits there are few cell where the value is "0" I want those cells to delete and move the cells up

I think we are going to need more information.
What does your data structure look like?
What range are we checking for zeroes?
Do you want to shifts all cells (rows) up, or just that one column?
Does using filters to filter out the zeroes do what you want?

 

[Joe4]

So, just to confirm, you want the data in column C to move up, but you do not want any of the other columns to move up along with it?

 

[Joe4]

OK, if you really do not want the other columns to move up to, try this code:

Sub MyDeleteMacro()

'   Replace all zeroes in column C with blanks
    Columns("C:C").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'   Delete all blank cells and shift cells up
    Columns("C:C").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    
End Sub

 

[Abhishekghorpade]

Thats exactly what i wanted.. Thank you so much

OK, if you really do not want the other columns to move up to, try this code:

Sub MyDeleteMacro()

'   Replace all zeroes in column C with blanks
    Columns("C:C").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'   Delete all blank cells and shift cells up
    Columns("C:C").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    
End Sub

 

[Joe4]

You are welcome.