Jump to content

eliminar desde columna que se interrumple


juancyuky

Recommended Posts

Sub eliminarfilas()
x = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("b2").Activate
For a = 2 To x
If ActiveCell = "" Then
Range(Cells(a, 1), Cells(x, 3)).Delete Shift:=xlUp
End
Else
ActiveCell.Offset(1, 0).Activate
End If
Next
End Sub[/CODE]

Crea un boton en tu hoja y asígnale esta macro.

Un saludo, Sebastian

Link to comment
Share on other sites

Quizás esto también podría servir:

Sub EliminarFilasInferiores()
Dim PrimeraFila As Long
Dim UltimaFila As Long

With ActiveSheet
PrimeraFila = .Cells(1, "B").End(xlDown).Row + 1
UltimaFila = .Cells(Rows.Count, "B").End(xlUp).Row
.Rows(PrimeraFila & ":" & UltimaFila).Delete Shift:=xlUp
End With
End Sub[/CODE]

Saludos juancyuky, SEBASTIAN67

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy