cancella righe completamente vuote

[trittico69]

salve qualcuno puo modificarmi questo codice che funzioni solo da A5:F32?

Codice: Seleziona tutto

Sub CANCELLARIGHE()
Dim rng As Range
Dim i As Long
Set rng = ActiveSheet.UsedRange
For i = rng.Rows.Count To 2 Step -1
If Application.CountA(rng.Rows(i)) = 0 Then
rng.Rows(i).Delete
End If
Next i
End Sub



[Raffaele53]

Sempre che abbia capito il tutto...
1° Metodo da inserire in un Modulo

Codice: Seleziona tutto

Sub CANCELLARIGHE()
Dim rng As Range
Dim i As Long
Set rng = Range("A5:F32")
For i = rng.Rows.Count To 5 Step -1 ''''mi sembra sia sino riga 5
    If Application.CountA(Range("A" & i & ":F" & i)) = 0 Then Rows(i & ":" & i).Delete
Next i
set rng = Nothing
End Sub

2 Metodo da inserire nel Foglio

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A5:F32")) Is Nothing Then
    Dim rg As Long
        rg = Target.Row
        If Target.Value = "" Then
            If Application.CountA(Range("A" & rg & ":F" & rg)) = 0 Then
                Application.EnableEvents = False
                Rows(rg & ":" & rg).Delete
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

[Ricky0185]

Oppure in un modulo standard metti questa macro così puoi anche scegliere l'area di cui cancellare le righe vuote

Codice: Seleziona tutto

Public Sub CancellaRigheVuote()
Dim SourceRange As Range
Dim EntireRow As Range
On Error Resume Next
Set SourceRange = Application.InputBox( _
 "Scegli l'area:", "Cancella Righe Vuote", _
  Application.Selection.Address, Type:=8)
  If Not (SourceRange Is Nothing) Then
  Application.ScreenUpdating = False
For I = SourceRange.Rows.Count To 1 Step -1
Set EntireRow = SourceRange.Cells(I, 1).EntireRow
 If Application.WorksheetFunction.CountA(EntireRow) = 0 Then
 EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
 End If
 End Sub

Grazie ad Anthony

[trittico69]

ok grazie ad entrambi