Create report in sheet from db in another sheet

[windwardmi]

I am working with my employees with Office 365.

I have a Excel workbook that can collect an employee's day time sheet and keep populating their sheet using a userform.

I want to pull data off their sheet and input on another sheet after header rows and before total rows.

Any help in doing this would be appreciated.

Thanks Steve....

 

[LBinGA]

I am working with my employees with Office 365.

I have a Excel workbook that can collect an employee's day time sheet and keep populating their sheet using a userform.

I want to pull data off their sheet and input on another sheet after header rows and before total rows.

Any help in doing this would be appreciated.

Thanks Steve....

If I'm understanding correctly...try this:

Sub Copyto()


Dim ws As Worksheet
Dim ws2 As Worksheet
Dim rngEENameAs Range
Dim rngPaste As Range
Dim LR As Long


Set ws = Worksheets("Your WS From")
Set ws2 = Worksheets("Your WS To")


ActiveSheet.Unprotect


'***Copy EE Name
Set rngCopyIns = ws.Range("Range where the EE Name is")
If ws2.Range("A2").Value = "" Then 'Assuming your header is in Row 1 _
    Set rngPaste = ws2.Range("A2")
Else
    LR = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Set rngPaste = ws2.Range("A" & LR)
End If


rngCopyIns.Copy
rngPaste.PasteSpecial xlPasteValues
rngCopyIns.Value = ""
rngCopyIns.Cells(1).Select
Application.CutCopyMode = False

ActiveSheet.Protect
End Sub

Repeat for each field you wish to copy. I assume this sheet is on a network and all employees are using the same sheet.

Attach this code to a button on main form.

 

[windwardmi]

Assigned following to button:

ub TestBtn()
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim rngEEName As Range
Dim rngPaste As Range
Dim LR As Long

Set ws = Worksheets("Steve")
Set ws2 = Worksheets("TimeSheetTest")

ActiveSheet.Unprotect

'***Copy EE Name
Set rngCopyIns = ws.Range("A3:Q11")
If ws2.Range("A3").Value = "" Then 'Assuming your header is in Row 1 _
    Set rngPaste = ws2.Range("A3")
Else
    LR = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    Set rngPaste = ws2.Range("A" & LR)
End If

rngCopyIns.Copy
rngPaste.PasteSpecial xlPasteValues
rngCopyIns.Value = ""
rngCopyIns.Cells(1).Select
Application.CutCopyMode = False
ActiveSheet.Protect
End Sub

I then get a Run Time error 91. Highlighted is rngPaste.PasteSpecial xlPasteValues

Am I missing something.