Hola amigos del foro, utilizo actualmente el siguiente código para extraer un rango datos de todas las hojas de un libro y colocarlo en otra hoja. Este libro se hizo con el tiempo cada vez más pesado y tuve que hacer un libro para cada hoja, pues aquí radica mi problema: tengo que ajustar mi código para buscar en todos los archivos de la carpeta. On Error Resume Next Dim wrbLibro As Workbook Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet Dim CurFilename As String CurFilename = Sheets("RANGOS").Range("A1") Set wrbLibro = Workbooks(CurFilename) Set wrsHojaActiva = ThisWorkbook.Sheets("RESUMEN") For Each wsHoja In wrbLibro.Worksheets If wsHoja.Name = "VIAJ…

Hola, estaba tranato de encontrar una macro o similar que diera formato a unas 100k+ filas Tengo un txt que lo he puesto en exel para desde aquí hacer algo. He pensado en la posibilidad de extraer tdoas las filas entre el primer [f_id] hasta el siguinete [f_id] y luego utilizar la funcionalidad de excel para separar cada columna con el caracter "]" pero no estoy muy seguro de como hacerlo Tambíen dependiendo de cómo se haga estaría bien algñun tipo de control del tipo, si data a es true then copy para que las columnas no se mexclen tipo [data b] aparezca en la columna [data c] Muchas gracias de antemano Antes Col A 1 2 [f_id] => 1 3 [data a] => bla bla …

Buen día, tengo un archivo automatizado para realizar cálculos con datos tomados de una base de datos, pero necesito que en base a esta información una macro "lea" y llame a insertar filas con las fórmulas que tiene la fila anterior, intente hacer la macro yo con la función si, pero no soy muy diestra con las macros. En si lo que necesito es lo siguiente: Si en la hoja "base de datos" yo tengo una celda que dice "1" y otra que dice "titulo" yo quiero que la macro "lea" que donde diga partida más el número, me añada filas hacía abajo en otra hoja que se llama "avance financiero" pero que añada la cantidad de filas que yo le indique de acuerdo a otro celda donde contenga es…

Hola a todos, escribi una macro para que cuando apieto un boton en un textbox me tenga que aparecer la ultima fecha ingresada, pero no funciona, lo dejo por si alguien me puede dar una mano y decirme que estoy haciendo mal. yo creo q es xq deberia transformar las fechas a otro tipo de dato para comparar o compar los años, los meses y los dias por separado. Muchas gracias! Prueba Visual.rar

Hola: Tengo un formulario en una hoja excel 2007 y quisiera que en algunas celdas cuando termine de escribir automáticamente pase a formato Nombre Propio, encontré en este mismo foro el siguiente código pero no logro hacer que sea solo para las celdas B2 y B4, en la hija1: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target = Empty Then Exit Sub If Target.Column = 6 Or Target.Column = 19 Or Target.Column = 23 Then Target = UCase(Target) If InStr("B2$,B4$", Left(Target.Address(, False), 2)) Then _ Target = Application.WorksheetFunction.Proper(Target) End Sub Muy agradecido de ant…

Tengo un archivo el cual Macro Antonio me hizo favor de ayudarme. En dicho archivo de excel tengo un userform con imagenes BMP. Las cuales se insertan dependiendo de la imagen que escogas Para que funcione, las imagenes tienen que estar en la misma carpeta en donde esta mi archivo. este es el codigo Lo que quiero hacer es que el userform me funcione en cualquier libro de excel. Independientemente de donde guarde mis imagenes. De antemano muchas gracias. Nueva carpeta.rar

AYUDA: Tengo una base de datos donde necesito crear reportes por cliente, desde 1 libro maestro ("ANALISIS") que contiene diversos # de hojas...la hoja desde donde tengo el formato y la captura de los datos es ("REPORTE"), mi pregunta es la siguiente: 1.-Ocupo una MACRO que desde el libro "ANALISIS" hoja "REPORTE" haga una copia de los valores del reporte del rango ("A1:H79") y que haga un pegado especial como "formato de origen" en un nuevo libro con el nombre del cliente, ubicado en una celda ("J1"). y el nombre de la hoja donde se genere el pegado, tenga el nombre del numero de reporte ("G6"), al momento de seguir agregando reportes, coloque las nuevas hojas en forma…

hola amigos, les comento que quiero su ayuda por favor, tengo un excel con una tabla con 270000 fila aprox, y tablas dinamicas asociadas a ese rango de manera dinamica usando ref, y necesito saber si convendría mejor tener esa tabla en otro archivo y asi alivianar el peso de 50mb a 3 mb del archivo principal con las tablas dinamicas, mejoraria el rendimiento?, y de ser así, ¿como puedo hacer una macro que lo que haga sea asignar el origen de datos a esa tabla dinamica hacia el otro archivo? pero de tal manera que si es que cambio de pc, tambien cambie la deteccion de la ubicacion del archivo de la base de datos, pensaba en algo como obtener la direcccion del archivo pr…

