Buenas noches Tengo el siguiente código que muy amablemente me ayudaron Sub Nuevokardexclte() Sheets("A1").Select Sheets("A1").Copy before:=Sheets(7) For Each Sh In Sheets If InStr(1, Sh.Name, Range("B1")) > 0 Then 'se busca el guión bajo porque no sabemos cuántos índices puede llegar a tener For i = Len(Sh.Name) To 1 Step -1 If Mid(Sh.Name, i, 1) = "-" Then indi = Right(Sh.Name, Len(Sh.Name) - i) + 1 nvonbre = Left(Sh.Name, i) & indi ActiveSheet.Name = nvonbre Exit For End If Next i 'si i = 1 es que no encontró el guión If i = 0 Then nvonbre = Range(…

Hola, les consulto como crear una macro que ajuste el area de impresion del tamaño de una hoja de alto por una hoja de ancho de varios archivos de una carpeta. Lo intente con la grabadora de macros, pero no funciona. Cada archivo solo contiene una hoja con una tabla de de 7 columnas (A:G) y la cantidad de filas es variable (aproximadamente puede ir de unas 10 filas a unas 200 filas ). Esta macro la estaria agregando a otra que saqué del sitio de ron de bruin, que toma un libro con varias hojas y crea un nuevo libro por cada hoja:(https://www.rondebruin.nl/win/s3/win007.htm). Aclaro que los archivos no se van a imprimir, sino que se van a subir a un sitio …

hola a todos quiero que mi tabla se rellene por columnas por meses ejemplo aqui les adjunto el archivo en la tabla que les adjunto quiero que cuando ingrese una cantidad en el form que hice. el numero se agregue automáticamente en el mes que lo estoy agregando, y automáticamente lleve el total al final de la columna que si yo ingreso el numero 1 en caja rota y presiono agregar, se agregue en el mes que lo estoy ingresando y al final lleve el total de cuantas cajas rotas van gracias inventario perdido.xlsx

Hola a todos, me acabo de unir a este foro y que mejor manera para estrenarse que con un problema... Os pongo en antecedentes. Trabajo en una empresa en la que hay ordenadores personales y ordenadores comunes. Y hay una red a la que te conectas para acceder a diferentes unidades de red para revisar pdfs, excels, words, lo que sea... Hay un conjunto de ficheros excel los cuales estan en carpetas separadas dentro de la misma carpeta. Por ejemplo: 10 carpetas (tipos de coche) con 10 carpetas dentro (diferentes zonas dentro de cada coche), y dentro de cada una de esas carpetas, 2 archivos, uno para cableado y otro para materiales. Como estan separados, cuando se qu…

Buenas expertos, nuevamente necesito una ayuda tengo un libro dentro de ello tengo 3 hojas cada uno con sus datos y en la macro tengo un formulario con la que registro los datos pero al momento de pulsar el botón registrar me me sale un error y se cierra el libro y no me deja ver donde esta el error. Por favor si me pueden ver a donde esta el error. Adjunto el libro. Muchas gracias. Médicos.xlsm

Buen día, Tengo un problema tratando de importar los datos de un query de Acces a Excel para poder generar una tabla pivote, no tengo problema generando la tabla pivote, si no en la importación del query a excel mediante VBA. El acercamiento que tuve fue con este código pero al tratar de llamarlo en el Sub, me aparece el error de hace falta un separador de listas o error de sintaxis, esta macro se ejecuta desde Access. Option Compare Database Sub PivotT() SendTQ2Excel(strTQName As String, Optional strSheetName As String) End Sub Public Function SendTQ2Excel(strTQName As String, Optional strSheetName As String) ' strTQName is the name of the table or query y…

Buenas a tod@s, Os adjunto un calendario al que quiero hacer lo siguiente: como veis tengo una celda que es la E22 en color rojo que usaré para los dias festivos. Justamente debajo incluiré los dias festivos (1 de enero, 6 de enero, etc) estos dias al incluirlo en el listado querria que cambiaran el color segun el relleno de la Celda E22. Tambien busco la forma de que si cambio el año estos dias se actualicen Luego tengo la celda I18 que tiene el color amarillo y querria que al incluir los dias del calendario me cambiaran al color de relleno de dicha celda. Es posible? 2021.xlsm

Buenas, alguien sabe como convertir un numero racional a notación decimal? Muchas gracias

Buenas tardes Me podrias ayudar con una macro para captura, me estan solicitando una hoja de excel donde se pueda capturar la informacion, revisar y modificar una vez ya capturado, realice un archivo para captura pero como lo genere con la grabadora tarda mucho y solo sirve para capturar y no para modificar y revisar, adjunto archivo con la macro generado por grabadora. Actividades por sup.zip

Buenas amigos Necesito su ayuda. para este "miselaneo". tengo Varios Archivos de Excel que quiero bloquear masivamente para que solo se pueda leer todos con una misma contraseña. Saben de alguna macro o me pueden apoyar con la creacion de dicha macro para poder hacer esto. lo que pasa es que son como 500 archivos, y bloquear uno por uno con la misma contraseña pues va a ser un trabajo muy tedioso. quedo a espera de su apoyo espero me puedan ayudar maestros. Saludos

Buenas Tardes a todosNecesito de su valioso ayudaEstoy desarrollando una rutina pero , me he atorado y no encuentro la forma de resolverlo , tengo el archivo llamado Nom 6 Ejemplo de la cual ocupo las siguientes hojas:-Hoja1-CATquisiera ejecutar este macro iniciando desde Hoja1 Celda BC3 para que se ejecute mientras la celda activa ("BC3") tenga datos y la columna al lado se encuentre vacío ("BB3"),busque el dato Hoja1 de la columna BC ,relice la búsqueda en la hoja CAT columna "D" y si lo encuentra me devuelva el código de la columna "B" de la hoja CAT en este caso se cumple las condiciones a partir de la fila BC14y si no lo encuentra se siga con la siguiente fila Bc15, …

Hola buenas, ¿alguien sabe sumar dos números racionales y devolver el resultado simplificado? Muchas gracias

Estimados amigos del foro, junto con saludarlo queria que me ayudaran con una planilla que quiero implementar, bueno quiero que por un combobox se genere una tabla con los siguientes filtros (segun archivo adjunto): E-CL A por escalon I me entregue el coordinado, S/E y el valor asociado. Lo mismo para E-CL B y los distintos escalones... por lo tanto filtrar por escalon I, II, III, etc. y que me entregue coordinado, S/E y el valor asociado tanto para E-CL A y E-CL B... Espero puedan ayudarme.... EDAC.zip

Hola, realice una planilla de excel para control de stock y tengo dos botones, uno para sumar una unidad y otro para restar una unidad. Pensé en dos formatos para realizar mi planilla pero en ambos formatos necesito ayuda para realizar mi idea. Formato 1 : dos botones en cada producto, o sea dos macros por producto, pero no se como arrastrar las macros para no tener que crear yo manualmente una por una de las macros. Se me ocurrió usar las referencias relativas pero no me funciona. ej: suponiendo que la columna de unidad disponible es la E la siguiente es la formula para el producto en la fila 4 Sub inc() Range("e4").Value = Range("e4").Value + 1 End Sub esto func…

Hola disculpen, saben que tengo un archivo excel con una macro que antes de formatear mi computador funcionaba correctamente, en donde, utilizaba una columna de 43 archivos diferentes y creaba otro archivo nuevo con las 43 columnas juntas una al lado de la otra, pero ahora no se que sucede... si pueden ayudarme me avisan y coloco el archivo excel con la macro y los archivos 43 archivos que utiliza.... Bueno de antemano Muchas Gracias!

Buenos días. Mi intención es asociar un formulario de barra de progreso ( lcf_ProgressBar ) que corra de acuerdo a la ejecución en segundo plano de una actualización ODBC que tengo en mi libro con una base de datos, a la vez y antes de que se ejecute la barra de progreso me gustaría poder corroborar si el equipo cuenta o no con conexión a Internet antes de realizar la actualización para que en el caso de que no tenga conexión No ejecute la consulta y advierta al usuario. lcf_ProgressBar.xls

Hola buenas noches hoy me salio un tremendo reto en la empresa donde la labora, la verdad llevo todo el dia tratando de realizar un informe de todas las combinaciones posibles que se puedan realizar con una serie de tablas y valores, con el fin de conocer la matriz de probabilidades de planes que ofrece la empresa donde laboro. en la hoja de tablas estan todas las tablas que tengo que combinar con el fin de realizar la matriz de probabilidades consiste en los siguiente: se organiza en la hoja de registros. hay que tener encenta los siguientes criterios - el mínimo de Adultos y el máximo de Niños es igual al total de los huespedes …

hola expertos algun codigo que de acuerdo al numero que este en la columna z lo busque en el rango a1:w42 y si lo encuentra colocarle borde grueso a esa celda Libroprueba.xlsm

Buenos dias Tengo una rutina que me guarda los datos de un formulario a dos hojas excel dentro del mismo libro y necesitaría que en esa misma rutina me creara un archivo pdf con el nombre del label "lb_parte" Private Sub Imprimirparte2() Dim final As Long Dim fila As Integer With ThisWorkbook .Sheets("PARTE DE TRABAJO").Range("r2").ClearContents .Sheets("PARTE DE TRABAJO").Range("d2").ClearContents .Sheets("PARTE DE TRABAJO").Range("g2").ClearContents .Sheets("PARTE DE TRABAJO").Range("l2").ClearContents .Sheets("PARTE DE TRABAJO").Range("c3:o4").ClearContents .Sheets("PARTE DE TRABAJO").Range("b8").…

expertos buenos dias como puedo unir las celdas como se muestran en el libro pista.xlsx

Buenos días, Tengo una hoja excel con varios combobox y de un dia para otro han empezado a cambiar de tamaño al hacer consultas... pongo una imagen por si sirve. La parte que pone nombre va reduciendo el tamaño al ir introduciendo datos y el que poner elegir aumentandolo...

HOLA A TODOS... ME PUEDEN AYUDAR A MEJORAR LA SIGUIENTE MACROS...... YA QUE SI BIEN ENTREGA EL RESULTADO... ES MUY LENTA.... LA IDEA ES DETECTAR LOS REGISTROS QUE SE REPITEN ENTRE LAS COLUMNAS A Y B : Sub conciliacion() Dim conta As Integer Dim veces As Integer Dim fila As Integer Dim col As Integer Dim valor1 As Variant veces = 1 While veces < 3 If veces = 1 Then col = 4 Range("A2").Select Else col = 7 Range("B2").Select End If fila = 2 conta = 1 valor1 = ActiveCell.Value While ActiveCell.Value <> 0 If ActiveCell.Offset(1, 0).Value <> valor1 Then Cells(fila, col).Value = valor1 Cells(fila, col + 1).Value = conta …

Buenas tardes, quisiera que me ayudaran con una problema, tengo dos columnas con fechas, una donde se encuentra la fecha inicial y otra con la final, debo enviar un correo alertando a X persona cuando el tiempo es cercano al final, esto para cualquier fecha que se encuentre en un rango determinado.

Estimados buenas tardes, cuento con una pistola de códigos de barra, quiero hacerme de un archivo de inventario pero me e percatado que cuando capturo el código este salta a la siguiente fila, y necesito que busque y cuente sin agregar datos nuevos, envió la planilla, agradeceré su ayuda. Quedo atento a sus comentarios. Saludos. Plantilla para inventario con código de barras.xls

Hola estimados; Soy nuevo en el foro, ojala me puedan ayudar con lo siguiente: Necesito que varios usuario puedan ingresar en un archivo excel compartido en red, este archivo excel tiene formularios. Quiero que los usuario puedan ingresar/Modificar/Eliminar datos. Lo ultimo que les menciono ya lo he logrado. Solo me falta que sea usado por varios usuarios a la vez. gracias de antemano a todos.