Eliminar celdas que sólo contengan dos caracteres
Buen día. Para ir al grano, estoy tratando de borrar las filas de la columna A que sólo contengan dos caracteres. Este el mi código, pero no me funciona:
Dim i As Integer
Dim CeldaVar As Range
Set CeldaVar = Range("A1")
CeldaVar.Select
Calculate
For i = 1 To Range("A65534").Cells.Count
If Len(Range("CeldaVar").Cells(i)) = 2 Then
CeldaVar.Select
Selection.Delete
Else
End If
Next i
End Sub
Gracias por la ayuda que me puedan prestar. Un buen día para todos.
Dim i As Integer
Dim CeldaVar As Range
Set CeldaVar = Range("A1")
CeldaVar.Select
Calculate
For i = 1 To Range("A65534").Cells.Count
If Len(Range("CeldaVar").Cells(i)) = 2 Then
CeldaVar.Select
Selection.Delete
Else
End If
Next i
End Sub
Gracias por la ayuda que me puedan prestar. Un buen día para todos.
1 respuesta
Respuesta de 230283
1
Ahi te envio el codigo el cual debera estar en un modulo. UN codigo mejorado desde luego:
Sub eliminar()
Range("A1").Select
Do While ActiveCell <> Empty
If Len(ActiveCell) = 2 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Sub eliminar()
Range("A1").Select
Do While ActiveCell <> Empty
If Len(ActiveCell) = 2 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
