hola a todos amigos, bueno como dice el titulo tengo un percanse con esta funcion tengo una hoja con datos por ejemplo desde la columna "A"hasta la columna "K", el cual esta agrupado, pero la columna "I" quiero ocultarla, es aqui donde tengo el problema, pues al estar agrupáda la macro de ocultar la columna "I" no la oulta,pero si el grupo esta expandido la macro si la oculta. bueno es esto lo quisiera lograr , una macro para expandir los datos del grupo comprendido entre las columnas "A y K" ejecutar la macro de ocultar la columna "I" y luego contraer el grupo de datos. saludos Atte. Bernardo Moncada E. expandir contraer.rar

Esta permite que el form tome el tamaño según el monitor (pantalla) y resolución de este. Private Sub UserForm_Initialize() With Me .Height = Application.Height .Width = Application.Width End With 'Para controles en el form End Sub[/CODE] Para que los controles acompañen el tamaño (en proporción) del form, ¿Cuál seria en código? El form es este caso tiene TextBox, ComboBox, Label y CommandBottons

Me podrian definir que hace cada seccion de esta macro relacionada a este archivo: Sub Copia() Dim C As Range Application.ScreenUpdating = False For Each C In Range("A2", Range("A" & Rows.Count).End(xlUp)) Sheets("Molde").Copy , Sheets(Sheets.Count) With ActiveSheet .Range("A5") = C: .Name = Left(C.Offset(, 1), 31) End With Next C Application.ScreenUpdating = True End Sub Ejemplo Copiar Hoja.xlsm

Buenas, estoy investigando por la página web y no encuentro ningún ejemplo de macro que desglose lo que necesito. Trabajo desde una carpeta madre, digamos: "Vehículos". Dentro de la carpeta "Vehículos" tengo infinidad de subcarpetas. Me gustaría poder listar en el excel todas esas subcarpetas de la siguiente forma: En la Columna A, que aparezca a partir de la fila A2 el nombre original de la subcarpeta, no la ruta. Y en la Columna B, el acceso directo, es decir, un hipervínculo de la subcarpeta. También me gustaría tener un botón para actualizar las nuevas subcarpetas que vaya creando en esta carpeta madre "Vehículos". En resumen, necesito listar las subcarpetas de…

Buenas tardes, estuve alejado por bastante tiempo del foro por motivos personales y laborales. El archivo que adjunto funcionaba muy bien en mi sistema de 32 b, ahora que necesito usarlo no funciona en 64 bits. Agradeceré se sirvan darle una revisada. Gracias anticipadas Explorador con listview.xlsm

Estoy trabajando en una macro de forma que me permita extraer de una pagina de ofertas de empleo americana la información de ofertas según el código postal y la zona. Creo que la macro está bien pero cuando intento ejecutarla, nada más empezar, en el módulo 2 me subraya en azul la linea Macro 1 y aparece un aviso diciendo "error de compilación, No se ha definido Sub o Funcioo" He revisado la hoja de excel y no sé donde puedo equivocarme. Aquí tenéis el codigo de programacion del módulo 2. Pongo en rojo la línea donde creo que está el problema ---------------------------------------- Sub test() Dim eROW As Long Dim ELE As Object Set STH = Sheets("SHEET1") Ro…

Buenas a todos, Soy nuevo al foro, y un usuario "medio" de excel. Llevo unos días intentando vía formulas encontrar la manera de realizar una exportación por posiciones. Navegando he encontrado que lo mejor es via una macro pero no encuentro la forma de resolverlo ya que es necesario de un usuario avanzado en tema macros. 1. El tema en ejemplo es, tengo que exportar diferentes excels por posición así: Cuenta Saldo 100 3005,50 2121 -646,94 ... a un txt con esto: 2. Posición Longitud 1 12 Cuenta 13 11 Saldos positivos: 9 enteros + 2 decimales Saldos negat…

Hola que tal, Tengo el siguiente código que me ayuda a exportar una columna cada 100 filas y guardar lo en una carpeta en formato .txt pero cada vez que exporto al final de la línea 100 se agrega un espacio en blanco, me pueden ayudar a quitarlo y que solo queden las 100 líneas que necesito. Adjunto código: Sub ExportarTXT() Dim mPath$, iniCell$, i&, LR&, Vec, j%, iniTime!, R% iniCell = "$G$2" iniTime = Timer mPath = ThisWorkbook.Path & "\Txt\" With CreateObject("Scripting.FileSystemObject") On Error Resume Next: .GetFolder(mPath).Delete True: On Error GoTo 0 .GetFolder(ThisWorkbook.Path).subFolders.Add "Txt" End With LR = Cells(Rows.Count, R…

