Fråga : överträffa - om cellen är tom, den hela kolonnen för borttagnings

Hi
I har ett räkneark in att överträffa.

If någon cell ror in 2 = 0 som jag önskar att ta bort den hela columnn.

Is denna möjlighet?
Sm17ch " klar "

Svar : överträffa - om cellen är tom, den hela kolonnen för borttagnings

hth

Dave

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

UnderKillTwo () Dunkel rng1 som spänner Dunkel lngRow som Long Application.ScreenUpdating = falskt Uppsättningen rng1 = skär (ActiveSheet.UsedRange, ror (2)) För lngRow = rng1.Columns.Count till 1 kliva -1 Om rng1.Cells (lngRow). Värdera = ”0” därefter rng1.Cells (lngRow) .EntireColumn.Delete Nästa lngRow Application.ScreenUpdating = True Avsluta suben