Copiar diversas columnas incluyendo combobox

dff1403 · el 24 de enero

Buenas Noches,

Me gustaria puedan apoyarme con el siguiente adjunto, en el cuento con un userform, en el cual completo todos los datos y van a sus respectivas columnas, y si selecciono un combobox este debe ir debe ir en la fila "L" pero no se como hacerlo . Por otro lado, este combobox tiene los mismos nombres que las pestañas por lo que al seleccionar deberan copiarse también automáticamente a sus respectivas pestañas siendo solo las columnas J, I, A, C, G,H, de la hoja Ordenes siempre en la primera fila vacía que se encuentre.

Agradezco su amable atención,

GENERAL ORDENES 2014 - EJEMPLO (1).zip

Link7606 · el 24 de enero

Agrega la siguiente línea en donde estas colocando los datos en la hoja de Excel:

ActiveCell.Offset(0, 11) = ComboBox1

Con eso se soluciona lo que buscas.

Te recomiendo que el parámetro TabIndex tus elementos del UserForm (Texbox, ComboBox y botones) sean continuos, es decir, 0,1,2,...., 13; para que cuando estés capturando la información, puedas utilizar la tecla de Tabulador como si fuera un Enter, te ahorrará tiempo en tu captura.

Otra recomendación, cuando terminas de capturar un producto debería Excel esconder el UserForm de captura y mostrarte un cuadro de dialogo formulándote una pregunta: ¿Desea volver a capturar otro producto? y según la respuesta que presiones (SI/NO); SI = mostrarte de nueva cuenta el UserForm de captura, NO = debería de cerrar el UserForm. Bueno, sólo son recomendaciones.

Saludos..

dff1403 · el 24 de enero

Hola Amigo, excelente recomendaciones, pero, como en este caso me han ayudado a armarlo, me podrías ayudar para hacerlo? Gracias

dff1403 · el 24 de enero

ya lo tengooooo, Gracias!!!! una consulta adicional, espero puedas ayudarme, es posible que cuando se seleccione el proveedor vaya directamente a su pestaña (la cual tiene su mismo nombre) para este caso solo debería copiar las columnas J, I A, C, G, H de la hoja Ordenes en la primera fila vacía que encuentre. Espero puedas apoyarme.

Gracias,

dff1403 · el 24 de enero

Amigo, de la nada me salio el error: "ActiveCell.Offset(1, 0).Select" esta seleccionado en amarillo, que puede ser?

dff1403 · el 27 de enero

Hola, podrías darme una mano pls? Gracias,

dff1403 · el 27 de enero

Un Favor Alguien que me. Pueda ayudar con este tema? Muchas gracias.

bigpetroman · el 27 de enero

sube tu nuevo archivo con los datos que ya acomodastes

dff1403 · el 28 de enero

Hola bigpetroman, adjunto el archivo para tambien ver la consulta adicional, sobre si es posible que cuando se seleccione el proveedor vaya directamente a su pestaña (la cual tiene su mismo nombre) para este caso solo debería copiar las columnas J, I A, C, G, H de la hoja Ordenes en la primera fila vacía que encuentre. Espero tus comentarios por favor. Un Saludo y Gracias

GENERAL ORDENES 2014 - EJEMPLO.zip

dff1403 · el 30 de enero

Hola, alguien por ahí para que me brinde su ayuda? Gracias

bigpetroman · el 30 de enero

amigo debes revsiar tus macros, consegui varios problemas:

primero, en este evento de la hoja INICIO

Private Sub Worksheet_Activate()

    Hoja5.Visible = xlSheetVisible

End Sub[/CODE]

la [b]HOJA5 [/b]no existe en tu archivo, pues siempre te dará error

segundo,

el codigo de evento CommandButton1_Click (en el formulario), comienza así

[CODE]'Desprotegemos la hoja
ActiveSheet.Unprotect
'Nos situamos al principio
Range("A2").Select
'Bajamos hasta encontrar la fila vacía
Do While Not IsEmpty(ActiveCell)
'Bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop[/CODE]

pues está malo, o mejor dicho, no está correcto ya que para evitar problemas debes asegurarte siempre de estar en la hoja que quieres trabajar o hacer referencia directa a la hoja en tu codigo; le agregue este codigo para que active la hoja que selecciones en el combobox

[CODE]Dim wLaHoja As Worksheet

On Error GoTo CommandButton1_Click_Error

If ComboBox1.Value = "" Then Exit Sub
Set wLaHoja = Worksheets(ComboBox1.Value)

wLaHoja.Select[/CODE]

no realice ningún cambio adicional, debería funcionar; otras cosas que debes revisar es que las hojas donde vas a copiar los datos deben tener el mismo formato o estructura, para que no tengas problemas, hay 2 donde la primera fila para copiar datos comienza en la fila 5, las otras 2 en la Fila 6, eso te traera problemas

y una ultima recomendacion, trata de leer algún manual sobre Excel y Macros y sobre todo usa la ayuda propia de Excel, te servira de mucho

GENERAL ORDENES 2014 - EJEMPLO_SM.zip

dff1403 · el 31 de enero

Hola bigpetroman , gracias, pero ahora lo que ingreso lo copia a la pestaña del proveedor mas no en la hoja Ordenes, osea debe ingresarse cuando se seleccione el proveedor vaya directamente a su pestaña (la cual tiene su mismo nombre) para este caso solo debería copiar las columnas J, I A, C, G, H de la hoja Ordenes en la primera fila vacía que encuentre. Podria ser posible?