Have 2 listboxes, the contents of the second (fmmultiselectmulti) is populated based on selection of first. Sometimes (50%) when I open the workbook I receive a "Object Required" runtime error..
Private Sub ListBox1_click()
Select Case ListBox1.Value
Case "All"
ListBox2.ListFillRange = "_Sheet2!A1:A1"
Case "A"
ListBox2.ListFillRange = "_Sheet2!B1:B18" <--- example of line that gives the 424 - Oject Required
Case "B"
ListBox2.ListFillRange = "_Sheet2!C1:C18"
End Select
End Sub
Looks as though sometimes when it runs, listbox2 is not yet initialized ?? If I go into Debug and look at ListBox2 it shows up as type "Variant/Empty" and not " ListBox/ListBox" ??!!?? Is this some type of timing/race condition on the loading of controls ? I'm out of idea's. Both listboxes are on the same worksheet (Sheet1). The ListFillRange for Listbox1 (which is a fmmultiselectsingle) is hardcoded and also references a range in _Sheet2 - no problems with this control.
List 1 (TV Brand) Sony LG Samsung Depended List 2 (Models) Sony LG Samsung EX420 55EB9600 PL43E450A1FXZP EX430 77EC9800 PL43E490B4FXZP EX550 55EA8800 PL43E400U1FXZP EX520 KN55S9C UN32EH5300FXZP EX645 55EA9800 PL64E8000GFXZP
I'm using two Listboxes (Form Control) with multiple selection options namely Listbox 1 (Brand) & Listbox 2 (Models). I want listbox 2 input range to be depended on selection made on Listbox 1 (Brand). For example, if user selects Sony then box2 should show only Sony's models and if user selects Sony & LG, box2 should show models for both Sony & LG.
I am using a multi-column listbox on a worksheet. When I select an item from the listbox, the value from the listbox first column should populate the first empty cell in a range of cells L:16 to L:25. This should be easy but I cannot get it to function. Below is the code I used prior to modifications I made to the worksheet.
VB: Private Sub ListBox1_click() 'allows user to select item from list box and paste to datagrid Dim lngLastRow As Long Dim lngcol As Long
I have to run reports every week where I show the number of days items are pending some sort of action. I use an autofill action in a macro but the number of rows changes every week. Here is the current section of my macro that I use. I just input a row number that I know will not exceed the number of rows required by my data (12900). What can I replace this with (Selection.AutoFill Destination:=Range("J2:J12900") so it will only fill the number of rows current filled in in either row I or K?
Hi if possible can someone please tell me how u populate a list box with three columns i want 1st col "A12:A209" 2nd col "B12:B209" 3rd Col "D12:D209" shown in it. Ive tried everything i can think of and cant get it to work
I have the existing code below. What I would like to do is clear the ListBox of all previous records found prior to the next Find All event occurring. For Example I search for "M" and it finds 3 records and these are listed in the ListBox for the user to select from, then if the user searches for "Grealy" it finds 1 record and puts it in the list but the 2nd and 3rd record from the previous Find All event still remain.
I tried using the following code
Me.ListBox1.Clear
which clears the listbox but then as soon as you hit Find All following the above mention sequence you get the result as outlined.
Private Sub cmdFind_Click() Sheet1.Select Dim strFind, FirstAddress As String 'what to find Dim rSearch As Range 'range to search Set rSearch = Sheet1.Range("b2", Range("b65536").End(xlUp)) strFind = Me.TxtEmpName.Value 'what to look for Dim f As Integer
I'm trying to populate a dropdown Combo Box by using conditions.
In the example I attached...I would be trying to use ComboBox1.ListFillRange to populate the ComboBox only with players who have "C" in the Position column and "ANA" in the Team Code Column. Which would give me all the Catchers on the Angels.
I have accounts that I need to compare to see if they exist on my system the account that has a listed date, exist on my system then if I can fill the dates in the accounts the match then I will be able to delete the other accounts that don’t have a date see attach file for more understanding.
I am working on a project where user has to select an item from a listbox, however there is a condition that if user select an item, other items of listbox should be disabled so that he/she can not select any other item.
I am using this code to hide or unhide rows of text on another sheet:
VB: Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String Dim sValue As String
'Get the address of the cell that changed without '$' signs sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB: If Target.Value = "Not Pursuing" Then ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I have the following sheet which functions as a table to store values for files that have been created using the application which this table is in. In this app., I have a form with 2 listboxes. When the form loads, I have the first listbox list values which each of these files are listed under (i.e. - "sub-directories"). With a selection of one of the list values and clicking of a button, I want the second list box to list the values of cells listed in a range directly below where the selected value in the first listbox came from.
I'd prefer, in the first listbox, to have only the values of the ranges that have a value in them in the listbox. However, this would cause my listbox.selected(array) not function properly. But since my current offsets (in the second sub) do not seem to be working anyway, maybe I am going about this totally wrong.
dear friend in my document column "L" has some numbers & formulas.if any cell has formula base in that i need to inset rows below that formula cell & that formula need to spread on that new rows.i have 4 type of formulas.each formula has (1.5).that part is common. it 's like this...
(01.)ex- L1 cell =150*2*1.5 ,need to inset one row below this cell & after running the macro it should change like this.. L1 cell =150*1.5 L2 cell =150*1.5
(02.)ex- L1 cell =150*2*1.5+50*1.5 ,need to inset two rows below this cell & after running the macro it should change like this.. L1 cell =150*1.5 L2 cell =150*1.5 L3 cell =50*1.5
(03.)ex- L1 cell =150*2*1.5+130*3*1.5 ,need to inset four rows below this cell & after running the macro it should change like this.. L1 cell =150*1.5 L2 cell =150*1.5 L3 cell =130*1.5 L4 cell =130*1.5 L5 cell =130*1.5
(04.)ex- L1 cell =150*2*1.5+130*3*1.5+20*1.5 ,need to inset five rows below this cell & after running the macro it should change like this..
I have a chart that I want to be the same across multiple worksheets. The data ranges don't move, but the data may be different. It is cumbersome to go and retype the name of the sheet every time this chart is placed.
I have tried using named ranges. My named range X is !$A$1:$A$30 so that it will refer to the active sheet. If I place this in cells on the spreadsheet, it works. If I place "=X" in the values entry for the source data of the chart, I get a formula error.
I was fortunate to get help on the listbox code but need to direct the selection to a different workbook than the one that contains the listbox. I'm not good enough to see what I'm doing wrong. Played around with different combos of selecting the workbook but can't get it to work.
I have a multi-select listbox on a spreadsheet and a Command Button to transfer the selections to the sheet. When I make the selections and then click the button, it only transfers the first selected item, then clears the rest of the listbox selections and the code ends. The code I have is:
For i= 0 To lsBallotedPlayers.ListCount - 1 If lsBallotedPlayers.Selected(i) = True Then Sheet3.Range("F200").End(xlUp).Offset(1, 0).Value = Me.lsBallotedPlayers.List(i) End If Next
I have a listbox in my user form and it has a Rowsource of A1:A225, I need to be able to select a value in the list box and hit Command_Button4 to delete it.
Private Sub CommandButton4_Click() DeleteName End Sub
Sub DeleteName() ListBox1.Value.Select Selection.ClearContents End Sub
Also, is there anyway to ignore blank cells in the listbox?
I have Listbox on my User Form with 10 items say "A", "B","C", and so on. I wnt User to select any one item or any two or three items or even all items. Whatever user selects will be transferred in one cell only like "a","C". Is it possible to do this with listbox ?
My userform has an update button that displays a listbox in a userform. The user selects from the list, chooses to update and another userform appears to request some additional information before saving it to a different sheet. This works fine, but how do I then delete the row containing the original item on the original sheet selected from the listbox at the same time?
I've got a userform with a listbox, and want to clear the listbox's selection after the user clicks on it (and an operation is performed)
I've tried setting the listindex to -1, but it behaves strangely and calls the listbox_click function again...
Private Sub LocationsAddable_Click() AddNewLocation (LocationsAddable) 'LocationsAddable.ListIndex = -1 End Sub
with the second line commented, it only runs thru the sub once, but selection not cleared.... if i uncomment the second line, then i get thrown back into this same sub....
What I'm trying to do is print only the selected worksheets from a listbox. I have created a UserForm and a ListBox which displays all unhidden worksheets in a workbook. The ListBox MultiSelect control is set to 1-fmMultiSelectMulti. I would like to be able to click CommandButton1 and send the selected worksheets to print, but going to Print Preview first. This is what I have so far:
Private Sub UserForm_Initialize() 'Displays only visible (non-hidden) worksheets in listbox2 Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets
[Code]....
how I can modify this code to print just the selected worksheets?
In my workbook i have worksheets that are named 01-Jan-2008,15-jan-2008,30-jan-2008...and i have almost 50 for each year.from 2007 to 2009. I have created a userform where i have a Year combobox with values 2007,2008,2009 and an ok button then in the same form, i have a listbox and an Ok button and a back button.
i want the user to be able to pick the Year from the combobox. once he specifies the year, the worksheets corresponding to that year should appear in the listbox...instead of populating it with all the 100+ wksheets i want the search narrowed down.
I have been trying to create a "Search" or "Look Up" form for my database. ( Attached file - "Test - Form").
I have been given a lot of help/ideas from this forum with which I managed to get to the stage where I could select the criteria i wanted to search by using a combobox and textbox in the userform. On hitting the "Find" button it shows all the results in the listbox.
The trouble started when I tried to display the listbox selection on the labels at the bottom of the userform. As the listbox is small and cant show all the fields properly, I need to display them in labels once user selects a particular record from listbox.
I managed to find some examples of this from this forum. (file attached "Action Log"). As I am not an Excel/ VBA expert, I have missed something and am not able to make it work.
I have created a userform to keep track of "Customer Call Cycle". This is what I have:
1) I have 3 Sales Reps with 50 Customers each. 2) Each customer has multiple contact persons
I have a userform with 2 combo boxex, 1 list box, 1 textbox and 2 buttons.
I want to be able to select Sales Rep from the 1st combobox which will automatically populate the second combobox with customer names related to that sales rep.
and when I select a customer name from 2nd combobox, I want all the contact persons in the database that are related to that customer name to populate in the listbox.
I have a spreadsheet using drop-down boxes with data from a data sheet.
What i need to do is, if 'A' is selected in "A3", then in "B3" i want a drop-down box to select "A only" compatible values, whereas if 'B' is selected in "A3" then i want "B only" compatible values to be used in "B3" list box/drop-down box.
E.g. if "A3" is 'select transport' then if the value in A3 chosen is "Car" then i only want "4 [x] wheels" in drop-down "B3" cell.
if is possible to make some kind of ComboBox without filters, I mean that let you choose different items at the same time. I do not know if some of you have seen some "ComboBox" that has all the options in one side and next to this window it has a blank window that when you double click the word that was in the other wondow passes to the other window telling you that you have chossen this item.
