Activar funciones de boton de comando, con otro boton de comando
publicado
Buenas tardes:
Tengo un problema y es el siguiente: Tengo un formulario simple que depende de un listbox para seleccionar un libro a abrir. Mi formulario cuenta con 4 botones de comando, 1 para filtrar datos dependiendo de mi listbox, el 2do para guardar los cambios que se realizen en el formulario, el 3ero es para abrir un hipervinculo y el 4to para cerrar la hoja activa, es decir el hipervinculo abierto. Mi problema es que si por error se activa el 4to boton se cerrara mi archivo principal, cosa que no deseo, en mi logica entiendo que ese boton solo debe funcionar si se activo el 3ero, caso contrario no debe activarse.
Espero haberme echo entender, de todos modos les copio mis macros:
Buenas tardes:
Tengo un problema y es el siguiente: Tengo un formulario simple que depende de un listbox para seleccionar un libro a abrir. Mi formulario cuenta con 4 botones de comando, 1 para filtrar datos dependiendo de mi listbox, el 2do para guardar los cambios que se realizen en el formulario, el 3ero es para abrir un hipervinculo y el 4to para cerrar la hoja activa, es decir el hipervinculo abierto. Mi problema es que si por error se activa el 4to boton se cerrara mi archivo principal, cosa que no deseo, en mi logica entiendo que ese boton solo debe funcionar si se activo el 3ero, caso contrario no debe activarse.
Espero haberme echo entender, de todos modos les copio mis macros:
Private Sub CommandButton1_Click()
x = 2
Sheets("GRUPOS").Select
Do While Range("a" & x) <> listado
x = x + 1
Loop
RUC.Text = Range("B" & x)
DEPARTAMENTO.Text = Range("c" & x)
CORREO.Text = Range("d" & x)
TELEFONO.Text = Range("e" & x)
Sheets("Proveedores").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$500").AutoFilter Field:=1, Criteria1:=listado
End Sub
Private Sub CommandButton2_Click()
Sheets("GRUPOS").Select
x = 2
Do While Range("a" & x) <> listado
x = x + 1
Loop
Range("B" & x) = RUC
Range("c" & x) = DEPARTAMENTO
Range("d" & x) = CORREO
Range("e" & x) = TELEFONO
End Sub
Private Sub CommandButton3_Click()
Sheets("GRUPOS").Select
x = 2
Do While Range("a" & x) <> listado
x = x + 1
Loop
If Range("f" & x) <> "" Then
Range("F" & x).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.SmallScroll Down:=39
Else
MsgBox "EL GRUPO SELECCIONADO NO CUENTA CON BOH", vbExclamation, "ERROR!!!"
End If
End Sub
Private Sub CommandButton4_Click()
ActiveWorkbook.Close (False)
End Sub
En resumen lo que necesito es alguna macro que bloquee el boton 4, y solo se active cuando es utilizado el boton 3...
Espero su pronta respuesta.
Gracias de antemano,
Fernando