Como ejecutar la misma macro 2 veces
Muy buenas quisiera ver si me puedes ayudar
Tengo este codigo
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 ( Colum E)" se da fecha y hora, eso esta bien y me funciona de maravilla, pero quiero que en la columna "Salida (Colum H)" me haga lo mismo, pero porsupuesto hasta el momento que el empleado salga, tiempo despues, como se podria hacer eso.
De antemano te agradezco tu ayuda
Tengo este codigo
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 ( Colum E)" se da fecha y hora, eso esta bien y me funciona de maravilla, pero quiero que en la columna "Salida (Colum H)" me haga lo mismo, pero porsupuesto hasta el momento que el empleado salga, tiempo despues, como se podria hacer eso.
De antemano te agradezco tu ayuda
1 Respuesta
Respuesta de calvuch
1
Private Sub Worksheet
Dim col1 As String
Select Case Selection.Column
Case Is = 5
col1 = "E:E"
Case Is = 8
col1 = "H:H"
Case Is < 5
Exit Sub
Case Is > 8
Exit Sub
End Select
If Not Application.Intersect(Target, Columns(col1)) Is Nothing Then
If (Target.Offset(0, 1).Value = "" And Target.Offset(0, 2).Value = "") Then
Target.Offset(0, 1) = Date
Target.Offset(0, 2) = Time
End If
End If
end sub
Dim col1 As String
Select Case Selection.Column
Case Is = 5
col1 = "E:E"
Case Is = 8
col1 = "H:H"
Case Is < 5
Exit Sub
Case Is > 8
Exit Sub
End Select
If Not Application.Intersect(Target, Columns(col1)) Is Nothing Then
If (Target.Offset(0, 1).Value = "" And Target.Offset(0, 2).Value = "") Then
Target.Offset(0, 1) = Date
Target.Offset(0, 2) = Time
End If
End If
end sub
