Combobox que meta datos en userfrom
Para Dante Amor:
Hola Dante, quiero ver si me puedes ayudar con esto, tengo un libro que tiene un from dentro de ese from con un botón se habré
otro lo que quiero que un combobox al elegir un mes ejemplo agosto-septiembre octubre-noviembre, diciembre-enero, febrero-marzo
abril-mayo, junio-julio me llene unos datos en unos textbox que esta en el segundo from, cada de estos meses tiene datos diferentes lo que
quiero que me pegue la información de varias celdas en otra hoja que esta diseñada ejemplo hoja1 están los datos de dichos
meses y la hoja 2 esta un diseño ya preestablecido todos los datos van a las mismas celdas de la hoja 2
Ojala me puedas ayudar dante te lo agradecería mucho saludos cordiales
1 respuesta
Envíame tu archivo y me explicas en cuáles form y en qué hojas
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “hans alexis poblete venegas”
Te anexo el código
Dim h1, h2
'
Private Sub ComboBox6_Change()
'Por. Dante Amor
'
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
If ComboBox6.Value = "" Or ComboBox6.ListIndex = -1 Then Exit Sub
'
'Busca saldos
Set b = h1.Rows("10:19").Find(ComboBox6.Value, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox5 = b.Offset(1, 0)
TextBox6 = b.Offset(2, 0)
TextBox7 = b.Offset(3, 0)
TextBox8 = b.Offset(4, 0)
TextBox9 = b.Offset(5, 0)
TextBox10 = b.Offset(6, 0)
TextBox11 = b.Offset(7, 0)
End If
'
'busca total
Set b = h1.Range("F2:F7").Find(ComboBox6.Value, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox1 = b.Offset(0, 1)
End If
'
'Porcentajes
TextBox2 = h2.Range("G33")
TextBox3 = h2.Range("G34")
TextBox4 = h2.Range("G35")
End Sub
'
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
CommandButton1.Visible = False
End Sub
'
Private Sub CommandButton2_Click()
CommandButton1.Visible = True
CommandButton2.Visible = False
End Sub
'
Private Sub CommandButton7_Click()
Unload Me
End Sub
'
Private Sub UserForm_Initialize()
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("UCE")
'ComboBox6.List = Array("AGOSTO-SEPTIEMBRE", "OCTUBRE-NOVIEMBRE", "DICIEMBRE-ENERO", "FEBRERO-MARZO", "ABRIL-MAYO", "JUNIO-JULIO")
ComboBox6.List = h1.Range("F2:F7").Value
CommandButton2.Visible = False
End Sub.
.
