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
Lo que parece que necesitas es poner todo el código dentro de la misma función.
Private Sub Worksheet_Change(ByVal Target As Range)