Hola , Buenas Tardes , agradeceria cualquier ayuda para automatizar este problema Con la planilla lo que obtengo es el directorio de trabajo que se llama originales para efecto de este ejemplo Datos Tengo una cantidad no definida menor que 40 de archivos pdf en carpetas FA,FB, para este ejemplo,pudiendo ser más FC,FD etc. Necesito introducir numeros correlativos en cada pdf partiendo de 01FA hasta 40 FA (05FA en este ejemplo) , pero no tomando el 00FA , el resultado de esto seria mover 00FA a la Carpeta FAN y ahi poner todos los archivos de 01FA hasta 50FA o menor con el numero coorrelativo dentro de cada archivo y que…

como conectar una base de datos access usando visual de excel, para logear una tabla login(usuario y password)

Buenas, Tengo una macro donde creo dos listas con random. La unión de las dos listas son pares de números que indican una determinada celda, y necesito que no aparezca dos veces la misma celda. He encontrado ejemplos de como evitar repeticiones de números con random, pero lo que yo quiero es que no se repita el par. alguien puede echarme una mano? Muchas gracias por adelantado!

Buenos días compañeros, Me enfrento a un problema complejo con VBA, el cual estoy intentando resolver pero no consigo hallar la solución. Tengo la siguiente página web: https://www.metals4u.co.uk/materials/aluminium En la pestaña "Materials", se encuentran varios materiales como "Aluminium, Brass, Copper, ..." Si seleccionamos cualquiera de esos materiales (por ejemplo Aluminium) la pagina nos lleva a todas las formas disponibles de este material (Ver figura adjunta). Para ver las caracteristicas de una forma pulsamos en "Show Details", y la pagina nos lleva a una ventana como las caracteristicas de esa forma (Ver figura adjunta) En dicha …

Hola a todos, si alguien me pudiera ayudar a modificar una macro que encontré por ahí, la cual consolida varias columnas en una sola, para ello primero se tiene que seleccionar el rango a consolidar y luego ejecutamos la macro y la consolidación se realiza justo en la columna siguiente del rango seleccionado y lo que deseo es que la consolidación se realice pero no en la columna siguiente si no en la tercera columna siguiente del rango seleccionado. Muchas gracias Sub rango_columnas() 'macro une varias columnas en una sola columna 'para ello primero seleccionamos el rango a unir 'y luego ejecutamos la macro Dim rango As Variant Dim i As Long…

Hola, que tal? Quisiera que me ayuden con esta macro, tengo un "Área_Consolidado" que contiene 04 hojas (Área_Uno, Área_Dos, Área_Tres, Tablas), la intención es que mediante un "click", pueda "copiar" ciertas hojas a NUEVOS LIBROS de la siguiente manera: Libro1 con nombre "Área_Uno", debe contener: hojas con nombre Área_Uno y Tablas) Libro2 con nombre "Área_Dos", debe contener: hojas con nombre Área_Dos y Tablas) Libro3 con nombre "Área_Tres", debe contener: hojas con nombre Área_Tres y Tablas) Aclaración: el libro "'Área_Consolidado" no debe alterarse. Espero me puedan, ayudar. Mariela

Saludos amigos del foro Me gustaría saber si se pueda hacer que una imagen vectorial se pueda pegar en un archivo paint, ya sea que este cerrado o abierto Subo un archivo ejemplo para continuar el código. al abrir el archivo por favor dar click en el boton naranja, la imagen que se vea en la hoja1 es la que quiero enviar al paint Gracias por la ayuda que puedan darme Enviar a paint.xlsm

Buenas noches, primero que todo gracias por la colaboracion que brindan las personas. Mi pregunta es: tengo una base datos en acces, pero quiero actualizar los datos desde excel, por no todos los equipos en los que la utilizo tienen instalado a acces, por esta razon no puedo abrir la base de datos para actualizar los datos desde acces. Quisiera una sugerencia, o ayuda para este caso en particular. Qiero que los nombres asignados al numero de lote, si le quiero asignar otro nombre lo puede hacer desde excel. Ejemplo al lote M-01 esta asiganado a mi, pero lo quiero asiganar a Diana Paola. Esto como lo puedo hacer. ? De ante mano muchas gracias a todos por la ayuda q…

