Problema con SetFocus
Publicado por Albert (88 intervenciones) el 28/11/2007 13:54:22
Buenos dias, tengo un problema no se como hacer que en un usf una vez un boton haga una acción determinada vuelva el cursor a un comboBox, lo he intentado con
ComboBox1.SetFocus pero no salta al combo si no que se va al boton que le manda la tabulación, no se si me explico,
Adjunto el codigo del boton por si se ve mas claro
Mil gracias de antemano
Private Sub CommandButton6_enter()
Dim i As Integer
Dim final As IntegerProblema con SetFocus
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 = ""
ComboBox1.SetFocus
ComboBox1.SetFocus pero no salta al combo si no que se va al boton que le manda la tabulación, no se si me explico,
Adjunto el codigo del boton por si se ve mas claro
Mil gracias de antemano
Private Sub CommandButton6_enter()
Dim i As Integer
Dim final As IntegerProblema con SetFocus
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 = ""
ComboBox1.SetFocus
Valora esta pregunta


0