I have a listing of schools, some records selected with a "Y". When all of the desired schools have been selected, I want to run a macro that will scan through those cells and, for each one that is selected, put the school name into a string. I want that resultant string to be written to a cell.
Here's an example of the data:
I have a (MultiSelect) ListBox1 that is populated with Customer Names for the user to select from. I want the user to be able to hit the CommandButton1 adjacent to the ListBox1, and the selected Customers copy into/get added to the ListBox2.
I have the following code, adapted from other code, but it is not working:
[Code] ........
I have the following code that carries out a selection and then brings up in a print preview.
View 13 Replies View RelatedI have a listbox with several items selected. Is there a way to automatically show the selected items in the worksheet (as values in cells)?
View 8 Replies View RelatedWriting a single nested IF statement function to calculate the grades of the students the following rules:
If the student grade isHis/her letter grade is
Greater or equal to 90:A
Greater or equal to 80 and less then 90:B
Greater or equal to 70 and less then 80:C
Greater or equal to 60 and less then 70:D
Any other grade:F
I have attached a sample of what im trying to do here.
A2:A10 i have items, B2:B10 they can selected "yes" or "no" and C2:C10 the values
What I would like is, is "yes" was selected, i would like the item name added to a list. so basically:
=IF(A2:A10="YES",A2:A10)
And then I can just add the value to each item later but I need to remove duplicates and obv have this carried throughout the cells.
Attached File: TEST.xlsx‎
I've created a range B3:B12 in which each cell returns TRUE of FALSE. There corresponding values are listed in C3:C12. I have the same thing again in D3:D12 and E3:E12. Checkboxes link to the TRUE/FALSE cells. Attached is a stripped down file to show this.
I want to create a formula that lists each item in the one cell (no spaces required inbetween) for use with a search. I know a long winded way to do this involving many IFs but any array will be much more tidier, thing is I hardly use arrays and have struggled with this one.
I'm thinking it will be along the lines of =IF(B3:B12="TRUE",C3:C12,"")&IF(D3:D12="TRUE",E3:E12,"") but exactly what it should be is beyond me.
EDIT: The original file attached was corrupt for some reason, the new attachedment is the same except instead of TRUE/FALSE cells I've set them to 'x' for quickness (lost my work...!).
I am trying to take selected items from a listbox and put the selected items into an array. Basically I am trying to put the selected items into a variable that I can pass to other modules. I am close but something is off. I can't tell if it's the variable declaration or the code.
I get Run Time error 91. Object variable or with block variable not set
Here's what I have so far...
[Code] ......
I have a treeview box w/ multi-select enable. My question is how do I display in a message box of all the item I've selected.
View 1 Replies View RelatedReturning items selected from a ListBox. I have a Multiselect Listbox with 15 items. Additionally, I have a worksheet with 15 columns (each one corresponding to the 15 ListBox items). I'm looking for code that will do the following:
After a user selects values from the ListBox (can be more than 1, thus the Multiselect), I would like for "TRUE" to appear in row 2 of the worksheet for each column. (IE: Column A is for Bikes, if a user selects "Bikes" from the ListBox and hits a CommandButton, I would like for A2 to say "TRUE".
I have listbox of information set up to have a user choose several items. I want the items to then transfer to another worksheet. I am using the code I found here:
Private Sub CommandButton2_Click()
Dim lItem As Long
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Sheet2. Range("A65536").End(xlUp)(2, 1) = ListBox1.List(lItem)
ListBox1.Selected(lItem) = False
End If
Next
End Sub
But it is only moving The first item in a column, instead of all the columns of information. What do i do to get it to move all the information??
When i tranfer my listbox content to sheet the selected item remain selected in listbox
Dim i As Long, j As Long
For i = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(i) Then
j = j + 1
Worksheets("Workings"). Range("AA" & i + 2).Resize(1, 1).Copy Worksheets("Print").Range("B" & Rows.Count).End(xlUp).Offset(1)
ListBox1.Selected(i) = False
End If
Next i
The following code populates a forms' second listbox (Elements_lbx) with True. No amount of diddling (by me) can get the selected items from form's first listbox (Content_lbx) moved over to the second. (NB. the list box isn't the standard VBA listbox but an open source: ListEX from Marco Bellinaso.)
Private Sub CommandButton2_Click()
Dim lbx_Sel As Long
' loops through ListBox to test if it is selected
For lbx_Sel = 0 To Content_lbx.ListCount - 1
If Content_lbx.Selected(lbx_Sel) = True Then
Me.Elements_lbx.AddItem Me.Content_lbx.Selected(lbx_Sel)
'
'Clear the selected item
Content_lbx.Selected(lbx_Sel) = False
End If
Next
End Sub
ok lets say you have thousands of rows of raw data and you are running vlookups to pull specific data from the raw data to update your spreadsheet. Your raw data consist of some new ideas so when you vlook up, you get an error. In my case i get about 50 errors all spaced out amoung the thousands of rows or raw data. I would like to create a formula that would go and find the error and output a code/value that already exist in the raw data and output that in Cell D1 for example. The it will go and find the second error and output that into cell D2 and then the third error and output that into D3 and so on.....
The idea is that when its done a list of all the errors will have been created so then i can use other formulas to simple add the new info to the workbook. Instead of search through thousands of rows for the errow.
I am trying to create a document that runs a scenario based on the two drop down choices selected that determines which worksheet in the workbook autopopulates over to sheet one based on the selection. I tried doing an if statement but did not have any luck.
View 1 Replies View RelatedI have a global list in B column and I want to create a text about the list. If I put "1" in A column, I want my text to be on B11 for the selected items. So excel should do a loop for the selected range and combine the selected items in a new line and give me as an output.
You may see the picture Untitled 1.jpg
i have a multi select listbox that i want to be able to remove the selected items in one hit.
i have not been able to convert code for removing single selected items and could not find a working example.
this is probley the closest though cos its removing items it plays havoc with the listcount
I have two pivot tables, both of which source the same sheet of data. Each record in the data has two fields, Region ID of person and Region ID of facility, that reference the same list of Region IDs via vlookup (it's just numbers 1-12). Either one or both can be blank. One pivot outputs counts by person Region ID, and the other, by facility Region ID.
Using a combination of nested IF statements and vlookups, I tried making a third Region ID field that could be used as a slicer to control both tables, but what I end up with is an undercount in one of the tables. The only thing that works so far to output the correct counts is having two separate slicers, the facility Region ID being the slicer for one and the person Region ID being the slicer for the other. If the end user wants to see counts for one Region ID, they have to manually set one slicer equal to the other. But what we want is just for the end user to be able to control both tables just by pushing a single number, Region IDs 1-12.
I can make one of the slicers hidden but then how do I get the hidden slicer to automatically select Region ID values equal to the nonhidden slicer? Alternatively, I could somehow program a combo box or list to control the two different slicers, then the slicers would be hidden and the user would see only the combo box/list. (I guess in either of these alternatives, I could just use a report filter instead of a slicer; either way, I still have to get items in one to automatically select based on the user's selected items in another).
FYI, some of the options I looked up involved PowerPivot, which I do not have access to. VBAs/macros are ok.
I have a userform in excel....the listbox "listbox1" has over 1000 items....and i have a label "label5" also.
What i want is if I select for example 10 items from the listbox1 to be shown in the label5 directly....and of course if i select or deselect any item will be applied in the label
For example...selected items from listbox are;
5
6
7
8
9
the label will show me the same
5
6
7
8
9
Code while noting that the list box has many columns...so i want to select which column to be appeared in label.
I have a pivot table which I want to force the all of the pivot table items to be selected for a particular pivot table field. One would think that this would be as easy as unlocking all cells on the sheet with the exception of this pivot field and then locking the worksheet. This doesn't work though as I am generating multiple pivot tables on the same workbook for the same range and I get this message: "this command cannot be performed while a protected sheet contains another PivotTable report based on the same data source...".
My thinking is that I can do something along the lines of this:
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim oPI As PivotItem
Application.ScreenUpdating = False
If Target.PivotFields("Item Sold").PivotItems.Count Target.PivotFields("Item Sold").VisibleItems.Count Then
[Code]..
This is failing right away though on the If Target.Pivot.... line.
I would like to insert the count of items selected in a listbox in a Userform into a cell. I have been scowering the internet and all of the solutions seem pretty clunky (or don't work).
An alternate way that I could do this is if I have the values selected be entered into a column and then I can use the =count() formula, but I can't figure out how to do that either...
I have a workbook with a series of worksheets with stock lists and pricing that I would like a user to be able to select items on (say, with a checkbox) that would then automatically populate a separate master Order Form sheet. The Order Form sheet is currently blank, with headers, and I would like only those items selected on the various stock sheets to be displayed on the Order Form.
View 4 Replies View Relatedchanging two variables a various amount of times and running the same procedure and copying the resutls into another sheet. Seems like a perfect place for a macro. However, these variables can be chosen from a list that the user wants. So why not build in a listbox for each one. Now I have two listboxes one for variable A and one for variable B.
The procedure in theory goes something like this we change variable A from the base case and then run the procedure for variable B, get the results, then run the scenario again but changing only variable B abnd repeat. Then once, all of the variable B scenarios are done, I want to change the variable A and then repeat and so forth.
That is the background and my main problem at this point, is that have these values in two listboxes, I know how to do the for each loops and such, however, I do not know how to do them for values in the listbox.
How do I identify the values selected in the respective listboxes and then pull them so I only use them for the for each loop?
Is it possible to get the current Page Item Selected for a pivot table
I've tried the following functions in VBA, but have had no success
CurrentPageName
CurrentPage
CurrentPageItem
ParentItems
I have columns (1-7) containing values of time these columns are labelled G,R,A,S,D,B,T by 850 rows (which are locations/jobs)
The next set of columns (1-7 determins what week the work takes place) so you will get a G in a cell or GR etc.
I would like a formula to work out the sum of the time columns by the code in the corresponding cell - I am stuck!
Seantc example.xlsx
I wrote this function to see if a user selected string contained certain phrases. It keeps returning united states so i am guessing its not cycling through the entire list.
Function region2(searchString As String)
Dim result As String
result = "None"
Dim lng() As String
lng = Array("arabic", "belg", "bul", "czech", "dan", "dut", "dutch", "euro", "finnish", "french", "ger", "greek", "greenland", "hebrew", "hung", "iceland", "international", "ital", "nor", "pol", "portu", "russ", "slov", "spanish", "swe", "swi", "turk", "UK", "united kingdom", "states")
Dim Country() As String..........
I am trying to take some action based on the string values in selected cells. Here is my code to iterate through selected cells and count the occurances of certain string values:
Private Sub TakeAction()
Dim cel As Range
Dim sel As Range
Dim complete As Integer 'a counter for completed
Dim pending As Integer ' a counter for pending
Dim cancelled As Integer ' a counter for cancelled
Set sel = selection
For Each cel In sel
If cel.Text = "Some text" Then
complete = Complete +1
If cel. Text = "Some other text" Then
pending = pending +1
If cel.Test = "Yet some other text"
cancelled = cancelled +1
End If
End If
End If
Next cel
MsgBox complete
MsgBox pending
MsgBox cancelled
End Sub
I have a listbox with 8 columns. Multiselect is enabled, and it must stay this way. As part of my program, after the user presses a command button, I need to use the row indexes of the selected rows in order to copy the selected information into an array which is then placed in a different listbox, and then delete the items from the original list. Pseudocode of what I want to do:
[Code] .....
But my understanding is that .ListIndex does not work this way with multiselect listboxes. I've tried searching for a solution for a while, but I cannot find one.
Looking for VBA that can change the font size of "•" char(0149) within any string in selected cells.
Also looking to delete the last "•" char(0149) within any string of selected cells.
What would the syntax for these two functions be?
I have a spreadsheet that lists a set of actions and the days they need to be completed.
The due dates are listed in column c and in column h I have a the user choosing "completed" from a drop down data validation.
I have a dashboard on a separate worksheet, showing if the item is complete and the due date.
Ideally I would like to display the dates on the dashboard in red if they are past due, and the box in column h was not marked complete.
I have been going through my books and trying to solve this, but I run into a different issues.
Even if for now If I can get the main worksheet to display the color conditional formatting that would work