cómo eliminar filas enteras que contengan un texto que coincida con el que escribas en A1
Publicado por celia (437 intervenciones) el 28/08/2020 19:58:36
Buenas
Esta macro elimina todas las filas enteras que contengan la cadena de texto "ddd"
Quería poder usar la celda A1 para escribir otras cadenas en vez de usar solo la cadena "ddd"
Adjunto un ejemplo, aunque debe ser algo sencillo para los que sepan manejar estos códigos yo no acabo de aprender mucho de esto.
Muchas gracias y saludos
Esta macro elimina todas las filas enteras que contengan la cadena de texto "ddd"
Quería poder usar la celda A1 para escribir otras cadenas en vez de usar solo la cadena "ddd"
Adjunto un ejemplo, aunque debe ser algo sencillo para los que sepan manejar estos códigos yo no acabo de aprender mucho de esto.
Muchas gracias y saludos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub EliminarFilasConEsteTexto ()
Dim texto, Palabra As String
Range("A1").Select
Do While ActiveCell.Address <> "$A$300"
texto = ActiveCell.Text
Palabra = Left(texto, 7)
If Palabra = "ddd" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range("A1").Select
End Sub
Valora esta pregunta


0