Eliminar fila según comienzo de texto
Tengo un archivo que en la columna A muestra la fecha de registro, en la columna B tiene unos numeros que en algunos casos comienzan por las letras FV, y en la columna algunos registros tienen el texto "ERROR", quiero eliminar todas las filas que en la columna B comienzan por las letras FV y en la columna M tienen la palabra "error", para ello tengo la siguiente macro:
Sub eliminafila()
Range("B1").Select
While ActiveCell.Value <> ""
continuar:
dato = ActiveCell.Value
If ActiveCell.Left(2) = "FV" Then
ActiveCell.Offset(0, 11).Select
If ActiveCell.Value = "ERROR" Then
ActiveCell.Offset(0, -11).Select
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(0, -11).Select
ActiveCell.Offset(1, 0).Select
End If
GoTo continuar
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
La macro me genera error en la linea "If ActiveCell.Left(2) = "FV" Then" ¿alguien me podría indicar cómo soluciono el código?
Es bastante más sencilla de lo que estabas desarrollando:
Sub eliminafila()
'x Elsamatilde
Range("B1").Select
While ActiveCell.Value <> ""
'si cumple las 2 condiciones se elimina la fila
If Left(ActiveCell, 2) = "FV" And ActiveCell.Offset(0, 11) = "ERROR" Then
ActiveCell.EntireRow.Delete
Else
'sino se pasa a la fila siguiente
ActiveCell.Offset(1, 0).Select
End If
Wend
End SubTe invito a visitar la sección Macros y Ejemplos de mi sitio, también Guias y Manuales. Allí encontrarás todo tipo de bucles.
Sdos.
Elsa
