Macro eliminar celdas si no cumple condicion
Lic. Su apoyo con una macro para eliminar celdas. Hace 2 dias me apoyo con la sig. Pregunta que realice
Macro eliminar filas de acuerdo especificaciones
Esta es la macro que me paso
Sub EliminarFilas()
'Por.Dante Amor
u = Range("A" & Rows.Count).End(xlUp).Row
ant = Cells(u, "A")
j = u
n = 0
For i = u To 1 Step -1
If ant <> Cells(i, "A") Then
If valor <> "" And n > 1 Then
Rows(j & ":" & i + 1).Delete
End If
j = i
n = 0
End If
n = n + 1
ant = Cells(i, "A")
valor = Cells(i, "B")
Next
MsgBox "fin"
End Sub
al ajecutar la macro me queda de la sig. Manera
Al ejecutar la macro me queda de la siguiente manera, pero en B2, B3 Y B4 estan las celdas vacias.
Pero si la celda B4 NO cumple con algun numero en el centro que esta en la columna F4 que se elimine toda la fila 4, solo quedaria A2 y A3.
* Mismo caso en B5 y B6 se repiten y estan vacias pero si no cumple con algun numero en F6 se eliminaría toda la fila 6, solo quedaria A5
En espera de su apoyo
1 respuesta
H o l a :
Te anexo la macro actualizada
Sub EliminarFilas()
'Por.Dante Amor
u = Range("A" & Rows.Count).End(xlUp).Row
ant = Cells(u, "A")
j = u
n = 0
For i = u To 1 Step -1
If ant <> Cells(i, "A") Then
If valor <> "" And n > 1 Then
Rows(j & ":" & i + 1).Delete
End If
j = i
n = 0
End If
n = n + 1
ant = Cells(i, "A")
valor = Cells(i, "B")
Next
'
'Revisar columna F
u = Range("A" & Rows.Count).End(xlUp).Row
For i = u To 1 Step -1
If Cells(i, "F") = "" Then
Rows(i).Delete
End If
Next
MsgBox "fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
