Macro buscar y eliminar celdas

Hola.
Antes que nada gracias por tu tiempo, mira lo que necesito es una macro para buscar y eliminar el valor Falso que me aparece en 2 columnas.

1 respuesta

Respuesta
1
Dim MiDato As Range
Application.ScreenUpdating = False
Set MiDato = Range("B9")
Hoja1.Select
    Sheets("Tabla de Datos").Select
    Cells.Find(What:=MiDato, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
With MiDato
    ActiveCell.EntireRow.Delete
End With
MiDato.Value = ""
Range("B9").Select
Hoja2.Select
Application.ScreenUpdating = True
Esto busca el dato que pongas en B9 en una hoja que se llama Tabla de Datos, si lo encuentra borra la fila completa.
Adáptalo a tus necesidades.
Creo que no me exprese bien, en formularte la pregunta, si bien deseo eliminar el valor FALSO de las 2 columnas, estas columnas contienen valores que si necesito ocupar, ahora lo que si me ayudaría es una macro que buscara los valores FALSO y los reemplazara por celdas Vacías, lo hago con la grabadora de Macro, pero cuando ejecuto la MACRO esta no realiza el reemplazo de las celdas.
Atento a tu respuesta
Podría ser:
With MiDato
  If ActiveCell.Value = "Falso" Then ActiveCell.Value = ""
End With

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas