Jump to content

blas123blas

Members
  • Content Count

    10
  • Joined

  • Last visited

  • Country

    Argentina

About blas123blas

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. hola, encontre este codigo en otro portal ( https://exceltotal.com/macro-para-listar-archivos-de-carpetas-y-subcarpetas/ ). Desde un boton en la hoja de calculos llamas a un inputbox donde colocas la carpeta que necesitas. Como apreciaras en el codigo , la rutina recorre el directorio principal y luego sus subdirectorios. Quizas te sea de utilidad para agregar en el tuyo Private Sub BOTON_CARPETA_Click() ruta = InputBox("INGRESE LA RUTA DONDE BUSCAR LOS ARCHIVOS") Range("B6") = ruta Range("I5").Select Mostrar_Archivos (ruta) End Sub Sub Mostrar_Archivos(ruta) 'Sección 1: Declaración de variables y objetos Dim fs, carpeta, archivo, subcarpeta As Object Set fs = CreateObject("Scripting.FileSystemObject") 'Sección 2: Ajustes necesarios a ruta If ruta = "" Then Exit Sub ElseIf Right(ruta, 1) <> "" Then ruta = ruta & "\" End If 'Sección 3: Objeto Folder de la ruta indicada On Error GoTo ErrHandler Set carpeta = fs.GetFolder(ruta) 'Sección 4: Obtener archivos del objeto Folder For Each archivo In carpeta.Files ActiveCell.Value = ruta & archivo.Name ActiveCell.Offset(1, 0).Select Next 'Sección 5: Obtener subcarpetas del objeto Folder For Each subcarpeta In carpeta.SubFolders Mostrar_Archivos (subcarpeta) Next 'Sección 6: Auto-ajustar columnas y salir ActiveCell.EntireColumn.AutoFit Exit Sub ErrHandler: ActiveCell.Value = "Ruta inexistente" End Sub
  2. Me encanta access, aunque en mi lugar de trabajo se distribuirían planillas de excel para ser completadas y luego volcadas en una sola planilla. busco hacer esa planilla maestra donde meter todos los datos, las tablas no se ubicarían en las mismas filas (ya lo hice antes) porque en el archivo completo hay otras 4 tablas por cada hoja. eso hace que según la extension de cada una , altere la referencia de las tablas. intento ordenar pero se me hace muy duro. Habia pensado en distribuir las planillas en excel y luego importaras a access, pero se imaginan que aun me falta conocimientos. Las tablas dinámicas me gustan mucho aunque seria para la planilla total . Gracias por los aportes.
  3. muy buena apreciación, me gusta VBA pero muchos no habilitan los macros, las filas en blanco debajo de los datos quedaron en ese libro de ejemplo, se pueden autoajustar? gracias miles
  4. Hola nuevamente, este foro es de gran ayuda y me enriquece los conocimientos. He avanzado en mi libro y ahora queiro lograr que las tablas de las distintas hojas (que guardan relación de columnas) se integren en una sola tabla donde poder ver todos los datos. Como verán en el adjunto logre con la ayuda del foro obtener datos interesantes para saber cuantas filas hay en cada tabla. El libro tiene en su primer hoja lo que intento lograr Espero sus opiniones. Muchas gracias !!! consultas al foro.xlsx
  5. me encantaron todas las opciones, excel regala varios caminos hacia la misma solución, Eso es lo bueno !! cmo puedo valorar sus respuestas?? no se donde. PD ahora subo otra consulta
  6. Pero que fabuloso !!! claro, la función agregar nos permite agregar funciones en la formula , prefiero usar Agregar ya que evito la formula matricial. Que buena solución gracias !!!!
  7. Ahora Si. me disculpo por no conocer las reglas . Retomo mi consulta adjuntando el archivo de muestra donde creo exponer mi necesidad. gracias !! Hola a todos, resulta algo simple obtener el numero de la fila donde se encuentra la formula, empieza a complicarse cuando uno quiere conocer la fila donde existe un dato y peor aun cuando ese dato esta dentro de una tabla. El genio de Wordexperto.com me ayudo bastante, aunque aun aparecen errores o resultados no deseados. tengo varias tablas en distintas hojas, de las que obtengo datos desde una formula. Ahora me encuentro con que necesito conocer el numero de fila donde se encuentra el primer dato de la tabla y el numero de fila donde se encuentra el ultimo dato. No sirve saber que es la fila 1 de la tabla, sino que me interesa saber que es la fila 37 de esa hoja. Avanzando con la mano q me dio wordexperto.com llegue a esta formula: =FILA(INDICE(Tabla1[#Datos];COINCIDIR(1;Tabla1[[N° EXPEDIENTE ]];0);1)) Veran que la anidacion es correcta, aunque advierto los siguientes problemas.: En el primer argumento de INDICE tuve q colocar [#Datos], ya que si uso [#Todo] me devuelve el Nº de fila de los encabezados. En el segundo argumento de COINCIDIR tuve que limitar la matriz de búsqueda a la columna [Nº Expediente], ya que de lo contrario y si coloco [#Datos], me devuelve #N/A El primer argumento de COINCIDIR hace que me busque el valor "1", pero yo quiero que busque cualquier dato. . Me podrán guiar? consultas al foro.xlsx
  8. Hola genios: Estoy comenzando con este apasionante mundo de las macros y quisiera conocer sus ideas. He creado un libro con algunas funciones y formulas que me ayudan a optimizar mis tareas. mi "hoja 3", llamada "Mensajes" pretende llevar un registro de mensajes y tareas que trabajamos entre algunos usuarios (archivo compartido). Así, si yo encuentro algo de interes, lo dejo anotado y quien lea el mensaje trabajara al respecto en las otras hojas. Mi hoja "Mensajes" debe hacer lo siguiente: Columna A, solo admitirà 2 valores: "PENDIENTE"y"TERMINADO" Columna B se usara para ingresar el mensaje. Columna C se usara para ingresar la fecha del registro (automático) Columna D se usara para ingresar la fecha de culminacion de la tarea (automatico) La idea es que realice las siguientes tareas: Si agrego texto nuevo en la columna B, la primer fila, cambiara a "PENDIENTE" Si borro un texto agregado anteriormente, un mensaje debe aparecer e indicar "Quiere Borrar, o cambiar estado a 'TERMINAR'?" Si elijo "BORRAR", eliminara el contenido de la celda y quitara la palabra "PENDIENTE "o "TERMINADO " de la primer columna y las fechas. Si elijo "TERMiNAR" cambiara el valor de la primer columna a "TERMINADO" y agregarà la fecha actual en la columna D Si modifico un texto existente, un msgbox debe preguntar "Quiere modificar el mensaje (cambiara la fecha de creacion), o crear uno nuevo?" Si elijo "MODIFICAR" cambiara la fecha de creacion de mensaje(columna C), pasara el estado a "PENDIENTE" y pondra texto normal Si elijo "NUEVO" creara una nueva linea con el texto escrito, manteniendo el anterior como estaba. Cada vez que cambio el estado a TERMINADO, el mensaje que cambia su formato pasará abajo de todo y ordenado por la fecha de finalizacion La hoja "mensajes " tendra encabezado donde La Fila 1 mostrara el texto centrado y mas grande " HOJA DE MENSAJES" La Fila 2 mostrara los nombres de las columnas: A= Estado, B=Mensaje, C= Fecha Creacion y D=fecha Finalizacion (C y D en doble linea) Las celdas tendran formato adecuado para distinguir textos y separar columnas: Borde exterior mas ancho, bordes interiores mas finos, bordes superior e inferior del Titulo mas grueso, titulos en negrita Las fechas llevaran el formato dd/mm/aaaa Arriba, cerca del titulo "HOJA DE MENSAJES " debe existir un hipervinculo (o boton) de "volver" para regresar a la hoja 1. Mi hoja 1 tiene un hipervinculo que dice"TIENE XXX mensajes sin leer, Ver mensajes", donde XXX = cantidad de lineas con datos en hoja3 Cuando abro e libro y despues de cargar y mostrarse la hoja 1 un msgbox aparece y dice "TIENE XXX mensajes sin terminar, desea verlos?" Si elijo "SI" va a la hoja 3 Si elijo "NO" se queda en hoja 1 Cada vez que acceda a la hoja "mensajes" debera estar posicionado en la primer celda debajo del título, es decir que se mantendrà siempre la primer fila vacia para nuevos mensajes (al agregar un mensaje nuevo, se agregara una fila vacia y el cursor esperara por escribir en la celda B3. Si hago click sobre el estado PENDIENTE, me aparecera un msgbox "Desea TERMINAR la tarea?" Si elijo "SI" cambiara: estado a TERMINADO columnas A, B, C y D de esa fila cambiaran el formato a texto rojo, tachado y cursiva se agregara fecha actual en columna D Si elijo "NO" se mantendra el texto igual al igual que el mensaje. Creo haber contado lo que me gustaria hacer en mi hoja de mensajes, algunas cosas ya pude hacer, aunque me aparecen fallos y sobreescritura por todos lados. Les agradeceria propuestas y ejemplos de como ir armando esa hojita. Genios!! como siempres muchas gracias !!!!!! Blas
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png