Visual Basic para Aplicaciones - PROBLEMA CODIGO

Life is soft - evento anual de software empresarial
   
Vista:

PROBLEMA CODIGO

Publicado por Ignacio Martin (16 intervenciones) el 28/03/2008 00:31:26
Tengo un problema, y no se como solucionarlo......
En la hoja1 tengo el siguiente codigo, para cargar el combo del userform

Private Sub CommandButton2_Click()
FILA = 1
Do While Not IsEmpty(Cells(FILA, 1))
FILA = FILA + 1
Loop
FILA = FILA - 1
seleccion = Range(Cells(2, 1), Cells(FILA, 8)).Address
USERFORM1.combo_seleccion.RowSource = seleccion
USERFORM1.combo_seleccion.ListIndex = 1
USERFORM1.combo_seleccion.ColumnCount = 3
USERFORM1.combo_seleccion.BoundColumn = 3
USERFORM1.combo_seleccion.ColumnWidths = "0;0;5"
USERFORM1.Show
End Sub

En el userform tengo el codigo que esta por debajo, funciona todo perfecto
El unico problema es que en el procedimiento "ingreso planilla", no me ingresa sobre la planilla los datos del Combo_modelo.Text, ni del Combo_color.Text
en las siguintes lineas de codigo:
ActiveCell.Offset(0, 1).Value = Combo_modelo.Text
ActiveCell.Offset(0, 2).Value = Combo_color.Text

pero si lo hace en Combo_cliente.Text


Private Sub ACTUALIZAR_DATOS_Click()
Call ingeso_planilla
End Sub

Private Sub combo_seleccion_Change()
Combo_cliente.Text = combo_seleccion.Column(2)
Combo_modelo.Text = combo_seleccion.Column(3)
Combo_color.Text = combo_seleccion.Column(4)
End Sub

Private Sub ToggleButton1_Click()
Combo_cliente.Locked = False
Combo_modelo.Locked = False
Combo_color.Locked = False

If ToggleButton1 = False Then
Combo_cliente.Locked = True
Combo_modelo.Locked = True
Combo_color.Locked = True
Exit Sub
End If

End Sub

Sub ingeso_planilla()
FILA = 1
Do While Not IsEmpty(Cells(FILA, 3))
FILA = FILA + 1
Loop
FILA = FILA - 1
For busqueda = 2 To FILA
With Worksheets("PRUEBA").Cells(busqueda, 3).Activate
Set dato = ActiveCell
If dato = combo_seleccion.Column(2) Then
ActiveCell.Offset(0, 0).Value = Combo_cliente.Text ' ESTA FUNCIONA
ActiveCell.Offset(0, 1).Value = Combo_modelo.Text ' ESTA NO
ActiveCell.Offset(0, 2).Value = Combo_color.Text ' ESTA NO
Exit Sub
End If
End With
Next busqueda
End Sub

Muchas 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