Buenas noches,

Requiero de su apoyo, explico:

tengo una macro para extraer un resumen de datos de otra hoja de excel, al colocar un numero de id me extrae la informacion sin problema, pero requiero que al selecionar el numero de id tambien me busque una imagen correspondiente al mismo id del resumen, pero no se como colocar los dos procedimientos en la misma hoja sin que me marque que hay nombres ambiguos, me pueden apoyar, les envio los dos cog¿digos que requiero se ejecuten al seleccionar de una lista el numero de id.

mis codigos funcionan sin problema, solo necesito saber como colocar ambos sin que me ponga ambiguedad e nombre.

muchas gracias por su tiempo

Private Sub Worksheet_Change(ByVal Target As Range)

        If Not Intersect(Target, Range("B10:M10")) Is Nothing Then    

        Application.ScreenUpdating = False

        Range("B15").CurrentRegion.Clear

        If WorksheetFunction.CountA(Range("B10:M10")) = 0 Then       

            Exit Sub

        Else         

            On Error Resume Next

            Sheets("RecordFacturas").Range("B9").CurrentRegion.AdvancedFilter 2, _

                Range("B9").CurrentRegion, Range("B15")

        End If      

        Application.ScreenUpdating = True

    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

    If Target.Cells = Range("K2") Then

    foto = Range("E8").Value

    Application.ScreenUpdating = False

    foto = foto & ".jpg"

    ruta = ActiveWorkbook.Path & "\fotos\" & foto

    Me.Shapes("foto_del").Delete

Set fotografia = Me.Pictures.Insert(ruta)

With Range("C5:H12")

    Arriba = .Top

    Izquierda = .Left

    Ancho = .Offset(0, .Columns.Count).Left - .Left

    Alto = .Offset(.Rows.Count, 0).Top - .Top

End With

    With fotografia

    .Name = "foto_del"

    .Top = Arriba

    .Left = Izquierda

    .Width = Ancho

    .Height = Alto

End With

Set fotografia = Nothing

    Application.ScreenUpdating = True

End If

End Sub