Hola. Necesito una macros que de la hoja 1, cambie los nombre de las próximas hojas, según la columna A y que los datos de la fila 1 se copien en la hoja según el nombre de la hoja. Ejemplo: Celda A1 es el nombre de la hoja 2, y los datos de la fila B1:E1 deben ir en esa hoja, pero en la fila A3:D3 Celda A2 es el nombre de la hoja 3, y los datos de la fila B2:E2 deben ir en esa hoja, pero en la fila A3:D3 Envío una muestra, ya que son mas de 2.000 columnas. Gracias desde ya.

Buenas noches, expertos por favor tengo un macro creado para generar codigo QR masivo ejecuta todo bien pero no muestra las imagenes del QR, por favor me puede ayudar por que ocurre eso. Ajunto el archivo QR.xlsm

Hola a todos; Imagino que lo que voy a preguntar no se puede hacer pero quiero salir de dudas si sois tan amables. ¿Es posible cargar en un textBox el contenido de mas de un rango de celdas? Creo que únicamente concatenando, no? Adjunto la macro y saludos a todos. MRango.xlsm

Bunos dias, expertos necesito de sus valiosos conocimientos para generar una macro que cuando doy clic en una de la columnas B donde esta listado el nombre del pdf me puede abrir dicho archivo, tengo muchas carpetas donde estan almacenados los pdf, logre hacer con la opción hipervinculo, pero el problema como es bastante lo busco filtrando entonces pierde el vinculo y no funciona; es por eso que solicito ayuda si podria ver una macro donde me cumpla toda las funciones anteriormente explicado. Espero haber cido claro, por favor me pueden ayudar. Ajunto un archivo de prueba con dos carpetas donde esta almacenado un archivo pfd en cada una de ellas. Muchas gracia…

Buenas tardes estimados (as): Tengo una duda, por favor si pueden aclararme lo siguiente. dentro de la sintaxis que se maneja eh visto que en algunos casos se utiliza por ejemplo: Set Dato = .Cells.Find(What:=nombre, lookat:=xlWhole) y en otros casos se utiliza set dato =.cells.find(nombre, xlwhole) ¿Existe alguna razón para ello?, eh notado que en algunas versiones de excel ya sea 32 bits o 64 bits no ejecuta el código, entonces ¿Hay alguna regla para codificar de una u otra manera?, si pueden ayudarme con esta duda. Gracias de antemano

Alguien que me oriente el porqué al hacer doble click en un pdf me muestra lo que vemos en la foto en vez de abrir directamente el pdf en el formulario, ordenador recién formateado en excel 2016 con windows 10 pro (64) y el resultado es este, sin embargo en otro pc sin formatear con con mismo sistema operativo, excel 2016, y excel 2019 me lo muestra perfectamente.

Buenos días, tengo una formula que quería hacer que fuera una macro ya que tengo muchos registros y al aplicarla quedan 0 o N/A. =SI(B2=Hoja2!A2;Hoja2!B2) Gracias.

Hola a todos Estoy intentando automatizar un proceso y que los registros que hay en excel exportarlo a SQL espero que los espertos del gripo me puedan ayudar. El archicho que adjunto me funciona cuando es solo un registro en la fila 7, sin embargo requiero: 1 Que me consulte si los datos de la fila B (que peuden ser una o muchas filas con información ), en caso de ya estar el registro en la base de datos que mande la leyenda. 2 Que si los datos de la fila B no existen en la base de datos que exprote todos los datos con el macro ingesarDatos. El archivo adjunto lo he estado trabajando, sin embargo se me han complicado los p…

Buenas tardes Tengo tres hojas: P01, P02 y P03 y 150 hojas numeradas de F001 á F150. Necesito copiar el Rango B21:J55 de P01 y pegarlo, por ejemplo, en la F001 y para ello uso la macro siguiente: Sub Inserta_1_F001 () Sheets("P01").Range("B21:J55").Copy Destination:=Sheets("F001").Range("B21") Sheets("F001").Select Range("L10").Select End Sub Esto lo hago con las macros correspondientes para la 150 hojas . Lo mismo con P02 y con P03 por lo que tengo 450 macros y que funcionan correctamente. Mi pregunta es: habría alguna forma de crear una macro que haga lo mismo pero desde …

