VICENTE GUERRA NICOLAS

GRACIAS Haplox por su valioso apoyo, gracias a todos los colaboradores por los apoyos que brindan por este medio, DIOS BENDIGA SUS VIDAS...

cuando le doy fecha inicial 18/06/2018 23:00 y fecha final 19/06/2018 23:00, Me marca error de ejecución-algo hice mal? Sub Imprimir_Rango_Fechas(TextBox1 As Date, TextBox2 As Date) Dim fechaI, fechaF As Date Dim uF As Long Dim celda, rangoI, rangoF, areaImpresion As Range Unload UserForm1 uF = Range("B10:B" & Rows.Count).End(xlDown).Row fechaI = TextBox1 'CDate(InputBox("Introduzca Fecha de Inicio", "Fecha inicial a Imprimir")) i = 11 Do While Cells(i, 5) <> "" If Cells(i, 5) >= fechaI Then rangoI = Cells(i, 5).Offset(0, -3).Address Exit Do Else End If i = i + 1 Loop fechaF = TextBox2 'CDate(InputBox("Introduzca Fecha de Finalización", "Fecha final a Imprimir")) If fechaF < fechaI Then MsgBox "La fecha final debe ser mayor que la inicial", vbInformation Exit Sub End If j = 11 Do While Cells(j, 6) <> "" If Cells(j, 6) >= fechaF Then rangoF = Cells(j, 5).Offset(0, 3).Address Exit Do Else End If j = j + 1 Loop Set areaImpresion = Range(rangoI & ":" & rangoF) areaImpresion.Select Application.PrintCommunication = False ActiveSheet.PageSetup.PrintTitleRows = "$10:$10" 'Fijamos la fila de encabezados Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" ActiveSheet.PageSetup.PrintArea = areaImpresion.Address 'Fijamos el área de impresión Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMargin = Application.InchesToPoints(0.31496062992126) .FooterMargin = Application.InchesToPoints(0.31496062992126) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintSheetEnd .PrintQuality = 600 .CenterHorizontally = True 'Centramos horizontalmente .CenterVertically = False .Orientation = xlLandscape 'Retrato .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 90 .FitToPagesWide = False .FitToPagesTall = False .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True ActiveSheet.PrintPreview 'SI QUIERES VER LA PREIMPRESIÓN 'ActiveSheet.PrintOut Copies:=1, Collate:=True End Sub Sub mostrar_formulario() UserForm1.Show vbModeless 'Sheets("Registro").Activate End Sub

Si... va ser de acuerdo a la fecha y hora de entrada de los empleados, algunos entran a las 24/05/201812:00 am y salen a las 25/06/2018 08:00 am, por ser de turno. espero su valioso apoyo.

Hola a todos , nuevamente solicitando apoyo con el programa de asistencia de trabajadores; como hacer para que cuando mande a impresión la asistencia diaria en la opción de rango de fecha me solicite los datos de la siguiente manera; Fecha Inicial "24/05/2018 23:30" y Fecha Final "26/05/2018 00:10", considerando los datos de los trabajadores registrados en la base, la fecha varia de acuerdo a la impresión diaria de asistencia, adjunto archivo Checador Personal2.rar Ficha Nombre Categoria Entrada Salida 581230 VICTOR MANUEL RUIZ MENDEZ MEDICINA GENERAL 24/05/2018 23:48 25/05/2018 08:01 548273 JAVIER PESQUERA SIBAJA OPERADOR DE AMBULANCIA 24/05/2018 23:51 25/05/2018 08:02 489391 CLAUDIA SAAVEDRA ORTIZ DESPACHADOR DE FARMACIA 24/05/2018 23:52 25/05/2018 08:03 350432 VICENTE GUERRA NICOLAS OPERADOR DE EQUIPO ELECTRONICO 25/05/2018 06:55 25/05/2018 15:02 403820 VIRGINIA ULLOA ZAPATA RECEPCIONISTA (OFICINISTA DE CUARTA) 25/05/2018 06:56 25/05/2018 15:02 368773 ZULMA PATIÑO SARABIA ENFERMERA GENERAL 25/05/2018 07:00 25/05/2018 15:04 507541 CARMEN ESPINOSA JIMENEZ LIC. ENFERMERIA 25/05/2018 07:08 25/05/2018 15:03 485275 MIGUEL ANGEL SANTIAGO VAZQUEZ OBRERO GENERAL 25/05/2018 07:10 25/05/2018 15:03 358505 DALILA MATUS TOLEDO AUXILIAR "F" 25/05/2018 07:12 25/05/2018 15:02 430614 HERIBERTO ROJANO RIVERA DESPACHADOR DE FARMACIA 25/05/2018 07:53 25/05/2018 16:07 561882 JOSE SANTOS CANSECO MEDICINA GENERAL 25/05/2018 07:56 25/05/2018 16:03 486096 HECTOR ALEJANDRO TORRES NUÑEZ OPERADOR DE AMBULANCIA 25/05/2018 08:03 25/05/2018 16:02 550639 JUAN FRANCISCO GARCIA MORALES OBRERO GENERAL 25/05/2018 13:34 25/05/2018 21:01 571707 ANGELES RODRIGUEZ LOPEZ RECEPCIONISTA (OFICINISTA DE CUARTA) 25/05/2018 13:45 25/05/2018 21:09 356447 CRISTO ALEXANDER AVILA GARFIAS OPERADOR DE AMBULANCIA 25/05/2018 15:39 26/05/2018 00:06 489452 MAGDIEL CRUZ OLIVERA DESPACHADOR DE FARMACIA 25/05/2018 15:40 25/05/2018 23:59 237498 JOSE ENRIQUE OJENDIS GARFIAS MEDICINA GENERAL 25/05/2018 16:02 26/05/2018 00:08

