Excel - Me falto el codigo

   
Vista:

Me falto el codigo

Publicado por Albert (70 intervenciones) el 03/12/2007 08:29:04
Disculpen se me quedo la mitad de la pregunta en el tintero. Lo siento

buenos dias , tengo un pequeño problema con el codigo que me arreglo hace unos dias JuanC, pretendo aplicarlo a otro usf que estoy preparando.
En un combo pretendo ver dos columnas,(La "B" y la "C") hasta aqui no tengo problema, la cosa es que cuando escojo se me muestran los datos de la columna "c" he probado de cambiar el Bound column a 1 pero nada, el columncount lo tengo en 2 y ya te digo que mostrar las 2 las muestra, me puedes decir que es lo que hago mal? .
Ademas he hecho un "Private Sub CommandButton6_enter()" que guarda los datos en otra hoja, como he puesto el tabulador para que salte a él viniendo de comboBox1 lo hace bien pero no me vuelve al comboBox1 como le digo con la instrucción "setFocus" igual es que no la puedo utilizar si primero tengo "Private Sub ComboBox1_Change()"
Mil gracias, y perdona las molestias
Albert

Private Sub comboBox2_Change()
'els deixo en blanc
Label5 = ""
Label6 = ""
Dim rng As Range
Set rng = Hoja4.Range("b1:c" & Cells.Rows.Count).Find(ComboBox2, , , xlWhole)
If Not rng Is Nothing Then
With rng
'el nº indica la columna menos 1 ja que la "A" es 0
Label5 = .Offset(, -1) 'codi client
Label6 = .Offset(, 0) 'nom
End With
Else
UserForm4.Show
End If
Set rng = Nothing
End Sub
Private Sub CommandButton6_enter()
Dim i As Integer
Dim final As Integer
Dim j As Integer
Dim actual As Double
For i = 8 To 10000
If Hoja5.Cells(i, 1) = "" Then
final = i
Exit For
End If
Next
Hoja5.Cells(final, 1) = UserForm3.ComboBox1
ComboBox1 = ""
If Keyascii = 13 Then
ComboBox1.SetFocus
End If
End Sub

P.D: te lo envie al correo perdona por volver a pedirlo.
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