Eliminar Filas con valor de texto "Totales"
Saque el siguiente código de las consultas:
Sub BuscaTexto()
' Macro grabada el 13/11/2005 por Elsamatilde
Dim miTexto As String
miTexto = "Totales"
'se evalúa la col B
Range("B2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = miTexto Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Con en el objeto de que me elemine las filas en las que aparezca la palabra "Totales", que está siempre en la columna "b". Pero no me funciona.
¿Alguien me puede echar una mano?.
Gracias de antemano.
Sub BuscaTexto()
' Macro grabada el 13/11/2005 por Elsamatilde
Dim miTexto As String
miTexto = "Totales"
'se evalúa la col B
Range("B2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = miTexto Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Con en el objeto de que me elemine las filas en las que aparezca la palabra "Totales", que está siempre en la columna "b". Pero no me funciona.
¿Alguien me puede echar una mano?.
Gracias de antemano.
1 Respuesta
Respuesta de Elsa Matilde
1
Si no te funciona puede deberse a que el texto no se encuentra tal como lo estás colocando entre comillas.
La rutina evalúa la col B a partir de la fila 2, y se detiene hasta encontrar una celda vacía.
Si tu modelo tiene celdas vacías en el rango a evaluar, para que no se detenga tendrías que evaluar por otro criterio, por ej, el fin de rango
While ActiveCell.row < 50 por ej.
Comentame si esto resolvió tu consulta.
La rutina evalúa la col B a partir de la fila 2, y se detiene hasta encontrar una celda vacía.
Si tu modelo tiene celdas vacías en el rango a evaluar, para que no se detenga tendrías que evaluar por otro criterio, por ej, el fin de rango
While ActiveCell.row < 50 por ej.
Comentame si esto resolvió tu consulta.
