Visual Basic para Aplicaciones - problema con comboBox y TextBox

Life is soft - evento anual de software empresarial
   
Vista:

problema con comboBox y TextBox

Publicado por Albert (108 intervenciones) el 31/10/2007 09:12:22
Apreciados expertos, de entrada disculpen por el toxo que les voy a soltar.
Tengo un problema con un comboBox que uso en un UserForm (en realidad el mismo codigo en dos userform distintos) la cosa es que en el primero debe buscar un codigo de articulo de la columna A (1) de la hoja 5 y una vez aceptado me rellena unos textBox con los datos de las colm. que le indico, pero en el userForm 2 debe de hacer lo mismo pero cogiendo los datos de la colm.F (6) , el comboBox funciona bien pero no rellena los textBox He probado todas las combinaciones pero no se que es lo que hago mal ....... en la propiedad BoundColumn he cambiado el 1 por el 6 en el codigo creo que he probado todas las combinaciones y nada no soy capaz de que funcione.
Les adjunto el codigo por si alguien me puede hachar una mano.
Mil gracias por anticipado

------------------------------------------------------
'Aqui busco la ref en el combobox

Private Sub ComboBox1_Enter()
Dim i As Integer
Dim final As Integer
Dim tareas As String

ComboBox1.BackColor = &H80000005

For i = 1 To ComboBox1.ListCount '(si cambio esta linea me coge las ultimas 5 ref de la colm.1 (y no se por que)

'Remove an item from the ListBox.
ComboBox1.RemoveItem 0

Next i

For i = 2 To 10000
If Hoja5.Cells(i, 1) = "" Then
final = i - 1
Exit For
End If
Next

'If ComboBox1.ListCount < 1 Then

'ComboBox1.AddItem "-"
For i = 2 To final
tareas = Hoja5.Cells(i, 6)
ComboBox1.AddItem (tareas)
Next

'End If

End Sub

--------------------------------------------------------------------------
Aqui busco rellenar los textBox

Private Sub ComboBox1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer

Dim final As Integer
Dim final2 As Integer
Dim FINAL3 As Integer
Dim FINAL4 As Integer

For i = 2 To 10000
If Hoja5.Cells(i, 6) = "" Then
final = i - 1
Exit For
End If
Next

For j = 2 To 10000
If Hoja5.Cells(i, 6) = "" Then
FINAL3 = i - 1
Exit For
End If
Next

For k = 2 To 10000
If Hoja6.Cells(i, 6) = "" Then
final2 = i - 1
Exit For
End If
Next

For m = 2 To 10000
If Hoja5.Cells(i, 6) = "" Then
FINAL4 = i - 1
Exit For
End If
Next

---------------------------------------------------------------------
Mil gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema con comboBox y TextBox

Publicado por albert (108 intervenciones) el 31/10/2007 13:14:55
Perdon falta un trozo de codigo

For i = 2 To final
If ComboBox1 = Hoja5.Cells(i, 6) Then
TextBox1 = Hoja5.Cells(i, 2)
Exit For
End If
Next

For j = 2 To FINAL3
If ComboBox1 = Hoja5.Cells(j, 6) Then
TextBox10 = Hoja5.Cells(j, 1)
Exit For
End If
Next

For k = 1 To final2
If ComboBox1 = Hoja6.Cells(k, 1) Then
TextBox2 = Hoja6.Cells(k, 3)
Exit For
End If
Next

For m = 1 To final2
If ComboBox1 = Hoja5.Cells(m, 1) Then
TextBox4 = Hoja5.Cells(m, 7)
Exit For
End If
Next

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:problema con comboBox y TextBox

Publicado por albert (108 intervenciones) el 15/11/2007 16:32:52
Solucionado me faltaba un val en:

For m = 1 To final2
If val(ComboBox1) = Hoja5.Cells(m, 1) Then
TextBox4 = Hoja5.Cells(m, 7)
Exit For
End If
Next

Gracias de todos modos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar