Tor Cheer

Jonathan con este código puede eliminar registros lo puede adaptar a su código Saludos If ListBox1.ListIndex > 0 Then Hoja1.Rows(ListBox1.ListIndex + 1).Delete ListBox1.ListIndex = -1 End If

Yo uso el envió de un rango en excel y lo convierto en un archivo pdf con esta macro: Sub EnvioEmailHojaActivaPDF() Dim olApp As Object Dim olMail As Object Dim RutaTemporal As String Dim NombreTemporal As String Dim RutaCompleta As String mensaje =...

En esta página puedes descargar el programa en excel podrías adaptarlo a tus necesidades, saludos https://compubinario.com/sistema-de-caja-registradora-en-excel/

Le recomiendo este tutorial para hacer lo que requiere, cualquier cosa quedo a la orden. Saludos https://www.youtube.com/watch?v=2pWawZvHvMQ

Podría subir su archivo para revisar y tratar de resolverlo

Fenryz guarda esta macro y se la asignas al "CommandButton3" Cualquier cosa me comenta y con gusto Saludos Sub ImpPDF() Dim RutaArchivo As String RutaArchivo = "C:\Users\Victorm\Desktop\Archivopdf.pdf" Range("A1:G10").Select Range("A1").Activate...

Si puede subir su archivo para checalor

Sub CambiaColorCelda() ActiveCell.Interior.ColorIndex = 3 End Sub Esta macro colorea de rojo la celda seleccionada, pero por lo que veo necesita en el rango de fecha y en la fila de la habitación seleccionada, habrá que agregar el código al momento...

Ojala te sirva las siguientes fomula: Extraer fecha =CONCATENAR(MES(A1),"/", DIA(A1),"/",, AÑO(A1)) Extraer hora y minutos =CONCATENAR(HORA(A1),":", MINUTO(A1)) El ejemplo cuando el dato esta en la celda A1

Jesús en la siguiente fila si modificas con eso empezaría en la fila correcta uf = m.Range("A" & Rows.Count).End(xlUp).Row + 1uf = m.Range("A" & Rows.Count).End(xlUp).Row