Excel Timesheet Dashboard

[@janezklun]

Great video as always, Thank you Trevor

[@fumedia-Language]

Hello, please share your file with me! I love your perspective in the past. I cannot find your lovely website right now.

[@samialayiet_]

GREAT VIDEO THANK YOU FOR YOUR HELP

[@patshotts8024]

Great tutorial, once again. I completed the spreadsheet however having an issue when I push the update button. It gives me an error message of "compile error for without next". Any suggestions on how to fix this?

[@redplanet16]

hi trev. thank you for this video.. this is actually what i am looking for to help me with my current project. however i am getting an error message when i click update button as i am getting "Compile Error for without next". Thank you in advance. Regards,

[@OnLinePCLearning]

Hi Marz, The error is saying the the word "Next" is missing. A For loop starts with For then loops through the data and ends with next. Next is missing. Trev

[@furkanorhan5428]

so where is the template ?

[@lnesgroup4095]

hi i have a problem when i push to buttom "Update" "compile error for without next"

[@redplanet16]

hi trev.. i am also getting the same error.. hope you can help

[@larbievansaryeh6359]

You are doing a good job but I will be happy if you teach as from the star so we can follow than explaining after work done Thank you

[@filmvolt9583]

were or how do I build this in Excell?

[@OnLinePCLearning]

Here is the link www.onlinepclearning.com/excel-timesheet-dashboard/

[@Roadrocker66Home]

Good day Trevor I want to paste all data to a database without clearcontents on the database, rewriting or overwriting. How do i Do that! This is what I did. But this code will paste the data one more time after the last row. Sub CombineCodes() Dim NRow As Range Dim TRow As Range Dim c As Range 'error handling On Error GoTo errHandler: Application.ScreenUpdating = False ActiveSheet.Unprotect Range("W2:AE300").ClearContents 'Sheets("TimeData").Range("B6:J300").ClearContents 'I do not want that the code will empty my database! For Each c In Range("Combined") 'find first cell to paste to Set NRow = Cells(Rows.Count, 23).End(xlUp).Offset(1, 0) Set TRow = Sheets("TimeData").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) 'check for value If c.Value "" Then 'copy c.Range(Cells(1, 1), Cells(1, 9)).Copy 'Range("B21").Copy Range("T2") 'paste NRow.PasteSpecial Paste:=xlPasteValues TRow.PasteSpecial Paste:=xlPasteValues 'I do not want that the code rewrite or repaste the same data to my database data on the next row! 'What can I do about that? 'get location of next row NRow = NRow TRow = TRow End If 'move to next rowNext c Next c Application.CutCopyMode = False ActiveSheet.Protect On Error GoTo 0 Exit Sub errHandler: 'Protect Sheet ActiveSheet.Protect 'show error information in a messagebox MsgBox "An Error has Occurred " & vbCrLf & _ "The error number is: " & Err.Number & vbCrLf & _ Err.Description & vbCrLf & "Please notify the administrator" End Sub