Hola a todos, estoy nuevamente trabada en algo que pareciera facil pero me ha estado complicando la vida absoluta... tengo el siguiente codigo, que lo que DEBERIA HACER, es por cada celda que este vacia "celda.Offset(0, 36)= empty" me ejecute = hD.Cells(ufo, 36) = celda.Offset(0, 4) + celda.Offset(0, 5). Lo unico que LOGRE es que me haga esa funcion en la ultima fila... no se como hacerlo para cada celda vacia ?. Porque la idea es que la hoja se va a ir cargando con nuevos valores, y las celdas que estan vacias significa que aun no hice el proceso fechaJuliana...Perdonen mi igorancia total pero probe varias formulas. y la unica que me ha funcionado parcial…

Hola a todos; Adjunto una macro donde hay un procedimiento para generar códigos QR. -He cogido el código Vba Access (by Antonio) y lo he adaptado a Excel. Creo que funciona correctamente, lo que no sé es si es posible imprimir desde el formulario el código generado o bien pasarlo al libro Excel. ¿Sería posible una u otra opción? Saludos y buen día. MQr.xlsm

Hola a todos muy buenos dias como estan! A los grandes maestros de este grupo, queria consultar por una macro que estoy usando para buscar archivos en una carpeta, actualmente la macro me funciona, recorre todos los archivos dentro de una carpeta pero no que no logre es que si hay subcarpetas entre tambien a las sub carpetas, asi que tengo que hacerlo uno por uno aun asi seleccionando carpeta por carpeta, es muy muy muy lento?.... demora 11 minutos en ejecutarse para evaluar por ejemplo una carpeta con 600 archivos... me gustaria saber si existe o no una forma de optimizar para que demore menos... porque lo que necesito es evaluar MUUUUCHAS CARPETAS con …

Hola buenas noches, espero su ayuda por favor. Estoy intentando copiar datos de un libro: prueba_guardarotrolibro(TEMP) para pasarlo a otro: baseprueba(TEMP), desde la columna A hasta la columna AO, que cumplan la condicion en la columna Estado = Cerrado al pasar al otro libro debe copiarse debajo del ultimo registro. ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS, ES MUY IMPORTANTE. baseprueba.xlsx prueba_guardarotrolibro.xlsm

Hola buenas tardes, espero su ayuda por favor. Lo que estoy haciendo es mostrar en el listbox los datos de la hoja: prueba_guardarotrolibro(TEMP), segun la condicion de la fecha y del combo Lo que deseo es que en el listbox se muestre solo los datos que he seleccionado (N°, Cotizacion, Producto, Costo, Cantidad, Ingreso) Pero para luego pasarlo a la hoja: baseprueba(TEMP), deberia pasar todas las columnas de la hoja en el orden que se encuentra la hoja destino (baseprueba(TEMP)) y que al momento de pasar los datos, en la columna "Estado" cambie de Abierto a Cerrado ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS baseprueba.xlsx …

Hola a todos; ¿Es posible cargar en un comboBox el rango de las columnas de una tabla? Por ejemplo: Si tengo un rango de columnas que va desde la columna "B" hasta la "G" en el comboBox me muestre los siguientes items: B C D E F G Adjunto una macro. Saludos. MRCol.xlsm

