Como ejecutar la misma macro 2 veces
Muy buenas quisiera ver si me puedes ayudar
Tengo este código
Private Sub Worksheet
col1 = "E:E"
If Not Application.Intersect(Target, Columns(col1)) Is Nothing Them
If (Target.Offset(0, 1). Value = "" And Target.Offset(0, 2). Value = "") Them
Target.Offset (0, 1) = Date
Target.Offset (0, 2) = Time
End If
End If
End Sub
Con el si pones una letra en una columna " Entrada ( Column E)" se da fecha y hora, eso esta bien y me funciona de maravilla, pero quiero que en la columna "Salida (Column H)" me haga lo mismo, pero por supuesto hasta el momento que el empleado salga, tiempo después, como se podría hacer eso.
De antemano te agradezco tu ayuda
Tengo este código
Private Sub Worksheet
col1 = "E:E"
If Not Application.Intersect(Target, Columns(col1)) Is Nothing Them
If (Target.Offset(0, 1). Value = "" And Target.Offset(0, 2). Value = "") Them
Target.Offset (0, 1) = Date
Target.Offset (0, 2) = Time
End If
End If
End Sub
Con el si pones una letra en una columna " Entrada ( Column E)" se da fecha y hora, eso esta bien y me funciona de maravilla, pero quiero que en la columna "Salida (Column H)" me haga lo mismo, pero por supuesto hasta el momento que el empleado salga, tiempo después, como se podría hacer eso.
De antemano te agradezco tu ayuda
1 respuesta
Respuesta
-1
Siento no poder ayudarte en esta duda. No sé mucho sobre macros... Lo siento de veras, pero si tienes alguna otra consulta puedes contar conmigo!