Buenos días, con la colaboración de ustedes desarrolle una planilla en Excel con Macros y Combobox las cuales me ha sido muy practica, pero veo que se puede mejorar muchísimo y que quede mas ágil y agradable al usuario, (Adjunto dicha Planilla) que en resumidas cuenta hace lo siguiente: Solicita Un Nombre (Celda en Combobox - Busqueda Inteligente) Solicita Un tratamiento Celda en Combobox - Busqueda Inteligente) Cantidad Valor Unitario (Lo trae de la tabla de Tratamientos cuando encuentra dicho Item) Trae otros campos adicionales como son Marca, Unidad, los cuales trabajo con "BUSCARV" Hay Otros campos que se llenan manualmente. La idea es que esta plan…

Buenos días tengo un archivo que relleno una solicitud , me guarda los datos y luego me manda un pdf con la solicitud rellenar. No se por que de repente no me adjunta dicho archivo. Les adjunto el archivo, espero puedan ayudarme. Pruebas_Solicitudes id5500_2019 - copia.xlsm

Necesito por favor si me pueden ayudar con la siguiente macro. Tengo un archivo con varias celdas de información climática pero debe ir colocando a cada columna la información de medida al final de cada celda ejemplo Temperatura exterior viene original 20.3 y debo colocarle 20.3 °C y así con las demás columnas envío el archivo en Excel como ejemplo agradezco me puedan ayudar.

buenos días quisiera su ayuda para poder realizar un formato condicional utilizando VBA tengo una lista de códigos en la columna P y una tabla de registros donde quisiera que los registros tuvieran una fuente azul si el código aparece en la lista gracias por su ayuda FORMATO PARA CODIGOS.xlsx

HOLA AMIGO, GRACIAS NUEVAMENTE LE SALUDOS, AHORA PARA QUE ME AYUDEN A RESOLVER UN PROBLEMA QUE CREO NO SERA COMPLICADO PARA VOSOTROS, PERO A ESTE SERVIDOR SI. TENGO UN ARCHIVO LLAMADA ORDEN DE COMPRAS Y DENTRO DE ESTE VARIAS HOJAS CON DIFERENTES NOMBRES POR EJEMPLO ORDENDECOMPRA, ITSA, SERVIT, INDUSTRIAL... TENGO YA VARIOS FORMULARIOS A DONDE HAGO REFERENCIA DE ESTA MANERA PARA ACTIVAR LAS HOJAS QUE VOY A USAR PARA CARGAR, CORREGIR O INCLUSO CONSULTAR DATOS. USO LA SIGUIENTE ORDEN Sheets("REG-COMP-SERVICON").Activate EL PROBLEMA QUE TENGO AHORA, ES QUE CUANDO ESTA ABIERTO OTRO ARCHIVO, SIEMPRE ME ENVÍA ERROR... COMO SOLUCIONO ESTE DETALLE DE QUE MANERA, AUNQUE TENGA …