Antoni gracias por su valioso apoyo, sinceramente son un grupo de colaboradores excelente.... ya no marca el error con el aplicativo que me envió, ahora el problema es la salida del programa, cuando le doy cerrar programa de excel, no lo ejecuta, regresa al programa de asistencia......saludos.....DIOS BENDIGA SUS VIDAS, EXCELENTES COLABORADORES

Si el usuario tiene abierto el programa de asistencia y quiere abrir otro documento, mande este mensaje "se ha producido el error "9" en tiempo de ejecución: Subíndice fuera del intervalo", y cuando trata de cerrar el programa no lo hace, regrese nuevamente en la aplicación de asistencia, que otra manera se le puede poner el reloj al programa sin ocasionar problemas, espero puedan apoyarme.

Cuando quiero abrir un libro sin cerrar el programa de asistencia, me aparece este mensaje de error "se ha producido el error "9" en tiempo de ejecución: Subíndice fuera del intervalo", tampoco me permite cerrar el programa, adjunto archivo Checador Personal2.xlsm

Nada más en Entrada me mande el mensaje de Trabajador ya checo, en salida no para evitar problemas de salidas de los empleados por los turnos de labores de manejamos..... pro su valioso apoyo.... gracias

ANTONI, Buen día; disculpa la molestia que le vuelvo ocasionar, hay empleados que entran a las 23:45 hrs para salir al siguiente día a las 08:00, al registrar la salida de ellos no me lo permite el macro, ¿podrá apoyarme al respecto?, contamos con tres turnos de trabajo, registrando entrada y salida del mismo día no hay problema, el problema es cuando se tiene que registrar la salida del personal que entro un día anterior, son los que están en color. 424653 INOCENCIA VAZQUEZ GARCIA ASISTENTE DE HOSPITAL 13/06/2018 20:58 402060 VERONICA ORTIZ TOLEDO MEDICINA GENERAL 13/06/2018 23:27 351903 ALFREDO DIAZ MORALES OPERADOR DE AMBULANCIA 13/06/2018 23:51 359912 NADIA LIDIA HERNANDEZ ALVAREZ DESPACHADOR DE FARMACIA 13/06/2018 23:54 403820 VIRGINIA ULLOA ZAPATA RECEPCIONISTA (OFICINISTA DE CUARTA) 14/06/2018 06:59 494743 GLORIA CAMARILLO CRUZ PEDIATRIA 14/06/2018 07:01 350432 VICENTE GUERRA NICOLAS OPERADOR DE EQUIPO ELECTRONICO 14/06/2018 07:01 507541 CARMEN ESPINOSA JIMENEZ LIC. ENFERMERIA 14/06/2018 07:02 Checador Personal2.xlsm

Gracias por haberme mostrado su valioso apoyo Antoni, Dios bendiga su vida, quedo excelente...bendiciones

Checador Personal2.xlsm

este es el archivo

SOLICITO SU VALIOSO APOYO, COMO HACER QUE MI MACRO DE REGISTRO DE PERSONAL NOS AVISE CUANDO SE INTENTA INTRODUCIR UNA FECHA DE ENTRADA Y SALIDA DE UN TRABAJADOR YA EXISTENTE, QUE NO ME PERMITA INGRESAR AL TRABAJADOR DOS VECES CON LA MISMA FECHA

Gracias por su valioso aportación, me ayudo muchísimo, BENDICIONES!!

José buen día, cuando elijo las fechas es sobre la columna de Entrada y Salida, para generar el reporte diario o semanal de los trabajadores, sus horas laboradas y el retardo, las horas laboradas son de 8 hrs