Results 1 to 4 of 4
  1. #1
    New Lounger
    Join Date
    Feb 2013
    Posts
    2
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Formula help needed!

    Hi Guys Sample.xlsx

    I've attached a sample file of the spreadsheet Im trying to create. It's an inventory for Staff uniform. As you can see, I have a master sheet where all uniform orders and returns will be recorded, and I have 2 staff worksheets for Joe and Jane (there will be about 40 individual staff cards in the finished product).

    What I would like to happen (in an ideal world) is to be able to enter an order onto the master sheet, and for that to automatically populate the individual's staff card. I've tried alsorts of formulas and so far the closest I can get is a VLOOKUP that will populate the individual cards lets say Jane's, but leaves rows of errors on Janes card when orders are placed on the master for Joe.

    Any suggestions on how I might do this?

    Also, this may be asking too much, but if there were a way for me to automatically deduct from staff's allowance (listed at the top of the staff cards) when an order is placed, that would be a dream come true. But I dont want to push my luck.

    Any help will be most appreciated!!

  2. #2
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,639
    Thanks
    115
    Thanked 650 Times in 592 Posts

    VBA to load data

    Ginger,
    Here is some code to move data from the Master sheet to the appropriate customer. When you add to the Master, each customer's list gets updated when you open that sheet. Place the code in the sheets module for each new sheet created and change the name in the code to the new customer's name.

    HTH,
    Maud

    Code:
    Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Worksheets("Master")
    Range("B14:J42").ClearContents
    Row = 14
    For I = 7 To 39
    If .Cells(I, 2).Value = "Joe Bloggs" Then  'CHANGE THE NAME FOR EACH CUSTOMER
        Cells(Row, 2) = .Cells(I, 3).Value
        Cells(Row, 3) = .Cells(I, 4).Value
        Cells(Row, 5) = .Cells(I, 6).Value
        Cells(Row, 6) = .Cells(I, 7).Value
        Cells(Row, 7) = .Cells(I, 8).Value
        Row = Row + 1
    End If
    Next I
    End With
    End Sub
    Attached Files Attached Files

  3. The Following User Says Thank You to Maudibe For This Useful Post:

    Gingerbikki (2013-02-21)

  4. #3
    New Lounger
    Join Date
    Feb 2013
    Posts
    2
    Thanks
    1
    Thanked 0 Times in 0 Posts
    This is brilliant! Exactly what I needed!

    Thanks Maud, you're a star

  5. #4
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,639
    Thanks
    115
    Thanked 650 Times in 592 Posts
    You are more than welcome. Post back if you need additional help.

    Maud
    P.S. Thanks for the Thanks

Tags for this Thread

Posting Permissions

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