Elsa Matilde

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,...

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...

Comprenderás que sin ver por lo menos parte de tus macros solo podemos aproximar una respuesta. 1 - '... un proceso que introduce fecha y hora...' Tratándose de 'digitar' una hora entiendo que se tratará de instrucciones en el evento Change de la...

Busca el fin de rango de este modo para asegurarte de tomar todas las filas/columnas en cualquier versión que utilices: columna = Cells(1, Columns.Count).End(xlToLeft).Column ultima = Range("A" & Rows.Count).End(xlUp).Row Del mismo modo en esta...

Creo que si colocaras en tu reporte una columna auxiliar con una fórmula que identificara el vendedor ya tendrías casi todo el tema resuelto. Luego te quedaría crear una macro para filtrar por vendedor. Y el rango filtrado llevarlo a una hoja informe...

Te dejo la macro desarrollada según tu muestra. El libro con la macro se encuentra a tu disposición. Mis correos aparecen en el sitio que dejo al pie. Private Sub CommandButton1_Click() 'x Elsamatilde 'si se encuentra seleccionada celda en col A o >...

Como la macro de Adriel presenta fallas te la paso correctamente: Sub botonGuardar() For Each Control In Controls If TypeName(Control) = "TextBox" Then If Control.Value = "" Then MsgBox "captura todos los datos" Exit Sub End If End If Next End Sub...