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.

Sign in to follow this  
JSDJSD

Comparar y Borrar en una base de datos con macro.

Recommended Posts

Como podría hacer para que una macro  compare  las columnas A y B y en caso de ser iguales tendría que borrar la fila completa que corresponda a la fecha más antigua de cada coincidencia.
Quedando como resultado lo que se observa en la imagen que adjunto en el archivo. Gracias

Comparayborra.rar

Share this post


Link to post
Share on other sites

Buen día,

Podrías utilizar un código como el siguiente:

    UltLinea = Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To UltLinea
        
        val1 = Range("A" & i).Value & Range("B" & i).Value
        val2 = Range("A" & i + 1).Value & Range("B" & i + 1).Value
        
        If val1 = val2 Then
            If Range("K" & i).Value > Range("K" & i + 1).Value Then
                Rows(i + 1 & ":" & i + 1).Select
                Selection.Delete Shift:=xlUp
            Else
                Rows(i & ":" & i).Select
                Selection.Delete Shift:=xlUp
            End If
        End If
    Next

Ya sea dentro de tu Botón o en un modulo

 

Saludos!

Share this post


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



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png