Reject Manual Input
I have two questions for a list box. I have the code to put the list box in
thanks to this list. Now I need to do 2 things 1. Make sure typed in data is rejected unless the list box was used 2. Make sure the cursor is always in Column "C" before entering the contents of the list box. I seem to remember a way to auto run a macro on workbook open, but can't find it in the help files. I know it was something simply like naming the macro Automatic or something CODE FOR "OK" Button Private Sub cmdOK_Click() Dim strnames As String Dim x As Integer For x = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(x) Then strnames = strnames & ListBox1.List(x) & ", " End If Next x If Not strnames = "" Then strnames = Left(strnames, Len(strnames) - 1) End If ActiveCell.Value = strnames ListBox1.RowSource = "MyList" End Sub |
Reject Manual Input
You can use the Workbook_Open event in the ThisWorkbook module or in a
general module name your macro Auto_Open See Chip Pearson's page on events for an overview http://www.cpearson.com/excel/events.htm -- Regards, Tom Ogilvy "SMERTZ" wrote in message ... I have two questions for a list box. I have the code to put the list box in thanks to this list. Now I need to do 2 things 1. Make sure typed in data is rejected unless the list box was used 2. Make sure the cursor is always in Column "C" before entering the contents of the list box. I seem to remember a way to auto run a macro on workbook open, but can't find it in the help files. I know it was something simply like naming the macro Automatic or something CODE FOR "OK" Button Private Sub cmdOK_Click() Dim strnames As String Dim x As Integer For x = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(x) Then strnames = strnames & ListBox1.List(x) & ", " End If Next x If Not strnames = "" Then strnames = Left(strnames, Len(strnames) - 1) End If ActiveCell.Value = strnames ListBox1.RowSource = "MyList" End Sub |
All times are GMT +1. The time now is 01:44 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com