Is a cell empty : Cell « Excel « VBA / Excel / Access / Word






Is a cell empty

 

Sub ShadeEverySecondRow()
  Dim i As Integer
  i = 2
  Do Until IsEmpty(Cells(i, 1))
    Cells(i, 1).EntireRow.Interior.ColorIndex = 15
    i = i + 2
  Loop
End Sub

 








Related examples in the same category

1.Get the last cell
2.Magic Squares
3.Nest If statement in Do Loop While with comparison operators
4.Nest If statement in Do Loop Until for cells
5.Is active cell empty
6.Transposing is taking a rectangular block of data and rotating it so that columns become rows and vice versa.
7.Uses nested For/Next loops to count the total number of cells used in all open worksheets:
8.Selects cell G4
9.A better way to write to a range:Filling a range
10.Use arrays to fill ranges faster
11.Moving the pointer to the cell containing the greatest value