Excel Forum

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range
    For Each rng In Sheets("Sheet1").Range("c3", "c9")
        If rng.Value = "" Then
            Selection.Delete Shift:=xlUp
        End If
    Next rng
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range
    Dim i As Integer
    For Each rng In Sheets("Sheet1").Range("c3", "c9")
        If rng.Value = "" Then
            rng.ClearContents
            i = i + 1
        End If
    Next rng
    If i > 0 Then
        Sheets("Sheet1").Range("c3", "c9") _
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim rng As Range
    For Each rng In Sheets("Sheet1").Range("C3:E9").Rows
        If Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rng)), "") = "" Then
            rng.Delete shift:=xlUp
        End If
    Next
End Sub

Code: Select all

Sub RoundedRectangle1_Click()
    Dim i As Integer, j As Integer
    With Sheets("Sheet1")
        j = .Range("c3", "c9").Rows.Count - 1
        For i = j To 0 Step -1
            If .Range("c3").Offset(i, 0).Value = "" Then
                .Range("c3").Offset(i, 0).Resize(1, 3).Delete shift:=xlUp
            End If
        Next i
    End With
End Sub