Muy Buenas Tengo una curiosidad,: tengo en una carpeta 3 libros, dos de ellos con macros en el libro (xlsm) que funcionan de la siguiente manera. uno.xls: ejecuta una macros del libro personal, que abre el archivo "dos.xlsm" actva una macro de este archivo que extrae parte de una info de un excel que está alojado en un sevidor y la copia en diferentes columnas en un nuevo libro excel que se crea con nombre"nuevo.xls" (por ejenplo) con parte de la info de uno.xls y la extraida del servidor. Despues la macro abre el archivo "dos.xlsm". dos.xlsm: La macro de este archivo que como he dicho, ha sido activada por "uno.xlsm", abre tres.xlsm y copia una parte de info de un ar…

Actualmente estoy utilizando esta pequeña macro Sub PDF() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\prueba.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub Pero quisiera poder realizar lo siguiente: -El archivo PDF se genere con el mismo nombre del libro de excel -El archivo PDF se guarde en la misma ruta del libro de excel -El archivo PDF y Excel queden cerrados. Siempre gracias por su tiempo, Saludos Daniel,

Tengó la siguiente macro que me permite exportar a PDF en una ruta definida por mi: Option Explicit Sub CreaPDF() Dim NombreArchivo, RutaArchivo, historico, separador As String NombreArchivo = Cells(7, 3).Value RutaArchivo = Cells(42, 2).Value historico = Cells(3, 6).Value separador = “-” ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo & NombreArchivo & separador & historico, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub Esa macro me exporta a un pdf la planilla que tengo en una ruta definida. Lo que necesito hacer ahora es qu…

Hola Estimados Foristas Nuevamente solicitando su apoyo. He podido adecuar un proyecto que he encontrado en el foro pero, necesito mejorarlo a mi necesidad: 1.- Que el formulario se exporte a PDF 2.- Que el formulario al momento de imprimirlo se ajuste la pagina a A4 o me de una opción para configurar la pagina ya sea horizontal o vertical 3.- En el combobox "empleado" me sale error cuando borro el primer caracter o cuando no encuentra un código buscado, necesito solucionar este inconveniente y a la vez cuando no encuentre el codigo me salga el mensaje (msg box), "codigo no existe" Espero contar con su apoyo como siempre. A la espera de sus atenciones Slds. FELI…

Hola buenas tardes foreros. Retomando una macro que tenía a medias, a ver si podéis ayudarme porque mis conocimientos en VBA no son muy amplios y por más referencias que miro en ejemplos de "exportar a pdf" no saco el error. Describo: - Función: Exportar un rango de la hoja a pdf en función de 2 variables, para esto utilizo "if" con ocultar y mostrar filas para que entrase justo en 1 o 2 hojas. - Errores: 1 - El msgbox de la ruta donde guarda el archivo SIEMPRE muestra la ruta donde se ENCUENTRA el excel, NO donde lo ha guardado. 2 - Da igual el nombre que pongas en en el msgbox de "guardar como", siempre utiliza el pre-programado. …

Hola a todos, Sé que la exportación a pdf es un tema concurrido pero no he conseguido resolverlo en excel. Problema: Necesito exportar varios documentos a pdf. Cada documento pdf consta de dos hojas del libro excel: 1 hoja llamada "informe_1" y 1 llamada "presupuesto_1" Además necesito que este archivo exportado a excel tenga como nombre el campo de 4 celdas del informe separados por guiones para que quede algo como: Agente - nºpresupuesto - CUPS - Titular En total tengo que exportar 10 archivos pdf. Cada archivo correspondería a su informe_n + presupuesto_n Agente - nºpresupuesto - CUPS - Titular Informe_1 Presupuesto_1 Ag…

Genios del Excel! Vuelvo a recurrir a ustedes con un pedido un poco más sotisficado. Les comparto la planilla Ejemplo Excel. En la hoja "Hoja a imprimir" hay una tabla con dos gráficos que se pueden ir modificando a partir de la lista desplegable ubicada en la celda B1. Desde allí se pueden seleccionar distintos cursos y el excel se actualiza de acuerdo a los datos del curso. Como este excel tengo muchos, en la mayoría en lugar de tener 5 opciones tiene 200. Me sería de gran utilidad generar algún código que me permita imprimir ese excel con cada una de las opciones de la lista en un word. Es decir: que en la página 1 del word aparezca la información del curso 1, en la…