Hola a todos, un cordial saludo... Nuevamente intentando "crear" alguna macro que me ayude en este caso, para el desarrollo de un Test, la idea es que cambien de color el contenido de varios rangos de celdas, (entre 16 independientes), en la medida que se ajusta el valor de otra (en mi caso algunas celdas de la Columna "O", de hecho 16 en total...) Cada fila tendrá un color para cada opción entre amarillo, naranja, azul, verde y rojo, dependiendo de la característica positiva o negativa registrada... en las columnas "D" y "J"... Adjunto un breve archivo Gracias a todos por sus aportes y ayudas... Javishalom... CAMBIO COLORES.xlsm

Hola, Encontré este código en internet para una macro para separar los datos de una hoja por medio de filtrado. El filtro funciona perfectamente, la creación de las hojas también, pero al ciclar para filtrar nuevamente y escribir en la hoja nueva, me manda un error 1004. Aquí el código: Sub separar() Dim arrProductos As Variant, i As Integer, hojaBase As String arrProductos = Array("001N", "003N", "004N", "005N", "006N", "012A", "012N", "017N") hojaBase = ActiveSheet.Name For i = 0 To UBound(arrProductos) Range("A1").Select Selection.AutoFilter Field:=2, Criteria1:=arrProductos(i) Range(Selection, Selection.End(xlDo…

Estimados. Ha sido muy fructifero haber encontrado este foro, por lo que vuelvo a las consultas. Resulta que estoy programando una macro que consiste hacer un filtro de una cantidad grande de datos, seleccionar solo algunos, copiar y pegarlos en otra hoja. Ahora bien, he logrado el codigo para filtrar un arreglo de datos a partir de una tabla que tiene los nombres o id a buscar: nf = numerofilas 'obtener arreglo de nombres de cellid CELLID_Array = Range("C2:C" & (nf - 1)) 'selecciona planilla de CNA Windows("Libro_Muchosdatos.xlsx").Activate 'selecciona de CNA los cellid a modificar de planilla CNA ActiveSheet.ListObjects(…

Les comento: Me solicitaron que en función a ciertos % de avance que obtenga cada Provincia, se le adjudicara un color en particular (el usuario los podrá cambiar) no es complicado solo que me hace falta el Mapa en excel (Shapes) por Provincias. Si alguien lo puede compartir genial o si ya existe algo en el foro... mejor. Saludos desde México.

Hola, si alguien me pudiera ayudar, necesito saber como cambiar el color de no una sino de varias formas o dibujos, lo he probado con varios códigos que se exponen en internet, pero no me funciona, le dibujo una forma le doy el nombre y copio los códigos tal cual, y no hace nada, alguien puede ayudarme ? gracias

Saludos Hay alguna forma en Excel de inmovilizar en una misma hoja diferentes filas, es decir inmovilizo la fila 3 y más abajo inmovilizo la fila 30

Macro que busque un valor en otra hoja en una columna especifica y copiar los datos que se derivan de dicho valor macro buscar.zip

Hola compañeros, necesito solucionar el siguiente problema: "Tengo dos tablas de ejemplo, una se llama TABLA y la otra RESULTADOS. Cada una de ellas contiene su propia clave primaria. Tabla TABLA Tabla RESULTADOS El problema que quiero solucionar es que cada vez que un usuario haga click en una de las celda del campo FK TABLA, se le muestre toda la información detallada de ese registro en concreto, tal y como se muestra en la siguiente imagen. Video DEMO Espero que con el vídeo anterior se vea claramente lo que quiero conseguir. Este es el código que utilizo. Private Sub…

Hola, tengo una macro que envía directamente un rango a "prueba@prueba.com" pero me gustaría que lo enviara al mail que hay en una celda en concreto (B7) Sub Send_Range() ' Select the range of cells on the active worksheet. ActiveSheet.Range("D2:J22").Select ' Show the envelope on the ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = True ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. With ActiveSheet.MailEnvelope .Introduction = "Buenas tardes, adjuntamos última proforma." .Item.To = "prueba@prueba.com" .Item.Subject = "Asunto prueba" .Item.Send E…

Muy buen Dia/Noche me suscribi a esta pagina con la intencion de encotrar ayuda pero cuando creo encontrarla me arroja un herror y lo unico que deseo es lo siguiente yo estoy a cargo de un estacionamiento y en ocaciones por cuestion del exceso de trabajo cometo herrores en la cuenta de horas ya que tengo que realizar el conteo mentalmente y no he podido dar con el clave 1 hora de entrada 2 hora de salida tendra que ser la hora actual del systema 3 seleccionar tres rangos de cobro (1.- 30 minutos gratis 2.- 90 minutos gratis y el tercero seria el 100% del tiempo gratis esto es para los clientes VIP) 4 numero de boleto o serie 5 tota…

Hola de nuevo, tengo esta macro: Sub Inserta_foto() 'Renombramos archivo Name "C:\Seat\Fotos\foto.jpg" As "C:\Seat\Fotos\imagen.jpg" ActiveCell.Select ActiveSheet.Pictures.Insert("C:\Seat\Fotos\imagen.jpg").Select With Selection .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 60.75 'Alto de la imagen .ShapeRange.Width = 84 'Ancho de la imagen .ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda) .ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior) 'Movemos archivo a la carpeta Historico Name "C:\Seat\Fotos\imagen.jpg"…

Muy buenas tardes. macro para generar archivos planos para Facturador Sunat (*.LEY, *.TRI, *.CAB, *.DET

Buenas tardes. Necesito ayuda para abrir un archivo en modo escritura que ya está siendo usado en la web online. La ruta del archivo es esta..(sustituyendo algunos datos) Workbooks.Open Filename:= _ "https://xxxxxxx-my.sharepoint.com/personal/xxxxxxxxxx_com/Documents/Desktop/MANUAL%20USO%20DE%20LAS%20CAM/ejemplo.%20ejemplo.xlsx" Cuando accedo a el me lanza el siguiente mensaje. Archivo en uso. Usuario - bloqueo la edición del archivo Opciones: Ver una copia. Guardar y editar una copia del archivo. No se si existiría la forma de poder acceder en modo escritura a el sin tener que …

Buenas tardes expertos, tengo un problema con el formulario presisamente al momento de seleccionar el desplegable de la hora me muestra bien lista de hora pero cuando selecciones una de ellas se convierte en decimales. muchas gracias por ayuda , los adjunto el archivo. BASE DE DATOS GESTION HUMANA (SERTOCON24).xlsm

Solucionado Inmovilizar filas superiores en una hoja y en otras no Si alguien me puede ayudar con esta macro para que de alguna forma se inmovilicen las 2 filas superiores de las hojas del libro que yo quiera y no de todas (seguramente el problema esta en "With ActiveWindow" ) Sub Auto_open() With ActiveWindow .SplitColumn = 0 .SplitRow = 2 End With ActiveWindow.FreezePanes = True End Sub [/CODE] EDITO: Ya arregle el problema, venia por otro lado y la otra consulta que ya quite la habia solucionado antes

Un saludo a todos, soy nuevo en este foro, buscando para poder cronometrar una carrera encontré una hoja excel en este foro la cual cada vez que pulsas enter o click de raton marca un tiempo lo cual esta muy bien lo que pasa es que despues tienes que apuntar los dorsales a mano, mi idea, que hay programas que lo hacen pero se disparan en el precio, era poder con un lector de codigos de barras poder introducir los dorsales al lado de los tiempos con lo cual saldría el nombre de la persona y su tiempo. Les dejo el archivo para que lo vean.[ATTACH]30070.vB[/ATTACH] Gracias de antemano. LUISFECAB - Otroexcel_Cronómetro.xls

Hola a todos; -Adjunto macro contiene un "frm" con un "chek" y un botón. Lo que hace la macro es crear una copia de seguridad. En función de lo que tenga activado en el check la hace de una manera u otra. Activo: Guarda la copia de seguridad en un ruta predeterminada. No Activo: Nos pide la ruta para guardar. Pregunta: ¿Se puede depurar mejor el código o está bien así? Saludos y buen día a todos C.Seguridad.xlsm