HP3000-L Archives

October 2003, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: excel-help needed
From:
Glenn Mitchell <[log in to unmask]>
Reply To:
Glenn Mitchell <[log in to unmask]>
Date:
Thu, 23 Oct 2003 09:47:24 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (29 lines) 
 You need some code roughly like this:

Private Sub A_Change()
    B.Clear
    Select Case A.Value
    Case "A1"
        B.AddItem "Shyam"
        B.AddItem "Venkat"
    Case "A2"
        B.AddItem "Priya"
        B.AddItem "sheetal"
    Case "A3"
        B.AddItem "ETC1"
        B.AddItem "ETC2"
    Case Else
    End Select
    B.ListIndex = 0

End Sub

Regards.

Glenn Mitchell
3GM Associates, Inc
Portland, ME

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2