Results 1 to 5 of 5
  1. #1
    Bronze Lounger
    Join Date
    Jun 2001
    Location
    New York, New York, Lebanon
    Posts
    1,449
    Thanks
    1
    Thanked 1 Time in 1 Post

    I need some design help

    Hi All

    Can anyone tell me how can I get the following done:

    I am building what I call a Dispatcher's Application. So here goes:

    I have a User form with a bunch of controls. The dispatcher gets a phone call and uses the controls on the User form yo capture the information about the call. Who's calling; the callers phone number; what the caller needs and other stuff. I store all this in columns in the worksheet. What I want to do is have a Multi column list box show all these calls as a journal. How do I make the list source be an expandable range? Each time I add a call to the wofksheet the list box gets updated?

    Also how can I echo these calls to a second dispatcher so if we have two dispatchers working on two different PCs that both will see all the calls from each others pc

    Wassim
    <img src=/S/compute.gif border=0 alt=compute width=40 height=20> in the <img src=/S/bagged.gif border=0 alt=bagged width=22 height=22>

  2. #2
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,631
    Thanks
    115
    Thanked 645 Times in 589 Posts
    Wassim,

    Here is some code that will update a multi-column list box placed on a userform. The list box will be updated everytime the form is opened and on the fly if the form is open and data is entered.

    HTH,
    Maud

    Dispatch 7.JPG

    Code:
    Private Sub UserForm_Initialize()
    ListBox1.ColumnWidths = "20;80;80;80;130;50;50"
    ListBox1.Clear
    With Worksheets("Sheet1")
    LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    For I = 3 To LastRow
        ListBox1.AddItem .Cells(I, 1).Value
        ListBox1.List(I - 3, 1) = .Cells(I, 2).Value
        ListBox1.List(I - 3, 2) = .Cells(I, 3).Value
        ListBox1.List(I - 3, 3) = .Cells(I, 4).Value
        ListBox1.List(I - 3, 4) = .Cells(I, 5).Value
        ListBox1.List(I - 3, 5) = .Cells(I, 6).Value
        ListBox1.List(I - 3, 6) = .Cells(I, 7).Text
       
    Next I
    End With
    End Sub
    If you want to share the workbook, you can leave it on one PC and set the permissions to share it on networked computers or palce it in a Network share folder. You did not mention what version you are working with but in 2010, if you got to the Review menu> Share Workbook> There is a "?" that will open a help menu and provide all the information you need.

    HTH,
    Maud
    Attached Files Attached Files
    Last edited by Maudibe; 2013-04-02 at 07:53. Reason: Adjusted Column Width

  3. #3
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,631
    Thanks
    115
    Thanked 645 Times in 589 Posts
    Wassim,

    If you are attempting to have both users share the same file then follow my tip above. However, if you are looking for a way to have 2 users working on their own seperate files but being able to view (only) the other's list box then I would recommend a program to share their desktop (view only mode). They can be fairly expensive but there are several free ones with limited ability. Examples are: Comodo's Unite, Team Viewer (free version), or Logmein (free version).

    HTH,
    Maud
    Last edited by Maudibe; 2013-04-03 at 00:15. Reason: add link for logmein

  4. #4
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,433
    Thanks
    371
    Thanked 1,456 Times in 1,325 Posts
    Wassim,

    You may not want to hear this but your best choice would be Access.
    You'd setup a split database with all the code in one file and the data in another.
    Each user has a copy of the code database on their local machine and the data file is located on a server or NAS.
    The code employs record locking to insure that they don't try to operate on the same record at the same time.
    In the long run this will be much better than an Excel approach since Access is made for sharing where Excel isn't really.
    HTH
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

  5. #5
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts
    Quote Originally Posted by RetiredGeek View Post
    Access is made for sharing where Excel isn't really.
    I'd swap those last two words round.
    Regards,
    Rory

    Microsoft MVP - Excel

Posting Permissions

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