Habilitar botón y hacer operación de porcentaje

[hugo tlapanco]

Buenos días comunidad,

Estoy realizando un formulario con varias opciones pero dos de ellas no la puedo realizar, espero me puedan ayudar.

Tengo un cuadro combinado con una lista de datos y un botón de comando que dice activo, lo que quiero hacer es que al seleccionar la opción de cero se active el botón y este des habilitado para las otras opciones

Otra cosa mas

Tengo 3 Botones de texto en los cuales quiero realizar en una división entre cantidad 1 cantidad 2 y el resultado sea en porcentaje con 1 décima 

Ya lo intente de varias forma pero no he logrado el resultado deseado

Espero me puedan ayudar (anexo ejemplo)ejemplo.xlsm

Saludos

[Leopoldo Blancas]

Hola @hugo tlapanco,

Bueno creo que te falta ser más explicito de lo que quieres obtener y no veo ningún ejemplo de ello, solo esta el formulario.

Y solo una aclaración: NO son botones de texto, son Cajas de Texto o TextBox, es solo para que no te acostumbres a llamarlos de otra manera y todos te puedan entender. 

Te envio una solución, solo falta como quieres el dato en por ciento???

 

Saludos.

ejemplo_LBV.xlsm

[hugo tlapanco]

Hola @Leopoldo Blancas

Muchas gracias por tus comentarios lo tomare en cuenta.

La parte de activar en la lista ya la entendí perfectamente

sobre el resultado de porcentaje lo que quiero mostrar (Anexo adjunto)

Saludos

ejemplo_LBV_2.xlsm

 

[Antoni]

Cambia tu código por este:

Private Sub ComboBox1_Change()
If ComboBox1 = "cero" Then
   CommandButton1.Enabled = False
Else
   CommandButton1.Enabled = True
End If
End Sub

Private Sub TextBox1_Change(): Calcular: End Sub

Private Sub TextBox2_Change(): Calcular: End Sub

Private Sub Calcular()
TextBox3 = ""
If IsNumeric(TextBox1) And IsNumeric(TextBox2) Then
   If CDbl(TextBox1) > 0 Then
      TextBox3 = Round(CDbl(TextBox2) / CDbl(TextBox1) * 100, 1)
   End If
End If
End Sub