Hola a tod@s. Tengo una aplicación muy sencilla aparentemente que no se como terminar y espero que alguien pueda arrojarme algo de luz. Tengo una Tabla dinámica con unas columnas y quiero cargar los datos de dos columnas desde un Formulario. Una de estas columnas es una Fecha y el problema es que al copiar el TextBox de fecha en la casilla correspondiente, no me reconoce el formato de Fecha. He mirado en muchos foros y probado múltiples posibilidades (hasta trocear la fecha en día, mes y hora y luego "pegarlas" de nuevo, he probado con el comando Format, etc y no hay solución. cunado me refiero a que no me reconoce la fecha es que cuando meto la fecha con el Formulari…

Buenas pues eso.. me explico trabajo en bases de datos, muy seguido recibo los archivos sin las macros y tengo que importar modulo por modulo lo cual toma tiempo.. necesito 2 archivos distintos uno para modules y otra para modules2 para exportarlos en batch al archivo corrupto.. adjunto los modulos un abrazo, agradecido de antemano! Modules 2.zip Modules.zip

Hola de nuevo. Siento molestar, de verdad que estoy buscando y probando y no me sale bien. Tengo un problema para calcular dos fechas de dos celdas en Excel. En una celda me aparece el formato fecha incluyendo horas y en otra celda solo fecha. Intento restarlas y mientras no cambie de mes la fecha larga no hay problema, pero como sea otro mes lo hace mal. Esta es una foto de las celdas. Y el código que he comenzado a hacer y que luego necesitaré estos cálculos es este. Sub RellenarAusencias() ApplicationOff ' Dim rng1, rng2 As Range Dim FechaF As Date Set Ws = Sheets("AusenciasPnet") uf1 = ActiveSheet.Range("A65536").End(xlUp).Row: uf2 =…

tengo un listbox en una hoja de ecxel con unos datos ya cargados. la idea es ordenar ascendentemente ese listbox sin tocar los datos de donde los traigo. solo quiero ordenarlos y ya.

Estimados necesito hacer un formulario de busqueda en excel que busque un dato ingresado en un textbox y al encontrarlo me de un msj con la informacion que esta ingresada en la misma fila pero 21 columnas mas a la derecha Tengo lo siguiente Private Sub CommandButton5_Click() If TextBox5 = "" Then MsgBox "Ingresar RUT" Else docid = TextBox5.Value With Worksheets("hoja1").Cells Set dato = .Find(docid) If Not dato Is Nothing Then MsgBox dato.Offset(0, 21) Else MsgBox "No se encontró registro" End If End With End If End Sub funciona, pero el problema es que si ese RUT se encuentra ingresado en…

hola a todos. bueno la verdad es que estoy hace poco aprendiendo a crear formularios en excel utilizando vba... y el problema que se me genera es que en un textbox al ingresar una fecha como por ejemplo 02/03/1980 (día, mes, año) en la planilla me aparece 03/02/1980, osea me cambia el que debería ser el día por mes y viceversa... he probado con cambiar el formato de celda y todo eso pero no se arregla. si alguien me podría orientar se lo agradeceria un monton. saludos a todos. utilizo el office 2010

Hola, buen dia. Espero me puedan apoyar a crear una funcion que me permita obtener el costo de un servicio en cuanto se ingrese el nombre de este en la celda. Adjunto archivo con los nombres y costos de cada servicio. Book3.xls

Buenos días: La macro que adjunto puede copiar y almacenar en orden todas las hojas de un libro. Por ejemplo tengo 3 hojas (a,b y C) con encabezados comunes (de B5 a J5) y filas variables. Crea una hoja llamada "Resumen" y copia en ella con encabezados incluidos, todas las filas y de forma ordenada sin dejar espacios. Sub ejemplo() 'por luismondelo Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = "RESUMEN" For Each hoja In ActiveWorkbook.Sheets If hoja.Name <> "RESUMEN" Then hoja.Range("b5:j" & hoja.Range("b65000").End(xlUp).Row).Copy Sheets("RESUMEN").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlVa…

Hola a todos.Estoy programando una macro en Excel para listar los números de los puertos serie disponibles de mi pc (COM1, COM4, COM14, etc.). he intentado con este código Dim TotalPuertos Application.COMAddIns.Update TotalPuertos = Application.COMAddIns.Count ComboBox1.Clear For i = 1 To TotalPuertos ComboBox1.AddItem Application.COMAddIns(i) Next i Pero no soy capaz de que me salga como COM1, COM4, COM14, etc. o incluso como 1, 4, 14, etc. ¿Alguna idea? Saludos

Buenos dias, Soy nuevo en este sitio, y me gustaría pedirles ayuda ya que estoy bloqueado con un trabajo que tengo que realizar. Les comento a continuación: Tengo una base de datos que corresponde a todos los días del año para cada equipo. Me gustaría crear una userform que facilitase la introducción de los datos. La macro consta de una primera columna que corresponde a los equipos, una segunda a la fecha y posteriormente hay 24 columnas que corresponden a las fracciones horarias de un día. Lo único que quiero es que la userform me filtre en función del equipo, con un Combobox, introducir una fecha inicial y final, y en esa fracción de fechas a través de unos checkbox…

Estimados, Quería pedirle un apoyo He estado tratando de realizar una macro para poder agrupar las filas y columnas de una base de datos parecida al que se tiene adjuntado, pero no lo he podido conseguir. En el documento adjunto la data_origen, la cual es el archivo original. Y la segunda que es data_trabajada es como debería de quedar el documento. Me gustaría saber si es posible ponerle rangos dinámicos, dado que pueda que el próximo mes la data pueda crecer, pero las columnas serian las mismas, y los colores también. Muchas Gracias APOYO_AGRUPADORES.zip

Hola. Añadí una funcion a un libro de excel que ya tenía bastantes macros. La funcion me permite estandarizar el formato de la informacion en una columna de una hoja en particular del libro. El caso es que cada vez que corro una macro, la rutina pasa siempre por la funcion y asumo que la funcion va a repasar todas las celdas para la que fue creada (casi un millón de filas). Eso me relentiza muchisimo el proceso. Existe alguna manera de hacer que la macro evite ejecutar la funcion o saltarla de algun modo?.

Soy nuevo utilizando VBA y buscando en los foros logré crear una Macro para mostrar algunos resultados. Supongo que necesitan saber qué hace pero no sé como explicarlo! ? Tengo dos hojas una de nombre Ticket y otra con nombre Hoja1 En ticket debe mostrar la fecha actual en la celda C3 , la Hora actual en la celda D3 y un numero (serie) que aumenta en 1 según el valor de la celda D2 de la hoja1 esta información se guarda como valores en la fila 2 de la Hoja1. Luego ingresando el número de serie en la celda B9 de la hoja Ticket, lo busca y muestra la Hora (guardada anteriormente) en la celda C9, resta la fecha actual (Now) con la celda C9 y lo muest…

Aplicar formula DIAS. HABILES, en un formulario VBA buenas noches a todos en el foro, mi idea es carcular dias habiles dentro de un formulario, y a subes descontar los dias feriados. ejemplo, tb_1 = fecha inicial, tb_2= fecha final, tb_3= dias feriados, lb_1 = resultado, espero me puedan ayudar con mi problema...buenas noches a todos...... y gracias por la ayuda de ante mano. DIAS_LABORALES.rar

Buenas tardes quiero saber como insertar filas en una hoja de excel tomando la informacion de otra hoja del mismo archivo, ejemplo en la hoja2 tengo una pequeña tabla con la columnas, Numero, Nombre y cantidad el numero es consecutivo, en nombre solo tengo 4 diferentes, juan, pedro, pablo, jorge, pero repetidos varias veces dentro de la tabla y en cantidad pues cantidades diferentes.. ahora, en la hoja1 tengo una lista unicamente con los nombres (juan, pedro pablo y jorge, desde la celda a1 hasta la a4, quiero que busque en la tabla el nombre juan y me incerte tantas filas sean necesarias para ingresar el Numero y la cantidad de cada nombre, espero haberme explicado, dejo…

Hola, Necesito ayuda con un trabajo. Necesito contar la cantidad de casillas a las que se les asigna un colo especifico, EN Internet encontre una macro para usar, pero solamente actualiza cuando se edita, o cuando copio pego sobre la celda en que se encuentra el rango de funcion. Podria alguien ayudarme para que se actualizará la formula sola? El codigo de la funcion se encuentra a continuacion Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 …

hola buenas tardes. tengo el siguiente problema, cree un formulario y necesito que desde otro formulario en el mismo libro mediante un OptionButton me modifique la informacion de un TextBox, que codigo debo usar?

De nueva cuenta es un gusto saludarles. El motivo de la presente es para solicitar su apoyo en lo siguiente: Realize un macro en el que me hace un filtro avanzado para las hojas INGRESO y EGRESO de un archivo, según el nombre del propietario. Hasta ahí todo va bien, sin embargo lo que deseo es poder comparar valores acorde a la columna llamada "NUMERO DE NOTA", de este modo, quisiera que en el resultado del filtro avanzado, los valores que me arroje el proceso del filtro sean ordenados ascendentemente (según el número de nota) y que aquellos datos que tengan el mismo NUMERO DE NOTA en INGRESO como en EGRESO queden una a la par de la otra. Se que con palabras es muy difí…

hola, como puedo generar claves o serial de licencia en vbaexcel para un aplicativo demo con determinado tiempo o contador de uso, que al ingresar en una caja de texto me desbloquea y no me vuelva aparecer mas el formulario de clave o serial. Bueno las claves tendria que enviarle yo por correo. Saludos se agradece su ayuda.

Buenas Tardes Espero me puedan ayudar. Realice un filtro avanzado pero este no me puede traer todos los datos de todas las hojas. En el modelo tengo varias hojas con varios trabajos. El filtro que realice se encuentra en la pestaña tecnicos, cuando activo el filtro con el boton, me trae los trabajos que se realizaron pero solo de la primera hoja y deseo que me traiga todos los trabajos de todas las hojas dependiendo del tecnico que elija en la lista tecnicos. En el modelo se puede ver mas claro lo que llevo hasta ahora. Espero me puedan ayudar. Gracias FILTRO AVANZADO.xls