Macro para buscar Datos de una Hoja Excel cuando cumpla con algunas condiciones

[Edwin-Shadow]

Hola, necesito ayuda con una Macro, en el cual de una primera hoja “Formato” me pase los datos a una segunda hoja y luego esos mismos datos pueda buscarlos y extraerlos a la primera hoja dándole 1 o 2 condiciones, tengo una macro, pero al parecer no me esta funcionando

Gracias

Formato REGISTRO SEGUIMIENTO NIÑO.rar

[febrero59]

Buenas tardes Edwin,

Para darle juego a la "Flecha" "Mostrar Registro", te propongo sustituir la rutina "Sub buscar01()" del Módulo2 por lo siguiente:

Sub buscar01()

        Application.ScreenUpdating = False

        cp = ActiveWorkbook.Sheets("Formato").Range("C13")

        m = ActiveWorkbook.Sheets("Formato").Range("C15")

        a = ActiveWorkbook.Sheets("Formato").Range("B17")

        If cp <> "" Then

            Set dni = ActiveWorkbook.Sheets("Hoja2").Columns("H").Find(What:=cp, _

            LookIn:=xlValues, Lookat:=xlWhole)

            If dni Is Nothing Then

                MsgBox "Dni no encontrado!"

            Else

                u = dni.Row

                buscar01_1

                Exit Sub

            End If

            Set dni = Nothing

        ElseIf m <> "" Then

            Set CodAfi = ActiveWorkbook.Sheets("Hoja2").Columns("I").Find(What:=m, _

            LookIn:=xlValues, Lookat:=xlPart)

            If Not CodAfi Is Nothing Then

                u = CodAfi.Row

                buscar01_1

                Exit Sub

            Else

                MsgBox "Código de Afiliación no encontrado!"

            End If

            Set CodAfi = Nothing

        ElseIf a <> "" Then

            Set Nombre = ActiveWorkbook.Sheets("Hoja2").Columns("J").Find(What:=a, _

            LookIn:=xlValues, Lookat:=xlPart)

            If Nombre Is Nothing Then

                MsgBox "Nombre no encontrado!"

            Else

                u = Nombre.Row

                buscar01_1

                Exit Sub

            End If

            Set Nombre = Nothing


        Else

            MsgBox "Esta faltando ingresar un parametro"

        End If

End Sub


[/CODE]

Saludos, Juan

[Edwin-Shadow]

Gracias por la Atención a mi consulta, bueno e sustituido el código que me enviaste, pero ahora me dice error 91en tiempo de ejecución - Variable de Objeto o bloque with no establecido.

Gracias Juan

[febrero59]

Disculpa, que no cargué 2 variables.

Después de Application.ScreenUpdating = False mete lo siguiente:

        Set H2 = ActiveWorkbook.Sheets("Hoja2")

        Set F = ActiveWorkbook.Sheets("Formato")


[/CODE]

Saludos,

Juan.

[Edwin-Shadow]

Funciona perfectamente, y hasta ahí doy la consulta por solucionada. Pero tengo dos dudas, si me podrías ayudar:

1.- Como haria para que discrimine entre aquellos que tengan nombres parecidos ya que hasta ahora muestra la primera coincidencia.

2.- Cuando Busca los datos, hay la posibilidad de modificarlos pero como la macro de ingreso esta programada para insertar una nueva celda, pues ingresa los datos como un nuevo registro y no lo modifica como debería ser.

Gracias por la Ayuda