Color de celda a objeto

[Celest3]

Amigos, quiero pasar el color de fondo de una celda a un control textbox

he intentado con este pero no sale, por favor sus comentarios

For X = 2 To Productos.Range("A1").End(xlDown).Row


    If Me.CbPoductos.Text = Productos.Cells(X, 2) Then


        TxtLunes.BackColor = Productos.Cells(X, 2).Interior.Color

    End If

Next[/CODE]

a la espera de sus comentarios

Celest3

[/b]

[AlexanderS]

El código debería funcionar correctamente, sube un archivo ejemplo tal como dictan las normas del foro.

Salu2

[Antoni]

.

Intentalo así:

For X = 2 To Productos.Range("A1").End(xlDown).Row

    If Me.CbPoductos.Text = CStr(Productos.Cells(X, 2)) Then 

       TxtLunes.BackColor = Productos.Cells(X, 2).Interior.Color

       Exit For

    End If

Next[/CODE]

Saludos a ambos

[b][color=#ff0000]PD: Recuerda subir un archivo la próxima vez.[/color][/b]

.

[Celest3]

Gracias maestros por sus respuestas, los dos están lo correcto,

en el adjunto esta el archivo, llegue a cambiar el Blackcolor del textbox, pero en realidad lo que quiero es pasar ese color a la celda.

1.- al abrir el formulario se carga un listbox enlazado a la hoja Programación

2.- en l parte de suberior del listbox hay texbox (por cada dia) y un combo box

3.- en el comboBox escojo un producto y segun el escogido el textbox activo coje el color d ela celda.

4.- el backcolor debe pasar a la hoja Programacion segun el dia.

espero que se me entienda y me puedan dar unos consejos.

Saludos,

Celest3

PRUEBA3.rar