Macro al seleccionar opción en lista desplegable
Publicado por weapon (2 intervenciones) el 06/07/2008 03:26:17
Hola a todos los componentes de este foro, os explico lo que me trae de cabeza;
Tengo en la celda "B153" en la "Hoja1"una lista desplegable que toma los datos del rango (B3:B8) de otra Hoja llamada "Responsables" (Oculta con contraseña), una vez hecha la selección y mediante DESREF, COINCIDIR hace que una imagen que tengo insertada en la "Hoja 1" cambie y me muestre la imagen de la firma de la persona seleccionada
Y esto es lo que pretendo hacer
Que este evento
"una vez hecha la selección y mediante DESREF, COINCIDIR hace que una imagen que tengo insertada en la "Hoja1" cambie y me muestre la imagen de la firma de la persona seleccionada"
No se efectúe hasta que se valide la contraseña correspondiente a la persona seleccionada en el rango (E3:E8) de la Hoja "Responsables" introducida y si la contraseña introducida no es correcta no haga nada excepto presentar un:
MsgBox "Acceso Denegado", vbExclamation, "Contraseña incorrecta"
y detenga el proceso, y si la contraseña introducida es la correcta efectuará el evento y permitirá que cambie la imagen.
Este es el código que tengo:
Public Pw As String
Private Sub CommandButton1_Click()
If Pw = FormAcceso.TextBox1.Value Then
'Aqui las instrucciones SI la contraseña es correcta
Else
'Aqui las instrucciones si la contraseña NO es correcta
End If
End Sub
Private Sub UserForm_Activate()
Pw = Application.WorksheetFunction.Index([listaPw], _
Application.WorksheetFunction.Match(ActiveCell.Val ue,[lista], 0))
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
" ...
If Target.Address = "$B$153" Or Target.Address = "$Q$153" Then
FormAcceso.LabelN.Caption = Target.Value
FormAcceso.Show End If
" ...
End
http://www.speedyshare.com/348215890.html
Este es el enlace del archivo para una mejor comprensión, si no pudierais verlo me lo indicais.
Muchas Gracias
Un saludo
Tengo en la celda "B153" en la "Hoja1"una lista desplegable que toma los datos del rango (B3:B8) de otra Hoja llamada "Responsables" (Oculta con contraseña), una vez hecha la selección y mediante DESREF, COINCIDIR hace que una imagen que tengo insertada en la "Hoja 1" cambie y me muestre la imagen de la firma de la persona seleccionada
Y esto es lo que pretendo hacer
Que este evento
"una vez hecha la selección y mediante DESREF, COINCIDIR hace que una imagen que tengo insertada en la "Hoja1" cambie y me muestre la imagen de la firma de la persona seleccionada"
No se efectúe hasta que se valide la contraseña correspondiente a la persona seleccionada en el rango (E3:E8) de la Hoja "Responsables" introducida y si la contraseña introducida no es correcta no haga nada excepto presentar un:
MsgBox "Acceso Denegado", vbExclamation, "Contraseña incorrecta"
y detenga el proceso, y si la contraseña introducida es la correcta efectuará el evento y permitirá que cambie la imagen.
Este es el código que tengo:
Public Pw As String
Private Sub CommandButton1_Click()
If Pw = FormAcceso.TextBox1.Value Then
'Aqui las instrucciones SI la contraseña es correcta
Else
'Aqui las instrucciones si la contraseña NO es correcta
End If
End Sub
Private Sub UserForm_Activate()
Pw = Application.WorksheetFunction.Index([listaPw], _
Application.WorksheetFunction.Match(ActiveCell.Val ue,[lista], 0))
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
" ...
If Target.Address = "$B$153" Or Target.Address = "$Q$153" Then
FormAcceso.LabelN.Caption = Target.Value
FormAcceso.Show End If
" ...
End
http://www.speedyshare.com/348215890.html
Este es el enlace del archivo para una mejor comprensión, si no pudierais verlo me lo indicais.
Muchas Gracias
Un saludo
Valora esta pregunta
0