+ Reply to Thread
Results 1 to 4 of 4

Thread: Arranging time sheet data

  1. #1
    Registered User
    Join Date
    10-21-2010
    Location
    LONDON
    MS-Off Ver
    Excel 2003
    Posts
    14

    Arranging time sheet data

    Hi!


    I have a data in excel and there are around 30 workers in my company.I manage to pull the data from time machine and paste in excel but to make the desired report or output it takes me around 2 hours.Can anyone can help me in that.

    Please find the attached excel sheet.First sheet(DATA) contains the data and Second sheet(OUTPUT) contains the desired format I need.

    Thanks


    Lovinguy
    Attached Files Attached Files

  2. #2
    Forum Moderator Leith Ross's Avatar
    Join Date
    01-15-2005
    Location
    San Francisco, Ca
    MS-Off Ver
    2000, 2003, & read 2007
    Posts
    15,979

    Re: Arranging time sheet data

    Hello lovinguy,

    Welcome to the Forum!

    Is each report a single worksheet for each staff member or will the report be a single worksheet?
    Sincerely,
    Leith Ross

    Remember To Do the Following....

    1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.
    2. Thank those who have helped you by clicking the Star below the post.
    3. Please mark your post [SOLVED] if it has been answered satisfactorily.


    Old Scottish Proverb...
    Luathaid gu deanamh maille! (Rushing causes delays!)

  3. #3
    Registered User
    Join Date
    10-21-2010
    Location
    LONDON
    MS-Off Ver
    Excel 2003
    Posts
    14

    Re: Arranging time sheet data

    Hi Leith! Whatever is convenient or possible.Its not a problem if the report comes all together or comes in individual worker.

    Thanks


    Lovinguy

  4. #4
    Forum Guru snb's Avatar
    Join Date
    05-09-2010
    Location
    VBA
    MS-Off Ver
    Redhat
    Posts
    5,151

    Re: Arranging time sheet data

    like ?
    Sub snb()
      sq = Sheets(1).Cells(1).CurrentRegion
      sn = Sheets(1).Cells(3).Resize(UBound(sq), 10)
      x = 1
    
      For j = 1 To UBound(sq)
        If Int(CDate(sq(j, 2))) <> Int(CDate(sn(x, 2))) Or sn(x, 1) <> sq(j, 1) Then
           x = x + 1
           sn(x, 1) = sq(j, 1)
           y = 2
        End If
        sn(x, y) = sq(j, 2)
        y = y + 1
      Next
    
      Sheets(2).Cells(40, 1).Resize(UBound(sn), 7) = sn
    End Sub



+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.2.0