Elsa Matilde

Aclara un par de detalles: - ¿La lista viene ordenada por col A? - Si no está ordenada, ¿por lo menos los duplicados vienen todos juntos? Por ej: AB22 AB22 AB22 BA33 AB10 AB10 - Si tampoco está así de ordenada, la macro debe ordenarla y en ese caso...

Te dejo mi macro para el ingreso de fechas sin separadores, que además controla que sean números válidos. Private Sub TextBox1_Change() 'x Elsamatilde 'http://aplicaexcel.galeon.com/manuales.htm 'Se ingresa fecha en formato ddmmaa If TextBox1 = ""...

Todos los pasos hasta antes de la comparación, los podés realizar con la grabadora de macros encendida. Luego al detenerla, encontrarás en un módulo la macro que podés enviármela si necesitas que la limpie o personalice un poco. Para la comparación,...

A ver si entendí: tenés una diferencia de días, ¿pero cuándo se coloque la fecha de certificado ya no querés ese resultado... sino otro? Mira esta fórmula. Estoy utilizando otra función pero da el mismo resultado. Lo que le digo es que si C2 está...

Ya tratamos el tema de las protecciones (libro, hojas y Editor). - Proteger libro: se necesita clave para abrir el libro - Proteger hojas: evita que vean/modifiquen fórmulas y evita que puedan copiarlas y pegarlas en otro libro - Proteger editor:...

Antes de desarrollar la macro aclara un poco más la tarea: - ¿Se busca un texto? en todas las tablas.. ¿en cualquier columna? - una vez encontrado el dato... ¿qué información deseas agregar al listbox? Creo que ayudaría si dejaras una imagen de 1 de...

Te adjunto un código un poco más simple para llenar el combobox: Private Sub Area1_Enter() 'x Elsamatilde Dim i As Integer 'vaciar el control Area1.Clear 'llenar el control hasta encontrar una celda vacía en col 5 i = 2 While Hoja2.Cells(i, 5) <> ""...

Enviame la hoja de uno de los libros ( o un libro) y la hoja donde debe ir la suma para tomarla de ejemplo y ajustarte la macro.

Las instrucciones del pase de la hoja al listbox son correctas, no entendí cuál es tu problema. Mencionas col C pero la macro dice col D, ¿será eso? Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Format(Cells(i, j).Offset(0, 3), "hh:mm:ss") Nota:...

En un módulo colocá la siguiente macro: Sub nroSerial() 'x Elsamatilde Dim oFSO As Object Dim drive As Object Set oFSO = CreateObject("Scripting.FileSystemObject") Set drive = oFSO.GetDrive("C:\") 'se compara con un nro ubicado en hoja1, X1 If...