Buenas quisiera que me ayuden para lograr que al apretar enter copie los datos en la otra hoja al igual que lo hace el macro del ejemplo PasarDatos02_io_fae.xls

Buen dia, necesitaria que me ayuden con esto la idea es buscar un dato y que en la ultima fila me agregue una x cuando encuentre el mismo adjunto un ejemplo en el cual me colorea pero despues no me sirve para filtrar por eso es la idea de agregar la x ahh en el ejemplo se repiten los datos necesitaria que me marque todos y que el comand but se mantenga siempre al frente ejemplo.rar

Hola a todos y todas. Lo primero, gracias de nuevo a todos y todas. Me estáis ayudando un montón. Os cuento. Tengo una hoja prácticamente lista para introducir datos. Todo está preparado (o casi todo ), pero cuando comienzo a trabajar con ella me dí cuenta de una dificultad. Los datos son numéricos (por tanto utilizaré el teclado numérico de la "derecha"), y cuando quiero pasar a la celda siguiente, cuando pulso intro, lo que hace Excel es desplazarme a la celda de abajo en vez de a la de la derecha +1 (la adyacente estará bloqueada para que no se cambien las fórmulas). Probé hacerlo en opciones de excel/avanzadas/desplazamiento de la tecla ENTER y funciona, pero s…

Hola a todos y todas. Estoy haciendo una hoja de cálculo para un tema de trabajo y me he encontrado con una dificultad. Vaya por delante que soy usuario de Excel medio, y de macros ando un poco verde, por eso no sé si es el éste es la sección del foro correcta o no. De todas formas, va mi agradecimiento de antemano. Mi problema es que tengo una hoja con muchos registros. En cada columna hay un encabezado, pero cuando estoy en el registro 33, por ejemplo, al no ver el encabezado de la columna, no sé si estoy introduciendo los datos en la celda correcta. Para comprobarlo, tengo que irme de nuevo arriba para ver el título de la columna. ¿Solución? No sé si se puede h…

Buenos días, Es mi primera intervención en el foro, soy un usuario de excel bastante avanzado pero es ahora cuando estoy descubriendo las amplias posibilidades que ofrece VBA, y en esto me estáis ayudando un montón, así que gracias! Mi duda es: quiero hacer una macro que mediante un popup (userform) me permita desbloquear la hoja introduciendo la contraseña, y luego siga haciendo cosas con otros pupups que salen. Hasta aquí todo ok, el problema está cuando se mete la contraseña incorrecta, que se rompe la macro. Cómo podría hacer para que si se introduce una contraseña que no es correcta, entre en un loop solicitando que se introduzca la contraseña correcta, hasta que s…

De antemano gracias por la ayuda. Tengo una matriz que varia tanto en numero de columnas, como de filas, lo que necesito es una macro que a partir del valor introducido en una celda fuera de la matriz, busque el mismo valor en esta, y arroje el titulo de la columna y de la fila, cada uno en distintas celdas. Adjunto un archivo con un ejemplo simplificado de forma manual. Gracias. nombre de columnas y filas.xls

Que tal a todos, tengo el siguiente problema. en el adjunto pongo un userform con marcas lo que quisiera saber es como puedo hacerle para que seleccione una marca y apretando el boton de insertar me pega la marca en la hoja activa. De antemano muchas gracias. MARCAS.rar

hola amigos les queria pedir una ayuda, nose si es que se pueda, pero queria un ciclo for que vaya desde 1 hasta el numero de tablas dinamicas que tenga, y que en cada recorrido me seleccione la tabla dinamica 1 hasta la n, que seria el total de tablas y me aplique un cambio que seria el de hacer que no guarde los datos eliminados en origen,. bueno para que esto funcione tiene que existir algun numero de indexacion para las tablas dinamicas, lo qeu no sesi exista o no, me imagino qeu si pues si se pued con las hojas, me ayudan con el codigo? aqui dejo mi idea pero necesito las instrucciones: n = total de tablas dinamicas ' en el caso de que se pueda for i 1 to n …

Saludos Amigos, soy nuevo en esto, tengo un reporte generado por un reloj checador,me gustaria ver si me pudiesen ayudar, en el reporte tengo departamento, numero de trabajador, nombre, dia, marc entrada y marcacion salida. Me gustaria desde un libro diferente importar datos del reporte generado de modo que me acomode las columnas de la misma manera con con la excepcion de que las personas que no tienen marc entrada o marcacion salida no me pase sus datos. Ademas me gustaria que se hiciera un calculo en base a la entrada y salida para conocer el tiempo extra del trabajador. Agradeceria toda ayuda posible. eder.xls

