Sub ShowOnlyEmp()
Emp = ActiveCell.Value
'Emp = "Aaron GORLITZ 7788 - 7788"
With ThisWorkbook
Set wx = .Sheets("TimeSheet Daily")
wx.Activate
On Error Resume Next
wx.ShowAllData
On Error GoTo 0
rx = Range("$A$100000").End(xlUp)
wx.Range("$A$1:$AY" & rx).AutoFilter Field:=5, Criteria1:=Emp
Emp = Right(Emp, 4)
Set ws = ThisWorkbook.Sheets("PaySlip Daily")
ws.Activate
On Error Resume Next
ws.ShowAllData
On Error GoTo 0
RR = ws.Range("$A$100000").End(xlUp)
ws.Range("$A$1:$CW" & RR).AutoFilter Field:=3, Criteria1:=Emp, Field:=1, Criteria1:=PP
End With
End Sub
Sub ShowEmpForPeriod()
EmpRef = ActiveCell.Address
Emp = ActiveCell.Value
PP = ActiveCell.Offset(0, 1).Value
'Emp = "Aaron GORLITZ 7788 - 7788"
With ThisWorkbook
Set wx = .Sheets("TimeSheet Daily")
wx.Activate
On Error Resume Next
wx.ShowAllData
On Error GoTo 0
rx = Range("$A$100000").End(xlUp)
With wx.Range("$A$1:$AY" & rx)
.AutoFilter Field:=5, Criteria1:=Emp
.AutoFilter Field:=1, Criteria1:=PP
End With
Emp = Right(Emp, 4)
Set ws = ThisWorkbook.Sheets("PaySlip Daily")
ws.Activate
On Error Resume Next
ws.ShowAllData
On Error GoTo 0
RR = ws.Range("$A$100000").End(xlUp)
With ws.Range("$A$1:$CW" & RR)
.AutoFilter Field:=3, Criteria1:=Emp
.AutoFilter Field:=1, Criteria1:=PP
End With
End With
End Sub