Buenos días, Amigos de foro quisiera solicitar la colaboración de ustedes para resolver lo siguiente, estoy intentando aplicar un filtro a listbox en un form(Userform5), en el cual los criterios del filtro se definen en: mes(combobox1) y día(combobox2), esto sin recurrir al uso de un botón, respetando el encabezado de cada columna y que los valores de ambos combobox sean valores únicos. Hace pocos días JSDJSD me dío un ejemplo de este tipo de filtro por medio de un combobox pero he sido incapaz de agregar el segundo, adjunto el archivo por si pueden colaborar. Saludos J Consulta filtro combobox.xlsb

Buen día a todosAlguien me podría ayudar con esta macro, lo único que quiero es agregarle un mensaje, que cuando busca y no encuentra ningún registro; me diga que no lo encontróDeje la macro.. desde ya muchas graciasPrivate Sub CommandButton1_Click()ListBox1.ClearIf IsDate(TextBox1) Thenbuscar = CDate(TextBox1)Elsebuscar = TextBox1End IfIf buscar = "" Then Exit SubWith Worksheets("RUCs empresas").Range("D:D")Set esta = .Find(buscar, LookIn:=xlValues)If Not esta Is Nothing Thenprimeracelda = esta.AddressDoListBox1.ColumnCount = 3ListBox1.AddItem ""ListBox1.List(ListBox1.ListCount - 1, 0) = esta.AddressListBox1.List(ListBox1.ListCount - 1, 1) = estaListBox1.List(ListBox1.Li…

Hola, Tengo la necesidad de combinar los registros de una matriz (las filas) creando una nueva matriz en otra hoja con el doble de campos (las columnas originales y las resultante de la combinación) de forma que cada registro original se combine con todos los subsiguientes de la matriz. Como ejemplo, si tengo una matriz de 3 campos y 5 registros como la que pongo acontinuación: C-1 C-2 C-3 A B C D E F G H I J K L M N O Necesito una fórmula de excel …

Hola a todos, tengo un programita de Excel con VBA que insero varias fotos (con margen de tiempo 1 segundo) en la misma celda, pero, al ir borrando e insertando imágenes me hace un destello de luz, la celda en cuestión, se puede solucionar esto con VBA ? Gracias

Hola, esta es mi primer consulta y trataré de ser claro y conciso: Tengo 6000 archivos excel. Cada archivo contiene un libro y una hoja con datos. Cada hoja contiene dos columnas, en las que hay números enteros o con dos o más decimales Los datos están en A2 y B2 en adelante, ya que en la fila 1 están los encabezados de ambas columnas Esos 6000 archivos se están cargando nuevamente porque mi cliente pidió que hagamos graboverificación. La tarea es comparar todos los archivos y saber en qué celdas hay diferencias. No importa cuál es la diferencia, sino sólo saber en qué celdas los datos no son exactos. De ese modo, resolveremos manualmente las incidencias. Los 6000 a…

Buenos días estimados, estoy lidiando con un tema que no encuentro ayuda en ningún lado. El problema es así, en un libro de excel se le agregó dos filas con campos dinámicos de datos. Antes de que se le agreguen estos campos, el libro funcionaba bien, generaba una copia de una de las hojas en una hoja nueva y copiaba bien todo ahora no copia el alto de las filas, sale todo en tamaño normal. La verdad que ya no se que hacer para resolver este problema. El código que genera este informe es el siguiente: Option Explicit Sub genDefinitivo() ' ' Macro3 Macro ' Macro grabada el 28/10/2008 por dapezteguia ' ' Dim tArchOrig As String, tArchDes As String, tArchDefinitiv…

Tengo dos columnas donde A1 es el nombre actual del archivo ejemplo D:\descargas\fotos\fotos1\fotos descripción\jmazpo1401085892981.jpg y el B1 el nombre que quiero cambiar ejemplo D:\descargas\fotos\fotos1\fotos descripción\FoDe__1_2.jpg tengo mas de dos mil cambios semanales que hacer espero me puedan ayudar

Hola a todos Tengo este proyecto que para ejecutar dos macros lo hago a través del dos botones en la pestaña ESTADO. ¿Es posible que se ejecuten de forma automática en cada cambio de la hoja? Gracias TEST_PENDIENTES_MACRO.zip

Hola buenas tardes. Por las necesidades en mis movimientos de archivos en mis carpetas necesito mover a carpetas diferentes archivos, esto puede ser desde 1 a varios y copiarlos a una carpeta. Con una macro útil hago esto. 1. desde excel se abre el buscador, selecciono el archivo a copiar. 2. me muestra nuevamente el buscador, para seleccionar la carpeta en donde se pega el archivo y lo realiza. Esto es archivo por archivo. Pero esta misma operación la necesitaría poder hacer con diferentes archivos. Existe alguna manera de poder realizarlo? He intentado hacer algunas modificaciones y ya he conseguido poder seleccionar los archivos …

Buenos días; Necesito ayuda para hacer funcionales los botones de opción "curso" y "publi". Intento, sin suerte, que sea posible seleccionar cualquiera de los dos botones, independientemente de los que ya existen en el formulario, para introducir en la hoja (fila h, destino) las palabras curso o publi respectivamente y teniendo en cuenta que la tabla crece con el contenido. Muchas gracias por adelantado. CONTROL STOCK LIBROS 2015-2016-2017.rar

Hola buenas tardes. Quisiera y me pudieran orientar como puedo copiar datos de una hoja a otra del mismo libro con una macro tomando como condición códigos iguales que están en ambas hojas en la columna A, es decir que revise ambas hojas y si hay códigos iguales tome el valor de la columna F de la hoja2 y la sume al valor que tiene la columna G de la hoja1. Gracias por su atención . Comparar.xls

Hola buen día, disculpen aquí ya tengo esta macro, la cual envia el mail con sus datos adjuntos, pero nada más se lo envia al primer correo el cual se encuentra en la hoja "Reportes", lo que quiero es que también se lo envié al segundo correo, y no se como modificar la macro para esto, esta configurado con outlook, pero la verdad ya no se como hacerle, espero me puedan ayudar, de verdad mucha gracias por sus comentarios. Saludos. MailAdjunto.rar

Agradeciando de antemano la ayuda que me puedan dar a lo siguiente: tengo un archivo con una macro elaborado por gerson , el cual copia de la hoja1 a la hoja2 las filas que cumplan una codicion. Quisiera ver si me audan a modificar ese macro para que se copiara la hoja1 en otro archivo llamado "concentrado". adjunto archivo venta . gracias por su ayuda jesus gomez v ventas.xls

Saludos cordiales a todos esperando que se encuentren perfectamente me dirijo a ustedes con la siguiente solicitud,me gustaria separar por comas los datos que esten dentos de un array de tal menera que esto: arreglo1 arreglo2 arreglo3 se vea asi :arreglo1,arreglo2,arreglo3,la intencion es que los datos que recoja el array de una dimencion desde un listbox me sirva como parametro en un query algo como asi select * from [XTabla$] where Nombre in (x_Array) esperando su amable ayuda me despido de ustedes agradeciendo de ant…

hola a todos: Tengo un inventario de equipos, el cual se tiene que actualizar diario, lo que quiero hacer es que mediante un buscador, buscar el equipo en todas las hojas existentes, seleccionarlo luego poder modificarlo y trasladarlo a la hoja que corresponde según el estado en que se encuentre o desee. Soy recontra novato en esto asi que quisiera saber si alguno de ustedes me podria dar una mano. Muchas gracias estare pendiente a alguna respuesta prueba.zip

Buenas tardes usuarios. De antemano agradeciendo su apoyo expongo lo siguiente. Se solicita que a través de un código VBA para excel filtrar ciertos criterios (vacío), luego "copiar una determinada fila" y finalmente pegar los datos justo en el criterio filtrado (vacío). Mi inconveniente empieza cuando se necesita "pegar" puesto que la macro no la ejecuta. Sub Macro1() [A65536].Select Selection.End(xlUp).Offset(2).Select Selection = "FINAL" Selection.End(xlUp).Select Rows("1:1").Select Selection.Copy ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=1, Criteria1:="=FINAL", _ Operator:=xlOr, Criteria2:="=" If ActiveShee…

Buenos días colegas. Espero se encuentren bien de salud. Tengo un pequeño problema. En uno de mis proyectos puse un código para que al cierre del día 30/09/2022 el libro no pudiera abrirse y no me di cuenta de eso, por lo que hoy no pude entrar al sistema y no sé como puedo hacer para poder lograr llegar hasta VBE para modificar la macro. No puedo cambiar la fecha al sistema porque eso es a través del informático y tampoco está hoy acá y necesito de urgencia poder acceder al Proyecto. Gracias de antemano. Un abrazo Pino

Estimados Buenos dias. Alguien por favor que me ayude con el encabezado de mi listbox lo he intentado con esto : ListBox1.ColumnHeads = True listado.RowSource = "hoja1!A2:R3"[/CODE] pero me sale error cuando agrego esta linea, creo que estoy generando un conflicto de funciones. les adjunto el archivo para mejor visualizacion los datos que extrae el listbox en la busqueda estan en la hoja (hoja1) Dropbox - Proyeccion - Hor.xlsm

Estimados, muchas gracias por ver mi tema, el tema es que tengo una macro que me funciona a la perfección para ajustar alto de celdas combinadas pero el problema es que me funciona muy lenta, y nose como poder hacerla mas efectiva. agradeceria su pronta ayuda. La macro es la siguiente: Sub AjustarA1_A10() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim rngC As Range For Each rngC In [Reporte!H5:H14] AjustarTextoEnCeldasCombinadas rngC.MergeArea Next rngC Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub AjustarTextoEnCeldasCombinadas(rngRango As Range) 'Este sub cambiará la altur…

intento comparar la pagina1 columna (m) con la pagina2 columna (c), el objetivo es enviar a la pagina3 el resultado de aquello que esta en la pagina1 pero no esta en la pagina2. estoy trabajando en este codigo pero no se si debo cambiar de codigo o solo puedo agregar algo mas que diga si encontraste la diferencia entre pagina 1 y pagina 2, devuelve el resultado en la pagina 3. Private Sub ejemplo() 'Define Fields Dim iR As Double, oRw As Double Dim iRow_M As Double Dim s1 As Worksheet, s2 As Worksheet Dim s3 As Worksheet Set s1 = ThisWorkbook.Sheets("pagina1") Set s2 = ThisWorkbook.Sheets("pagina2") Set s3 = ThisWorkbook.S…

Estimados: Tengo una planilla donde diariamente cargo certificados medicos y necesito una macro que me filtre diariamente las personas que se encuentran enfermas siempre y cuando la fecha actual (Hoy) se encuentre entre las fechas desde y hasta. Por ejemplo: Miguel esta con certificado médicos desde el 12 de Dic. hasta el 31 de Dic. entonces lo que necesito es que la macro se fije si la fecha actual (HOY) está comprendida entre el 12 y el 31 de Dic. y si es asi, que me muestre las personas que estan enfermas HOY., es decir que desde el 12 al 31 de dic yo deberia ver a Miguel en este listado. No se si me explico pero adjunto la planilla libro1.rar Libro1.rar

Hola a todos, encontré hace unos días un ejemplo de código que adapté para crear una imagen .jpg de un rango de celdas y funciona correctamente a excepción de que cuando visualizas la imagen creada se ven columnas y datos como si en la parte tras la imagen se ven columnas similares a un gráfico de excel y datos que no están en el rango de celdas del que se extrae la imagen, pongo el código para ver si me podéis echar una mano. Sub CrearImagenRango() Dim she As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next Set a = Sheets("LisCOMPRAS") 'myfile = "C:\Users\conse\Desktop\Lista COMPRAS\…

Amigos... Quisiera su apoyo en el siguiente problema de excel, tengo el libro con los datos de ingreso y devolucion (salidas) de un determinado mes, lo que deseo es que en la hoja stock me muestre la cantidad de materiales restando el ingreso y egreso, pero teneiendo en consideracion el estado (N o R), osea sumara materiales que sean iguales en estado y lo mismo pasaria con la resta (devolucion). Apreciare su apoyo acostumbrado al foro. Saludos cordiales ejemplo 2.xls

Cordial Saludo Por favor me podrian apoyar con este error que que me esta marcando usar el metodo EditCopy al ejecutar el codigo: Este es el codigo: Sub Seleccionar_Fecha() Dim WhichRow As Integer, Comienzo As Variant Range("Trabajo").ClearContents WhichRow = 0 Comienzo = InputBox("Por favor ingrese la fecha de inicio de su proyecto: ") 'Teniendo la variable comienzo hacemos la seleccion de lo que deseamos copiar. SelectTimescaleRange Row:=WhichRow, StartTime:=Comienzo, Width:=-4905, Height:=1048001 EditCopy Set ws = Worksheets("Datos Curva") Set Rng = ws.Range("h11") 'Rng.PasteSpecial xlPasteValues MsgB…

Lo que intento, como veran en el archivo adjunto, es buscar los nombres mas parecidos o similares, tengo la lista 1 con 5800 nombres y la lista 2 con 800 nombres (no subo todos los nombres porque supera la cantidad de datos que puedo subir), pero como veran ninguna lista es igual porque los nombres tienen alguna diferencia, ya sea en letras, en nombres incompletos o abreviados, probe varios macros y funciones pero ninguna me funciono, ojala puedan ayudarme como ven es bastante trabajo y me es muy repetitivo, y ya no quiero buscar registro por registro. Saludos es mi primer post.:victorious: Dejo ejemplo: [TABLE=width: 659] [TR] [TD=class: xl1664, width: 444, bgcolor: …