Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

SALAVERRINO

MACRO PARA ELIMINAR FILAS CON FORMULAS

Recommended Posts

Buenos noches a los miembros de este foro, en esta ocasión recurro a uds para que me brinde su apoyo con una macro que permita eliminar filas de la hoja PDT 602 desde la fila A8 hasta la BK1005, ya que la fila A1006 contiene la suma total por cada columna, como se aprecia en el archivo adjunto y lo que se requiere es que dicha macro permita eliminar desde la fila que no contenga valor como se ve en la fila A87 (esto podría ser variable en filas mas o menos de valores), todos estos datos son extraídos desde la hoja PDT 601 (hoja fuente), el archivo anexo lo subí en varias partes porque sobrepasa la capacidad que indica foro.

Desde ya agradezco su gentil apoyo.

Saludos.

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part01.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part02.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part03.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part04.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part05.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part06.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part07.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part08.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part09.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part10.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part11.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part12.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part13.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part14.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part15.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part16.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v3 - AYUDA.part17.rar

Share this post


Link to post
Share on other sites

Prueba con esta macro:

Sub EliminarFilas()
With Sheets("PDT 602")
   f1 = 8
   Do Until Trim(.Range("A" & f1)) = "": f1 = f1 + 1: Loop
   f2 = .Range("A" & Rows.Count).End(xlUp).Row
   If f2 > f1 Then .Range(f1 & ":" & f2).Delete
End With
End Sub

 

Edited by Antoni

Share this post


Link to post
Share on other sites

Buenos días Srs @Leopodo Blancas y @Antoni, agradezco por los aportes brindados en la solución a MACRO PARA ELIMINAR FILAS CON FORMULAS con código VBA (macro), la cual me esta ayudando mucho, por lo cual quedo de Uds y daría como tema solucionado.

Saludos y bendiciones.

Share this post


Link to post
Share on other sites
En 22/4/2018 at 12:33 , Antoni dijo:

Prueba con esta macro:


Sub EliminarFilas()
With Sheets("PDT 602")
   f1 = 8
   Do Until Trim(.Range("A" & f1)) = "": f1 = f1 + 1: Loop
   f2 = .Range("A" & Rows.Count).End(xlUp).Row
   If f2 > f1 Then .Range(f1 & ":" & f2).Delete
End With
End Sub

 

Buenos días Antoni, la macro esta funcionando como se requería, agradezco el aporte.

Share this post


Link to post
Share on other sites

@SALAVERRINO te adjunto mi versión

Sub EliminarFilas()

Application.ScreenUpdating = False
Dim vcv As Range
For i = 8 To 1005
    If Cells(i, "A") = "" Then
    If vcv Is Nothing Then
        Set vcv = Cells(i, "A")
    Else
        Set vcv = Union(vcv, Cells(i, "A"))
    End If
    End If
Next
vcv.EntireRow.Delete: Set vcv = Nothing 
Application.ScreenUpdating = False

End Sub

 

Saludos a todos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png