I have the following code that copies a range of cells to another worksheet before moving to the next empty row.
target sheet has 4 headers: Date, Name,time in and time out.
Sub Staff_Signin()
'
' Staff_in Macro logs time staff signed in
'
Range("M3:O3").Select
Application.CutCopyMode = False
Selection.Copy
Sheet4.Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheet2.Select
Range("D11").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Sheet1.Select
MsgBox "Thank You for signing in"
End Sub
i need a piece of code that looks at the first 3 columns and if matched pastes from ("N4") into the time out column without overriding original data.
Any help much appreciated.
D
target sheet has 4 headers: Date, Name,time in and time out.
Sub Staff_Signin()
'
' Staff_in Macro logs time staff signed in
'
Range("M3:O3").Select
Application.CutCopyMode = False
Selection.Copy
Sheet4.Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheet2.Select
Range("D11").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Sheet1.Select
MsgBox "Thank You for signing in"
End Sub
i need a piece of code that looks at the first 3 columns and if matched pastes from ("N4") into the time out column without overriding original data.
Any help much appreciated.
D