Macros Funcion Buscar y Edicion

[kalq]

Hola esto seria mi primer intento por aprender a usar macros... ando buscando comparado con lo de PABLUS que cuando yo pongo "buscar" busque una palabra determinada y marque en la fila de la izquierda la palabra "encontrado"
POR EJEMPLO INTENTO ENCONTRAR LA PALABRA " SI " APRETO EN EL BOTON BUSCAR Y ME MARCA DE LA SIGUIENTE FORMA:

______________ xx001no2x3
__ENCONTRADO_ xx001si2x4
__ENCONTRADO_ xx001si2x5
______________ xx001no2x9
______________ xx001no2x6

Espero que me puedan ayudar....

Desde ya muchas Gracias

[abrahamvj]

Hola, disculpa, pero considero que antes de aprender a correr, debes empezar a camniar. Bajate algun manual de VBA, para que vayas aprendiendo lo basico. Sobre tu pregunta, primero seria bueno que entendieras lo mejor posible las macros que ves en el post que mencionas

Abraham

[kalq]

Osea en realidad lo que necesito es "ando buscando comparado con lo de PABLUS que cuando yo pongo "buscar" busque una palabra determinada y marque en la fila de la izquierda la palabra "encontrado"
POR EJEMPLO INTENTO ENCONTRAR LA PALABRA " SI " APRETO EN EL BOTON BUSCAR Y ME MARCA DE LA SIGUIENTE FORMA:

______________ xx001no2x3
__ENCONTRADO_ xx001si2x4
__ENCONTRADO_ xx001si2x5
______________ xx001no2x9
______________ xx001no2x6

La verdad solo busco un poco de ayuda es para mi trabajo, lo que menciono es algo de un post parecido..

desde ya muchas gracias

[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