Ayuda urgente varias macros en una hoja

[victorperezc]

Buen dia!

Por favor solicito urgente ayuda en varias macros que tengo para una misma hoja.

la primera que presento se refiere a una macro de busqueda en multiples hojas es vital para la actividad que realizo. El detalle es este:

Option Explicit

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect([Codigo], Target) Is Nothing Then Exit Sub

If Not [bAuto] Then Exit Sub

Buscar

End Sub

La segunda que quiero incorporar es una que me asocie una base de datos a selecionar la celda. Cuando la aplico sola responde perfecto pero al intertar incorporarla me da un error . este es su codigo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo Salida

If Target.Column = 4 Then

foto = Target.Value

ActiveSheet.Image1.Picture = LoadPicture("F:\foto para los carnet\" & foto & ".jpg")

End If

Exit Sub

Salida:

End Sub

Por favor! como hago para que estas macros funciones en la misma hoja ayudaaaaaaaa

saludos!!!

Victor

vperez21@gmail.com

[Armando Montes]

Hola Victor, bienvenido al foro.

Para recibir mejor atencion por favor lee las Normas AyudaExcel | Ayuda Excel