MarianoCruz

Hola buenas tardes. Debido al trabajo debo estar comparando en un periodo unos archivos dentro de una carpeta o subcarpeta. en base a la fecha de creacion o modificacion. pero tengo que estar viendo carpeta por carpeta y aveces son varios. Con una macro intente listar los archivos de cualquier carpeta y subcarpeta, esto activandolo segun la celdaactiva. El problema es que tiene algunos errores. 1. si la carpeta cuenta con subcarpetas me los manda a muchas filas abajo. Mi idea es hoja(Así debe quedar) Que con una macro pueda seleccionar la carpeta desde el buscador y me de la lista de archivos a partir de la fila 6. siendo columna A= fecha de modificación, columna B =Fecha de creación y columna C=Nombre del archivo con hiperlink. Con otro o con la misma macro poder seleccionar otra carpeta y sus subcarpetas, según sea el caso. y me liste a partir de la columna F de la fila 6 Siendo La columna F=Nombre del archivo, columna H=fecha de creación, columna I=ultima modificación Para así poder acceder y comparar mis archivos, directamente desde excel. Muchas gracias Mariano Listar archivos de 2 carpetas para comparar.xlsm

Hola buenas tardes. En una hoja plantilla donde realizo diferentes consultas de datos. tengo ya establecido dos formulas diferentes con función SI y buscar. estos buscan diferentes rangos de datos y recibendiferentes resultados. Cada formula varia según una palabra o numero ejemplo si pongo Xl pone la formula 1 y si pongo cualquier numero entre 1 y 3 pone la segunda formula. Lo que necesito hacer es que si en una celda de la columna B3 pongo XL debería de considerar la formula 1 y si pusiera el numero 1 me pondría la segunda formula, dentro de la misma formula. Ya agregue la función SI($C3="Xl",Formula1.. Pero no me funciona, espero me puedan ayudar. Muchas gracias Mariano Formula doble si en celda existe.xlsx

He cambiado mi macro a este: Sub repetir() Set a = Sheets(ActiveSheet.Name) uf = a.Range("C" & Rows.Count).End(xlUp).Row 'ultima fila con datos ActiveCell.Select ActiveCell.Offset(1, 0).Select 'Application.OnTime Now + TimeValue("00:00:10"), "repetir", , True End If End Sub Lo que no se es como detenerlo al llegar a la ultima fila con datos de la columna C. Muchas gracias

Hola buenas tardes: Por favor me pueden ayudar a realizar lo siguiente. ejecutar una macro después de un tiempo, que recorra una columna a partir de la celda activa hacia abajo. Es una lista extensa, que filtro desde la columna B. y solo me muestra las filas que me interesan. ejemplo: Si mi celda activa es la C23 ejecutar la macro y baje una celda y repite la macro después de 20 segundos y lo vuelve hacer(Simpre bajando una celda), y que este se detenga hasta la ultima fila que este visible en el filtro. Ya que puedo tener muchos datos mas. Gracias Prueba filtro y avance.xlsm

Hola buenas tardes. Tengo una plantilla en la que doy formato de texto a mis celdas en base a condiciones dentro de la columna A con una macro. ejemplo si en A20 tengo "SI" la celda G20 se pone en azul y negrita y así diferentes condicionantes. Pero al ser mi plantilla este se reutiliza. en ocasiones estas celdas ya tienen un formato previo, necesito que antes de ejecutar un nuevo formato me limpie o borre el formato y dar el nuevo. y así con las celdas que aplican a las condiciones puestas.Cambio de formatos.xlsm Muchas gracias Mariano

Hola buenas tardes: Tengo la siguiente estructura de macro: Sub AjustarRangoD() Dim rngC As Range For Each rngC In [Anexos!d14:d20] AjustarTextoEnCeldasCombinadas rngC.MergeArea (macro para ajustar tamaño a los rangos indicados) Next rngC End Sub funciona bien, pero cada que abro mi libro, este me marca un error 424 se requiere un objeto. y marca en amarillo la 2da linea de mi macro. y detiene la ejecución de la macro. Esta macro la llamo dentro de una estructura Worksheet_Calculate() Public Sub Worksheet_Calculate() Static ValorPrevio Application.EnableEvents = False ' Prevenimos un posible bucle debido a cambios en la hoja ' If Hoja2.Range("f13") <> ValorPrevio Then ' Verificamos si el valor ha cambiado respecto al valor anterior ' ' Application.Run ("AjustarRangoD") ''Lanzamos macro ' ValorPrevio = Hoja2.Range("f13") ' Cargamos de nuevo la variable de control de cambio ' End If ' Empieza el otro macro ' Rows("15").Hidden = Range("d15") = 0 Rows("23").Hidden = Range("d15") <> 0 Rows("24").Hidden = Range("v21") = "Aj" Application.EnableEvents = True ' Restablecemos los eventos ' End Sub Muchas gracias Mariano

Antoni. Agradezco mucho tu atención y gran respuesta. Justo lo que necesito. voy analizar la estructura. Para entender mejor y utilizar en otros archivos. Saludos Mariano

Hola buenos días. Tengo un archivo con la que trabajo constantemente, una hoja donde ingreso muchos datos de otra hoja. Con una formula compuesta me funciona muy bien, el problema es que tengo que estar borrando los datos para actualizarlo con nuevos. y tengo que estar pegando esta formula cada vez que actualizo. Con la macro quiero lograr que esta formula se pegue unicamente en donde halla datos. Trate de hacer la macro para que me ponga dicha formula (en inglés) Espero me puedan ayudar. Gracias Mariano MAcro buscar indirecto.xlsm

Hola buenas tardes. Tengo un archivo en donde busco diferentes archivos que están ubicados en diferentes rutas y subcarpetas. el cual funciona bien. La función busca el nombre del archivo y me muestra la ubicación de ella (ruta completa) no importando si esta en subcarpetas. Me era util cuando tenia pocos archivos que ubicar, pero ahora cada vez son mas y mas, me gustaría hacer esto mismo, pero poniendo yo el nombre de manera parcial(columna b), ya que no siempre tengo el nombre completo. y poner en otra celda la extension (columna c). y que la función pueda buscar con estos 2 condiciones. espero me puedan ayudar. Muchas gracias M Busca archivos en ruta y subcarpetas.xlsm

Hola buenos días, Tengo un archivo que utilizo para buscar carpetas dentro de una ruta indica. Con una parte del nombre de la carpeta busca y me da las rutas coincidentes, y con otra macro vinculo esa ruta para abrirlo. Pero me encuentro con el problema de que hay rutas que no puedo abrir, si estos tienen acentos. Mi consulta es existe otra manera de poder abrir estas rutas aun teniendo acentos. ya que tengo muchas carpetas. Muchas gracias Abrir Link.xlsm

Hola JSDJSD: Agradezco tu atención, subo mi archivo base. Saludos Cordiales Mariano Ingreso Por user Form.xlsm

Hola a todos: Recurro a ustedes por lo siguiente: Tengo una hoja tipo base en la que por medio de un user form, ingreso información en la siguiente fila vacía. en la columna A llevo un consecutivo unicamente informativo que va de 1,2,3,4 etc segun se va llenado cada fila vacia. y asi en cada la fila vacia siguiente. Me funciona bien! Ahora necesito que el ingreso lo realice a partir de la fila 2 y la información que esta escrita previa se recorra hacia abajo. Así poder tener la ultima información arriba. con esto mi consecutivo seria 4,3,2,1. Adjunto la estructura del user form. Muchas gracias Ingreso por userform.txt

Tengo un listado general de varios archivos que están dentro de mis carpetas. pero dentro de este listado hay carpetas con sus archivos que no necesito ver. Actualmente con la macro en mi archivo puedo ocultar las filas con información que no necesito. Esto se ejecuta al recorrer la columna A y si en ella encuentra un "x" los oculta. El problema es que dentro de varias carpetas puede haber muchos archivos y tendría que estar marcando uno por uno y me lleva tiempo. Existe alguna manera de que al poner los números de fila a ocultar en la columna B lo realice. Contabilizando desde la celda en donde tenga la X en la columna A. Gracias. Oculta filas.xlsm

Hola, ya después de muchas pruebas he solucionado mi problema. Muchas gracias!

Hola buenas tardes: Tengo un archivo en la que reviso varios archivos Pdf y después trabajar con ellos. Pero con esto realizo una revisión previa. La macro me ayuda, a ver un previo de los archivos que tengo listado en la columna C. Con una ruta fija que esta en la celda A2. Al dar doble clic en cualquier celda de la columna C, me muestra el previo del archivo, según la celda seleccionada.(al dar doble click) Lo que me gustaría poder hacer es que una vez que se abrió el userform poder moverme hacia el siguiente o anterior de la celda seleccionada, para poder realizar mi revisión sin estar saliendo y entrando del userform. Ya he podido poner los botones de anterior y siguiente, pero no se como poner en mi estructura: ruta = Range("A2") & "\" Nombre = ruta & ActiveCell ' archis Me.WebBrowser1.Navigate Nombre Para que este cambie el archivo pdf según la celda que selecciono cada vez que aprieto los botones de siguiente o anterior Con las estructuras en los botones solo he podido cambiar el nombre de la etiqueta, pero también necesito el cambio en el previo (en base a la celda) Muchas gracias Prueba de previsualizarArch.xlsm

Hola Israel: Muchas gracias. Revise lo que me has comentado y me voy por el archivo bat. Aunque debo de ingresar las rutas a donde deberá enviar mis archivos. Te agradezco tu apoyo. Saludos

Israel, muchas gracias. Lo que trato de hacer es adaptar mis necesidades de acuerdo al mi movimiento diario con el manejo de los archivos. Ya que excel es mi herramienta diaria con diferentes movimientos con archivos. Por tal motivo el querer mejorar esta parte. Saludos

Hola Israel Buenas tardes. gracias por atender, la idea de copiar los archivos de esta manera es agilizar el proceso, al seleccionar de manera directa los archivos a una carpeta, y no buscar la ruta y listar los archivos y así después ejecutar la macro de copiar. Es una manera mas rápida y eficiente. Ya que tengo que estar moviendo constantemente varios archivos a la vez. Saludos Mariano

Hola buenas tardes. Por las necesidades en mis movimientos de archivos en mis carpetas necesito mover a carpetas diferentes archivos, esto puede ser desde 1 a varios y copiarlos a una carpeta. Con una macro útil hago esto. 1. desde excel se abre el buscador, selecciono el archivo a copiar. 2. me muestra nuevamente el buscador, para seleccionar la carpeta en donde se pega el archivo y lo realiza. Esto es archivo por archivo. Pero esta misma operación la necesitaría poder hacer con diferentes archivos. Existe alguna manera de poder realizarlo? He intentado hacer algunas modificaciones y ya he conseguido poder seleccionar los archivos requeridos y lo hace, pero no puedo pegarlos en la carpeta seleccionado. Muchas gracias Macro copiar varios archivos a una carpeta.xlsm

Gracias: yo había puesto Dim x as range, pero noo me daba. Muchas gracias por tu ayuda y seguimiento a mi peticion.

Me marca error de compilacion, no se ha definido la variable y me marca en amarillo:Private Sub buscar_Change() Gracias

Muchas gracias: Adjunto el archivo con la estructura de las macros. Saludos Prueba de 2 macros en hoja.xlsm

Hola: Muchas gracias por tu gran ayuda, me ha funcionado perfecto en mi ejemplo. Pero tengo un problema, espero me puede ayudar. Ahora en la hoja donde quiero poner la estructura de la macro que me has dado ya tengo otra macro que utiliza Worksheet_Change(ByVal Target As Range). Lo puse y me marca errores. Este es la otra macro: Private Sub Worksheet_Change(ByVal Target As Range) Dim rngData As Range 'Aqui inicia Set rngData = Range("g5") On Error Resume Next If Union(Target, rngData).Address = rngData.Address Then Application.EnableEvents = False Target.ClearFormats Select Case Len(Target) Case 1, 2 Target = DateSerial(Year(Date), Month(Date), Left(Target, 2)) Case 4 Target = DateSerial(Year(Date), Right(Target, 2), Left(Target, 2)) Case 8 Target = DateSerial(Right(Target, 4), Mid(Target, 3, 2), Left(Target, 2)) Case 7 Target = DateSerial(Right(Target, 4), Mid(Target, 2, 2), Left(Target, 1)) Case Else MsgBox "Entrada Incorrecta" Target = "" End Select Application.EnableEvents = True End If On Error GoTo 0 If Intersect(Target, Sheets("RegistroS").Range("G4")) Is Nothing Then Exit Sub If Application.WorksheetFunction.CountIf(Sheets("Base"). _ Range("B2:b1000"), Target) <> 0 Then MsgBox "Folio Repetido" Target = "" End If End Sub Por favor si me puede ayudar. Muchas gracias

Abraham Valencia Buenos días, agradezco mucho su atención y respuesta a la misma. Realizare las operaciones que me indica e investigare mas sobre el tema. con lo que me indica iniciare con mis pasos para hacer lo requerido. Saludos

Hola buenos dias: Tengo una macro con la que me ayudo a registrar una plantilla formato muchos códigos, en la que yo selecciono la celda y me muestra una ventana emergente con un listado de códigos que extraigo de otra hoja. y al seleccionarlo escribe el código en la celda seleccionada. Funciona bien. siempre si escribo letras iniciales del código o texto. Lo que necesito hacer, es poder escribir cualquier parte del código texto, me de las coincidencias. un ejemplo:tengo el código Margarita-2025 con solo yo poner gari me mostrara este código o los códigos que existen. Muchas gracias Mariano Filtro en lista despegable3.xlsm