Private Sub ListadeBusqueda_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListadeBusqueda.ListIndex <> -1 Then CIdAutomatico = ListadeBusqueda.Column(0) 'A CProvincia = ListadeBusqueda.Column(1) 'D CEspecie = ListadeBusqueda.Column(2) 'N CTipodeRegistro = ListadeBusqueda.Column(3) 'K CMotivo = ListadeBusqueda.Column(4) 'L CSitio = ListadeBusqueda.Column(5) 'E valor_buscado = Me.CIdAutomatico.Value ufila = Sheets("BDCapturasMuertos").Range("A" & Rows.Count).End(xlUp).row With Sheets("BDCapturasMuertos").Range("A2:A" & ufila) Set filaseleccionada = Range("A2:A" & ufila).Find(valor_buscado, LookAt:=…

Hola a todos; He estado viendo si hay alguna macro que pueda convertir un archivo a pdf a Excel. He encontrado algo pero necesita tener instalada una librería de adobe acrobat para que funcione. No se si conocéis alguna otra forma. Saludos. Adjunto la macro MPdf-Excel.xlsm

Buenas tardes, Creo que el título de mi tema es un poco confuso, pero la consulta es la siguiente, tengo un userform en Excel que me envía la información a una tabla en Access, hasta ahí funciona todo de maravilla, pero que pasaría si por ejemplo en la columna [Cantidad] de Access, en la fila 15, quiero sumarle la cantidad que ya está ahí mas la cantidad que digité en el userform? por ejemplo, en Access tengo una columna [Cantidad] con los siguientes valores ID Cantidad 1 5 2 12 3 15 entonces desde un textbox en un userform en excel, si yo digito 7 y quiero que esa data se sume a la celda con ID 2, el resultado final obtenido…

Buen dia a todos, Vieron cuando uno se traba en un paso **maravilloso**, que por lo general siempre sale... bueno ahora estoy trabada en un paso desde hace 12 hs que probe varias formas y no me esta saliendo... tengo que recorrer de la hoja "atosHuellasEpicollect" , fila por fila todos los registros e ir poniendo en la Hoja BDHuellasMuestas, cada fila acomodando cada datos de la hoja de origen en la colunma que corresponda en la hoja destino. Ahora esta acomodado el resultado, me pone el dato en la hoja de destino, en cada colunma correspondiente.... el problema es que solo me trae el primer dato de la hoja de origen y no me trae el dato de cada fila…

Buenos dias. He hecho un formulario y me da error. Me podeis ayudar Gracias

Hola Colegas, Buenas Noches. Mis deseos que se encuentren bien de salud. Hoy acudo a ustedes para ver si me pueden ayudar con un reporte que necesito en VBA en el Proyecto de las Disponibilidad Bancaria. Yo debo emitir una información semanal con los Cobros que me hacen las Agencias Extranjeras, con los datos Fecha, Estado de cuenta (EC), Agencia e importe. Acá tengo a mi parecer dos opciones: 1.- Habilitar una columna y a través de un CheckBox o ComboBox validar esa acción, que me ponga si es True " CAE" (Cobro de Agencia Extranjera) … Esa variante conllevaría a cambiar casi todo el Código, toda vez que se insertaría una columna y eso cambiaría m…

Hola, buenas noches. El objetivo de esta macro seria: Que pida un número por pantalla, y que ese número se itere sumando 150 veces hasta completar la planilla que se muestra, especificaciones: *numero |celdablanco| numero + 1 |celdablanco| (numero +1) + 1 | celdablanco .... hasta que cada fila tenga 6 números con cinco celdas en blanco * que tras esta fila se salte una fila es decir en la zona sombreada gris no se escriba la serie. *que conserve lo que se pide por pantalla num inicial y num final en la hoja HISTóRICOa con la fecha. *adjunto imagen y archivo. No sé cómo plantear este código... me echáis una mano por favor. …

Buenas tardes, espero puede conseguir una ayuda urgente a un caso que me acaba de suceder. estuve haciendo un proyecto en la PC de mi casa que es excel 365 y para poder transformar valores de numeros utilice el "Format" por ejemplo: Format(.Cells(fila, 2), "00000") - "en lugar de mostrarme 1 , con este Format me mostraba 00001" Format(Val(Sheets("TEMP").Cells(fila, 18)), "#,##0.00") - "en lugar de mostrarme 10000", con este Format me mostraba 100.00 Pero ahora estoy ejecutando en una PC que usa Excel 2013 , me sale error en todos estos Format que habia considerado. Espero alguien me pueda ayudar, si puedo cambiar el Format con otro co…

Hola a todos, como estan? estoy con un problema que me viene trabando hace dias!!!! y no le encuentro solucion...estoy desesperada... Tengo un archivo con varios formularios, para una ong que estoy ayudando de cuidado ambiental... uno de los formularios en el archivo "FotosOVideosPorCarpeta, permite seleccionar atraves de un boton una carpeta, y obtener en la Hoja13 o " FotosEtiquetadas" todos los datos de los archivos que estan ahi contenidos, como ser tipo de archivo nombre, tamaño etc, pero tambien extrae la informacion de otros atributos que se suele llamar informacion exif de esas fotos, que se añaden como keywords o etiquetas... hasta ahi estamos super...…

Buenas noches, espeor me puedan ayudar en esta ocasion estoy trabajando con una tabal especifica en la hoja DATOS, la idea es que cuando INGRESE, ELIMINE registros no altere los registros de las demas celdas que no pertenecen a la tabla he logrado agregar pero para eliminar me sale error, me da error al momento de ubicar la fila en especifico a eliminar. muchas gracias por su apoyo Copia de Guardar datos en Tabla.xlsm