Macro que encuentra una "palabra" en la hoja y al encontrarla elimine la columna que la contiene y las 7 a su izquierda
Eliminar eliminar eliminar eliminar eliminar eliminar eliminar eliminar
A B C D E F G H
1 "palabra"
2
3
1 Respuesta
Respuesta de Abraham Valencia
1
Una forma es la siguiente:
Sub BuscaryBorrar()
Dim ValorBuscado As String, CeldaEncontrada As String, Segundacelda As String
Dim Buscar As Range
Let ValorBuscado = "Palabra"
With Sheets("Hoja1").Range("A1:U10")
Set Buscar = .Find(ValorBuscado, , , xlWhole, , xlNext)
If Not Buscar Is Nothing Then
Let CeldaEncontrada = Buscar.Address
Let Segundacelda = Sheets("Hoja1").Range(CeldaEncontrada).Offset(0, 6).Address
Sheets("Hoja1").Range(CeldaEncontrada & ":" & Segundacelda).EntireColumn.Delete
Else
MsgBox "No existe el dato"
End If
End With
End SubDonde le doy valor a la variable "ValorBuscado" tú puedes reemplazar por el valor de una celda, o un "InputBox" o lo que te sea más útil.
Comentas.
Abraham Valencia
