Extraccion de Datos

hola, Jorge !

- ... macro y un... form... de un como box escojo una opcion (fila) de la columna A de la hoja 1... lo pego en la Hoja 2, columna A
- ... que en la hoja 2 columna B,C,D y E me pegue lo que esta en la columna 2,3,4 y 5 de la fila (de la hoja 1) escogida en el como box

podrias exponer como es el codigo que estas usando para la seleccion y pegado del combobox ?

saludos,
hector.

Hola Héctor el código es editado desde Visual así

Para seleccinar el combo box:

Private Sub UserForm_Initialize()
Worksheets("Cotización").Activate
'Worksheets("Cotización").Range(a7:m32) = Empty

For i = 43 To 57
combobox.AddItem Worksheets("Hoja 1").Cells(i, 1)
Next

Donde: 43 to 57 son las celdas que armo en la lista desplegable del combo

Para Pegarlo en la hoja 2:

Worksheets("Hoja 2").Cells(1, 2) = combobox.Value

*Además corrijo, no es columna 2,3,4, y 5 sino B,C, D y E

Gracias..
jorgef.


"Héctor Miguel" escribió en el mensaje
news:

hola, Jorge !

> - ... macro y un... form... de un como box escojo una opcion (fila) de

la columna A de la hoja 1... lo pego en la Hoja 2, columna A

> - ... que en la hoja 2 columna B,C,D y E me pegue lo que esta en la

columna 2,3,4 y 5 de la fila (de la hoja 1) escogida en el como box

podrias exponer como es el codigo que estas usando para la seleccion y

pegado del combobox ?

saludos,
hector.

hola, Jorge !

1) para el llenado del combo... prueba una alterativa mas 'rapia' [por si cambiaras el numero de elementos]
en lugar de usar un bucle For ... Next -> usa la propiedad '.List' y le asignas el valor 'directo' del rango
[p.e. usando el rango 'completo' del que asignas los valores al combo... 'A43:A57' ?]

Private Sub UserForm_Initialize()
'Worksheets("cotización").Range("a7:m32").ClearContents
combobox.List = Worksheets("hoja 1").Range("a43:a57").Value

2) para el 'pase' de las columnas 'A:E de la 'hoja 1' a la 'hoja 2' [segun el elemento seleccionado del combo]...
prueba con algo +/- como lo siguiente [especificando todas las columnas de la primera fila del rango 'A:E']:

If combobox.ListIndex < 0 Then Exit Sub
Worksheets("Hoja 2").Range("b1:f1") = _
Worksheets("hoja 1").Range("a43:e43") _
.Offset(combobox.ListIndex).Value

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ consulta original __

Para seleccionar del combo box:

Private Sub UserForm_Initialize()
Worksheets("Cotización").Activate
'Worksheets("Cotización").Range(a7:m32) = Empty
For i = 43 To 57
combobox.AddItem Worksheets("Hoja 1").Cells(i, 1)
Next

Donde: 43 to 57 son las celdas que armo en la lista desplegable del combo

Para Pegarlo en la hoja 2:

Worksheets("Hoja 2").Cells(1, 2) = combobox.Value

*Ademas corrijo, no es columna 2,3,4, y 5 sino B,C, D y E