Eliminar filas con texto
Me puedes ayudar con una macro que elimine las filas de la columna A que no contengan numero o que contengan texto
Ejemplo que de estos caracteres
Empres
Planta
report
-------
Fecha
-------
Vendedor
--------
4123
4137
4163
4165
Solo deje las filas que contengan
4123
4137
4163
4165
Ejemplo que de estos caracteres
Empres
Planta
report
-------
Fecha
-------
Vendedor
--------
4123
4137
4163
4165
Solo deje las filas que contengan
4123
4137
4163
4165
1 Respuesta
Respuesta de inforvago
1
Puede servir...
Ya lo prove...
Coloca el cango de filas que deseas revisar...
Ejecutalo en la hoja que debe trabajar...
Sub Eliminado()
Dim Arreglo As Variant
Dim contador As Variant
ThisWorkbook.Worksheets("Hoja1").Activate
Range("A1:A10").Select
contador = 1
For Each Arreglo In Selection
If Not IsNumeric(Arreglo) Then
Rows(CStr(contador) + ":" + CStr(contador)).Select
Selection.Delete Shift:=xlUp
End If
contador = contador + 1
Next
End Sub
Ya lo prove...
Coloca el cango de filas que deseas revisar...
Ejecutalo en la hoja que debe trabajar...
Sub Eliminado()
Dim Arreglo As Variant
Dim contador As Variant
ThisWorkbook.Worksheets("Hoja1").Activate
Range("A1:A10").Select
contador = 1
For Each Arreglo In Selection
If Not IsNumeric(Arreglo) Then
Rows(CStr(contador) + ":" + CStr(contador)).Select
Selection.Delete Shift:=xlUp
End If
contador = contador + 1
Next
End Sub
