UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 seleccion datos con formulario el 10/10/14, 01:53 pm

rubito1


hola querida gente del foro, como estan;he recibido en algunas oportunidades vuestra ayuda con la cual elaboramos este archivo con partes de  programacion;fui haciendo algunos cambios pequeños en la parte de programacion ,pero ahora quiero hacer algo pero no lo logro;deseo agregar unas columnas,lo cual explico en el ejemplo pero no consigo que "tome"los datos de donde debe tomarlos;espero se entienda mi explicacion o sino luego de que lo vean tratare de ampliar mi consulta,si mal no recuerdo quien logro "finalizar" este archivo fue igtelo (wibly tambien me ayudo en otras oportunidades)espero puedan verlo y ayudarme;gracias
Archivos
PROGRAMA PRODUCCION chica prueba.zip
No tienes los permisos para descargar los archivos.
(198 KB)

2 reabro tema el 14/10/14, 07:33 am

rubito1


lo reabro como tema que ya estaba resuelto,gracias

3 Re: seleccion datos con formulario el 15/10/14, 11:37 am

tyno


Hola Rubito.
Lo que hiciste esta bien, el problema, por así decirlo, es que solo se pueden cargar hasta 10 columnas en un cuadro de lista (o en un cuadro) combinado por este motivo no podías registrar los datos de las 3 columnas restantes.
Entonces lo que hay que hacer es cambiar el método para asignar datos a un cuadro de lista, para ello hay que utilizar la propiedad Rowsorce de éste y, en este caso, una Hoja auxiliar (la cual esta oculta) llamada Filtro_Lista, desde esta Hoja se toman los datos para el cuadro de lista. Utilizando la propiedad Rowsorce de un cuadro de lista se le pueden asignar la cantidad de columnas que se deseen.
Prueba el archivo. 

Saludos
Archivos
PROGRAMA PRODUCCION chica prueba.zip
No tienes los permisos para descargar los archivos.
(140 KB)

4 casi casi el 15/10/14, 04:14 pm

rubito1


que tal tyno,como siempre millll gracias x tu ayuda;en principio pareceria que ya esta resuelto y estaria perfectooo;te pregunto unas cosas

1)yo antes cambiaba los nombres de los labels directo en la parte de vba clickeando el nombre del label;ahora los "nombres " de esos labels(las operaciones)no estan visibles;adonde estan para que pueda modificarlos y si quiero cambiar el ancho de las columnas de cada una de ellas (articulo-sin fin-garlopa.etc...)

2)si quiero agregar en el futuro otra columna mas,deberia poner otra letra,por ejemplo una Q si quiero agregar 2 columnas?o no es aca donde se cambia(es en la "hoja oculta"??
3)por otro lado,quiero"copiar"este nuevo vba en la planilla original que tengo,para lo cual exporto el modulo programa y la sheet1(filtro lista) y luego los "importo"en mi planilla pero si bien toma el nuevo formato"visual"del "programa"no toma los datos ya que me lo importo como un "modulo de clase" en vez de como una hoja,se entiende?o debo copiar todo el libro que tengo en este archivo ,nuevo que me neviastes para evitar problemas?

5 Re: seleccion datos con formulario el 15/10/14, 05:14 pm

tyno


que tal tyno,como siempre millll gracias x tu ayuda;en principio pareceria que ya esta resuelto y estaria perfectooo;te pregunto unas cosas

1)yo antes cambiaba los nombres de los labels directo en la parte de vba clickeando el nombre del label;ahora los "nombres " de esos labels(las operaciones)no estan visibles;adonde estan para que pueda modificarlos y si quiero cambiar el ancho de las columnas de cada una de ellas (articulo-sin fin-garlopa.etc...)

2)si quiero agregar en el futuro otra columna mas,deberia poner otra letra,por ejemplo una Q si quiero agregar 2 columnas?o no es aca donde se cambia(es en la "hoja oculta"??



Ahora los labels los he quitado, como veras la lista tiene el encabezado de cada columna, creo que esto es lo mejor ya que a diferencia de los labels cuando te desplazes horizontalmente en el cuadro de lista siempre vas a tener a la vista el encabezado de columna que corresponde, en cambio los labels quedan fijos.
Si queres cambiar el encabezado de las columnas vas a tener que hacerlo desde la Hoja Filtro_Lista. Para ver esta Hoja vas a al editor de macro, seleccionas la Hoja y en el cuadro de propiedades, que normalmente esta abajo a la izquierda, en la propiedad Visible vas a modificar 2 – clSheetVeryHidden y  seleccionar la opción: -1 –xlSheetVisible. Con esto ya vas a ver la Hoja Filtro_Lista y en la misma vas a hacer las modificaciones que quieras.
En el caso que agregues mas columnas vas a tener que modificar el código de macro del cuadro de lista lista_hojas del formulario form_programa, 
Ubicas las siguientes líneas:
1)
.Range("c6:o" & .Range("c1000000").End(xlUp).Row).Select

En esta línea se determina el rango a copiar de la Hoja seleccionada en el cuadro de lista lista_hojas, como veras se copia desde la columna C hasta la O, suponiendo que agregas dos columnas mas hasta la Q entonces el código quedaría así: 
.Range("c6:q" & .Range("c1000000").End(xlUp).Row).Select

2)
rango = "Filtro_Lista!$A$2:$M$" & .Range("a1000000").End(xlUp).Row

En esta línea se determina el rango de datos en la Hoja Filtro_Lista  para la propiedad Rowsource del cuadro de lista lista_datos. Siguiendo el ejemplo de que si agregas dos columnas mas entonces tendría que quedar así esa línea:
rango = "Filtro_Lista!$A$2:$O$" & .Range("a1000000").End(xlUp).Row

En las propiedades del cuadro de lista lista_datos en la propiedad ColumnCount modificas el valor a 15 y en la propiedad ColumnWidths agregás los anchos de estas dos columnas por ejemplo: ;40 pt;40 pt

Por ultimo si vas a ocultar la Hoja de manera que no se pueda volver a mostrar con el menú Mostrar entonces vas a Programador, seleccionas la herramienta de edición (la escuadra  y la regla) y luego seleccionas el botón propiedades, con ello aparece la ventana de propiedades  y nuevamente modificas la propiedad Visible con el valor  2 – clSheetVeryHidden


Para utilizar estas macros en otro archivo, antes que nada hace una copia de tu archivo original, y abrí dicha copia así como este archivo, fijate que el archivo original, o sea la copia que acabas de hacer, no tenga módulos ni formularios luego desde la ventana VBAProject vas seleccionando los modulos y formularios y los desplazas al grupo de VBAProject del archivo original. Las macros que tengas en las Hojas estas sí vas a tener que copiarlas y pegarlas en su correspondiente Hoja.

Saludos

6 genial el 15/10/14, 06:47 pm

rubito1


tyno,tu sabiduria y forma de explicar las cosas no tiene nombre;sos genial;lo unico que no entendi bien fue la parte de como copiarlo al que ya tenia pero igual lo solucione;crfeo que estaria todo resuleto;es muy complicado si la lista(ex-labels)le quiero dar otro formato para que por ejemplo si tiene un nombre largo,en vez de que sea mas ancha la columna se ajuste en altura (como el formato de texto justificado pero en vba?si es muy complejo lo dejamos asi,sino...milllon de gracias igual tyno(con mil me quedaria corto)
(casi todas las cosas que me dijistes de hacer las habia hecho antes pero no andaban porque las  hacia por separado)

POR ULTIMO,AFECTA Si la hoja oculta la oculto simplemente con boton derecho ocultar?

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.