Saludos cordiales, Necesito ayuda con una macro que estoy programando. La cuestión es la siguiente: Necesito exportar una hoja especifica de mi libro de resultados a la dirección path que el usuario indique, guardándola en formato .txt. Colocándole un nombre especifico con el dia y la hora, por ejemplo: "VaR Parametrico 15042013.txt" Agradecería mucho la pronta respuesta que me puedan ofrecer.

Estoy trabajando en una macro de forma que me permita extraer de una pagina de ofertas de empleo americana la información de ofertas según el código postal y la zona. Creo que la macro está bien pero cuando intento ejecutarla, nada más empezar, en el módulo 2 me subraya en azul la linea Macro 1 y aparece un aviso diciendo "error de compilación, No se ha definido Sub o Funcioo" He revisado la hoja de excel y no sé donde puedo equivocarme. La macro del módulo 1 es la que tendría que activarse si funcionase bien la macro Aquí tenéis el codigo de programacion del módulo 2. Pongo en rojo la línea donde excel se detiene y aparece el mensaje antes indicado -----------------…

Buenos días, espero que como siempre me puedan ayudar. Tengo una información que quisiera pasar a un archivo de world. Para esto, estoy utilizando un código que no es mio y utiliza una plantilla de word para buscar objetos y cambiarlos por la información que yo le especifico. Pero quisiera que también me exporte un cuadro que tiene un nombre definido de "cuadro" y no he podido. Alguien que me pueda decir como hago para exportar TODO el cuadro al archivo word. Adjunto un archivo para que sea mas claro la explicación. Gracias de antemano. Pasar a Word.zip

Saludos, Alguien sabra donde se podra conseguir informacion sobre exportar data de AVAYA CMS (programa de centros de llamadas) a Excel mediante VBA? Quiero incursionar en ese area desde hace rato pero he buscado y no encuentro nada. Gracias por cualkier ayuda,

Hola! Cómo puedo hacer para copiar un dato de una celda de un libro a otro, que es un índice compuesto por 31 hojas, una por día. La macro tendría que ser genérica de Excel para hacer correr al terminar de generar el libro con la información. Debería verificar las fechas que se incluyen en una columna de la página activa y escribir en el libro externo en cada hoja que corresponda a cada fecha, el valor único de una celda, verificando de escribir en la siguiente fila vacía del libro destino. De esta forma se generaría un listado por día con los valores copiados. Adjunto un archivo con la columna que se debe verificar y la celda de la que se debe copiar su valor. Lo que …

Buenos días a todos; Estoy intentado pasar datos de un listView a un archivo txt y no me acaba de ir del todo bien. Cuando selecciono los items para exportar me repite el primero y el último no lo envía. También tengo creada una función que cuando no seleccione ningún item me pase todos. La he desactivado porque active o no siempre pasa todo y con el mismo fallo (envía todos los items pero repite el primero y no envía el último). Agradecería si es posible vuestra ayuda. Saludos. MEtList.zip

Buenas. noches , nesecito copiar datos de excel a acces. como lo hago ?

Hola Amigos del Foro Es mi deseo agradecer la oportunidad que dan en este foro de aprender de muchos de ustedes y a su vez aportar algo de los pocos conocimientos. En esta oportunidad tengo un inconveniente con la conexión Excel Access - He tratado de crear la macro de conexión pero solo me da errores. Donde está la situación creo es que la BD Access está en un equipo remoto. No he podido establecer la cadena de conexión bien... en fín he intentado con múltiples opciones y nada Este es mi codigo: , Private Sub CmBtnEnviar_Click() Dim strSQL As String, _ CuadroTexto As Control 'me aseguro de que todos los cuadros de texto están rellenos 'For Each CuadroTex…

Hola, tengo un problema. Necesito exportar a travez de una macro los datos de una tabla de excel a una tabla de access (ambas tablas tienen las mismas columnas). He buscado codigos para poder hacer el procedimiento pero como soy novato no soy capaz de adaptarlo a mis necesidades. Lo que necesitaria es un codigo base que me sirva de estructura para exportar cierto rango de celdas de una hoja de excel a una tabla de access, donde yo tenga que cambia la ruta de conexión y el nombre de las tablas. desde ya muchas gracias.

Buen día Expertos Solicito su ayuda ya que tengo un inconveniente, tengo un archivo de excel donde ingreso datos, quisiera exportar los datos que coloco en este archivo mediante macros a otro libro que se encuentra en un disco duro de la red, he tratado de buscar en internet a ver si a traves de la la dirección IP ó SQL puedo realizarlo, pero no he logrado conseguir información. De antemano gracias. Archivo para exportar.xls Archivo para exportar.xls