Passing arguments to userforms
Hi
I seem to have fixed one problem, only to find another. I have a workbook with several worksheets. On a main tab I have a button that loads a form and shows a list (in a listbox) of all the tabs in the workbook. I then want to select the tab from the list and then use that value as an argument to then bring up another list of all the column headers in the selected tab. I was kind of hoping it was as simple as "load List(TabName)" but wasn't to be. Suggestions much appreciated. -- Steve R |
Passing arguments to userforms
Private Sub Listbox1_click()
Dim sh as Worksheet, rng as Range Dim cell as Range if listbox1.listIndex < -1 then listbox2.clear set sh = Worksheets(Listbox1.Value) set rng = sh.Range(sh.Cells(1,1),sh.Cells(1,"IV").end(xltoLe ft)) for each cell in rng listbox2.AddItem cell.Value next end if End sub -- Regards, Tom Ogilvy "Steve" wrote: Hi I seem to have fixed one problem, only to find another. I have a workbook with several worksheets. On a main tab I have a button that loads a form and shows a list (in a listbox) of all the tabs in the workbook. I then want to select the tab from the list and then use that value as an argument to then bring up another list of all the column headers in the selected tab. I was kind of hoping it was as simple as "load List(TabName)" but wasn't to be. Suggestions much appreciated. -- Steve R |
Passing arguments to userforms
Tom
Not what I had in mind but this is much better. Thank you so much -- Steve R "Steve" wrote: Hi I seem to have fixed one problem, only to find another. I have a workbook with several worksheets. On a main tab I have a button that loads a form and shows a list (in a listbox) of all the tabs in the workbook. I then want to select the tab from the list and then use that value as an argument to then bring up another list of all the column headers in the selected tab. I was kind of hoping it was as simple as "load List(TabName)" but wasn't to be. Suggestions much appreciated. -- Steve R |
All times are GMT +1. The time now is 01:25 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com