Borrar columnas que no contengan un texto

2 envíos / 0 nuevos
Último envío
yonigrinwod
Imagen de yonigrinwod
Offline
última acción: Hace 5 años 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 18/09/2010 - 20:28
Puntos: 875
Borrar columnas que no contengan un texto

que variable tengo que ponerle al codigo para que me elimine todas las columnas que no contengan Bebere

Sub borracolumnacriterios()
'
' Macro1 Macro
'

'
Rows("1:1").Select
Cells.Find(What:="Bebere").EntireColumn.Delete



End Sub

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 9 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9975
Nothing

Si busca algo y no lo encuentra, devolverá como resultado Nothing, así que puedes probar algo parecido a esto:

If Columna.Find("Bebere") Is Nothing Then...

he llamado Columna a una columna donde buscar, tú deberás recorrer las columnas donde quieras hacer la comprobación

------
Ya sé Excel, pero necesito más ahora en pdf

 

Data Tools Suite
datos y tablas con Excel