Macros Funcion Buscar y Edicion

[mrocf]

Mira kalc:
Lo que estás buscando "probablemente" lo cubra el siguiente código:

Código:

Sub Encontrado()
Dim MiPalabra As String, MiCelda As Range
    MiPalabra = InputBox("Ingrese texto a buscar:")
    If MiPalabra = "" Then Exit Sub
    Set MiCelda = ActiveCell.EntireColumn.Find(What:=MiPalabra, _
        LookIn:=xlValues, LookAt:=xlPart, SearchDirection:=xlNext, _
        MatchCase:=False)
    If MiCelda Is Nothing Then
        MiPos = ActiveCell.Address: ActiveCell.EntireColumn.Select: Range(MiPos).Activate
        MsgBox "El texto """ + MiPalabra + """ no fue hallado en la columna seleccionada."
        Exit Sub
    End If
Loop1:
    MiCelda.Offset(0, -1) = "ENCONTRADO"
    Set MiCelda = Range(MiCelda.Offset(1, 0), Cells(65536, MiCelda.Column)).FindNext
    If Not (MiCelda Is Nothing) Then GoTo Loop1
End Sub 

Mas el pertinente comentario de "abrahamvj" apunta a:
a) ¿sabes incorporar lo anterior a tu planilla?
b) ¿sabes que realiza el código?

OK... espero que te sea útil.
Saludos