Macro que borre filas con condicional

2 envíos / 0 nuevos
Último envío
Firulaishere
Imagen de Firulaishere
Offline
última acción: Hace 1 semana 3 días
alta: 17/05/2017 - 19:00
Puntos: 25
Macro que borre filas con condicional

Buenas tardes

Es mi primera vez en el foro. Paso a la consulta en base a la imagen:

Necesito que se borre la fila entera cuando se repite el acuse, y que sea la fila de arriba la que permanezca (ya que engloba todos los cheques).

Para eso pensé en el condicional de:
Si C3(rojo)=D2(verde), borrar fila 2 (cursiva y subrayada) entera.

 

 

Pero no sé cómo hacerlo o grabarlo.

Espero me puedan ayudar.

Muchas gracias!

AdjuntoTamaño
Image icon macro_condicional.jpg99.56 KB

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 22 horas 55 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 7820
Pues si no quieres borrar a

Pues si no quieres borrar a mano las filas, puedes trabajar con la opción de CONSOLIDAR, que está entre las herramientas de datos.

Pero si lo que quieres es una macro, puedes hacer algo así:

Sub borrafilas()
Dim fila As Long
Dim max As Long

fila = 3
Range("A1048576").End(xlUp).Select
max = Selection.Row

 Do While fila < max
     If Cells(fila, 4) = cells(fila - 1, 4) Then
         Cells(fila, 1).EntireRow.Delete
         max = max - 1
     Else
         fila = fila + 1
     End If
 Loop
End Sub
Si quieres un poco más de información, puedes verla en esta entrada.
Espero que te sirva.
Un saludo