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
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