Eliminar filas que no contengan valor numer
Buen día
Me puedes ayudar por favor con una macro que vaya a todas las celdas A A1, A2 etc y elimine toda la fila en caso de no ser valor numérico
Ejemplo si a1 es igual a FKFBF eliminar esa fila y así todas ya que los formatos que quiero depurar son indefinidos
Saludos
Me puedes ayudar por favor con una macro que vaya a todas las celdas A A1, A2 etc y elimine toda la fila en caso de no ser valor numérico
Ejemplo si a1 es igual a FKFBF eliminar esa fila y así todas ya que los formatos que quiero depurar son indefinidos
Saludos
1 Respuesta
Respuesta de Victor Perdomo
1
Prueba esta macro y cuéntame como te fue.
Sub eliminar()
'''''''''''''''
celda = "A1" '<---cambia esta celda por la celda en que
''''''''''''''''''empieza la columna donde se buscara
f1 = Range(celda).Row
f2 = Range(celda).End(xlDown).Row
While f1 <= f2
If IsNumeric(Cells(f1, Range(celda).Column).Value) = False Then
Rows(f1).Delete
f1 = Range(celda).Row
Else: f1 = f1 + 1
End If
Wend
End Sub
Sub eliminar()
'''''''''''''''
celda = "A1" '<---cambia esta celda por la celda en que
''''''''''''''''''empieza la columna donde se buscara
f1 = Range(celda).Row
f2 = Range(celda).End(xlDown).Row
While f1 <= f2
If IsNumeric(Cells(f1, Range(celda).Column).Value) = False Then
Rows(f1).Delete
f1 = Range(celda).Row
Else: f1 = f1 + 1
End If
Wend
End Sub
