Problema con programa en vba en excel
Soy nuevo en el tema de vba para excel
Tengo los dos combobox, uno para que me cargue todas las celdas de tipo de maquina, y otro para que me cargue el servicio, ahora es necesario que al seleccionar cualquier rango de los 3 colores y un tipo de servicio me aparezca la constante en un textbox6, alguno me puede colaborar con la programación
( Color azul-rango1)(color rosa-rango2)(color amarillo-rango3)
Muchas Gracias
El programa que tengo hasta ahora esta así
Private Sub CommandButton1_Click()
If TextBox6 = Empty Then
MsgBox ("Debe Suministrar Factor de Servicio"), vbCritical, "AVISO"
TextBox6.SetFocus
End If
TextBox5 = TextBox6.Value * TextBox2.Value
End Sub
Private Sub CommandButton2_Click()
Unload Me
UserForm1.Show 'volvemos a cargar el formulario
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub UserForm_INITIALIZE()
Sheets("Hoja1").Select
Range("A2").Select
Do While ActiveCell <> Empty
ComboBox3.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Hoja1").Select
Range("B1").Select
Do While ActiveCell <> Empty
ComboBox2.AddItem ActiveCell
ActiveCell.Offset(0, 1).Select
Loop
End Sub
2 Respuestas
Agrega lo siguiente a tu formulario
Private Sub ComboBox2_Change() Call Llena End Sub ' Private Sub ComboBox3_Change() Call Llena End Sub ' Sub Llena() 'Por.Dante Amor If ComboBox3.ListIndex > -1 Then f = ComboBox3.ListIndex + 2 If ComboBox2.ListIndex > -1 Then c = ComboBox2.ListIndex + 2 If Cells(f, c).MergeCells Then f = Cells(f, c).MergeArea.Cells(1, 1).Row End If TextBox6 = Cells(f, c).Value End If End If End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
