Poner fecha a celda con macro
Tengo esta rutina a la cual le deseo agregar una instrucción para que me ponga solo la fecha sin la hora en una celda y al ingresar más datos se ponga la fecha anexo la rutina que la encontré en internet
Sub Add_Control() Dim miCelda As Range Dim FilaLibre As Long Dim tipoMov As String Set miCelda = [datos] FilaLibre = ActiveSheet.Cells(65536, miCelda.Column).End(xlUp).Row + 1 tipoMov = Application.Caller ' bEntrada o bSalida, según el botón pulsado If tipoMov = "bEntrada" Then ' Buscar primera fila libre y rellenar FilaLibre = ActiveSheet.Cells(65536, miCelda.Column).End(xlUp).Row + 1 ActiveSheet.Cells(FilaLibre, miCelda.Column).Value = [codemp] ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 1).Value = [nomemp] ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 3).Value = Now() Else ' Buscar la última entrada de este empleado que no tenga hora de salida y rellenar Do While FilaLibre > [datos].Row FilaLibre = FilaLibre - 1 If ActiveSheet.Cells(FilaLibre, miCelda.Column).Value = [codemp] Then If ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 4).Value = "" Then ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 4).Value = Now() Exit Do End If End If Loop End If End Sub
1 respuesta
Muchas gracias por su respuesta donde quiero poner la fecha es a partir de la celda a7 al insertarla en el formato de excel me busca el numero de semanas que tengo en una segunda hoja al querer dejar la macro tal como se ve en la imagen me facilita el trabajo por ejemplo el formato es para controlar la fecha y hora de entrada de personal y como el giro es una línea de camiones los empleados brincan la noche trabajando es decir empiezan lunes y en ocasiones salen hasta el miércoles esa es la parte de la rutina que me interesa cuidar por eso deseo que a partir de las celda a7 se ponga la fecha espero no te haya enredado
Saludos
tonybug
Sube tu archivo a la nube para revisarlo saludos!
Tendrás un correo a donde enviártelo ya que no se como subirlo a la nube
Saludos