tengo este archivo de un ejemplo de factura a ingresar tengo 10 combobox que funcionan perfectamente al sumar al sacar subtotal todo esta bien el problema es al adicionar los otros. desde donde empieza al combobox 11 no funcionan. Necesito 30 pero he tratado de colocar primero 10 y despues otros 10 y me sale error no se llenan y no se hace la sumatoria aunque los coloque en el recorrido para llenado y sumar, ya tienen el consecutivo de nombres como al principio pero no se que sucede. adicional a eso no he podido hacer que el scrollbar funcione con el scroll del mouse solo con el teclado se desplaza y con el mouse hayq ue dar click en la barra e ir bajando o subiendo.…

Buenos días a todos, Solicito su valiosa colaboración ya que tengo una macro que me calcula un tiempo determinado para efectuar una acción la cual me funciona a la perfección pero en este momento necesito que con otra macro se detenga está con el fin de seguir con otro procedimiento sin que me genere errores. Pido disculpas por no adjuntar un archivo pero es que estoy escribiendo desde el celular y no me es posible adjuntar el archivo. Por tal motivo adjuntó la estructura de la macro. Range ("K6") <> "" Then Tiempo pausa=5 'asigna tiempo inició Inicio = timer 'establece la hora de inicio Do while timer < inicio + tiempopausa DoeventS

Hola amigos: Solicitando su valioso apoyo para resolver un problema que me surgio en la impresion de unos archivos, resulta que en una pestana tengo unos contratos los cuales constan de varias hojas, y lo tengo configurado en hoja tamaño oficio por asi requerirlo, pero la ultima hoja necesito que se imprima en tamaña carta, todo esto automaticamente mediante una macro, ?? , y agradezco de antemano si alguien me pudiera apoyar las primeras 4 hojas se imprimen bien, pero la ultima al cambiar la configuracion se descuadra en mi macro utilizo la sig, instruccion: ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True With ActiveSheet.PageSetup .P…

Saludos A todos: Pues que tengo un problemita que no he podido resolver, si alguien me puede ayudar se agradecera de antemano Paso a Explicar: Tengo una hoja que se llama Datos que va de la Columna A a la Columna BI y en filas tiene casi 6000 en la Columna P se puede poner Pagada, Cancelada, Devolucion, Gestor o Juridico y en base a ella se pinta la fila, no con formato condicional sino con formato manual, he creado 5 hojas mas con los nombres Pagada, Cancelada, Devolucion, Gestor y Juridico, puedo seleccionar y copiar de manera manual una fila y pasarla a la hoja correspondiente, pero pense que con una macro seria mas rapido de hacer, ya que se haría de manera…

Buen día estimados, En mi trabajo me han preguntado, si puede ser posible que en la hoja de cálculo un par celdas con información no pueda imprimirse con claridad o sea, que no sea muy entendible y además que no se pueda editar copiar la info o guardar como... abosolutamente nada mas que ver el archivo e imprimir de la manera como les describí anteriormente. Bueno lo que se me ocurrió fué de primero proteger la hoja de cálculo y el libro, luego creé un boton llamado "Imprimir", este haría la ejecución que al dar clic sobre el: Primero desbloquea la hoja para poder llevar a cabo la ejecución de la macros, Segundo que el texto de las celdas que no quieren que se impriman…

Buen día, a ver si alguien me puede orientar: Tengo hecho un archivo con macros de excel que tiene enlaces a imágenes que están en el disco duro y enlaces a archivos varios, el problema que tengo es que muchas veces (no siempre) me ocurre que voy trabajando el archivo y de pronto al intentar guardar me aparece que excel a tenido un fallo y debe cerrarse, me ocurre en varias maquinas por lo que sospecho que es el archivo. Gracias. Yaco.

Hola buenos dias, TENGO LA SIGUIENTE MACRO: Sub ValuacionJJG1() ' ' ValuacionJJG1 Macro ' 'Replace "VALUACION (23)" with the name of the sheet to be copied. ActiveWorkbook.Sheets("VALUACION (23)").Copy _ after:=ActiveWorkbook.Sheets("VALUACION (23)") ' End Sub Duda, quisiera modificarla de tal manera que la proxima vez que la utilice en vez de copiar VALUACION 23 copie la valuacion 24 con datos ya modificados y asi sucesivamente. Espero que me ayuden, y les sea interesante el tema. Gracias de antemano.

hola a todos, necesitaria si me podrian ayudar en lo siguiente, tengo una macro que me abre una cantidad "x" de paginas web, a veces se cierran algunas de ellas, y lo que necesitaria es, si hay alguna forma de que, al presionar el commandbutton me identifique si la pagina que va a abrir se encuentra abierta o no, en el caso de que se encuentre abierta que no lo haga nuevamente de lo contrario que la abra. gracias saludos