Suppose I have a department List, and I made a list from that column (Department List), and I enter more staff and selected a department for them during registering, now one of the Department List Item change, How is it possible to change all the entry which has that department?
For more info see the attachment.
I have two worksheets...
Sheet 1
A1: description
A2: Target Iteration
A3: Concat A1, A2.
Sheet 2.
A1: Drop down datavalidation list selected from A3, sheet 1.
On sheet 2, a user can select from the list. If a user changes the value in A2, sheet 1, I want the value that is associated and already selected in A1, sheet 2 to automatically update. There is a 1 to many relationship with the concat and the drop down. In that, sheet 2 can have multiple rows with the same value from sheet 1 A3. Is there a way when A3 sheet 1 changes, to search in A:A in sheet two and update the values for those records that match the original value in A3, sheet 1?
I have managed to set up a dynamic range called "Managers" which is held in a worksheet named "Lists" to validate entries in Col D of a worksheet named "PartTimeStaff" -
I also have 2 userforms which either add or delete managers names from the dynamic range, this all works well.
What I need to do when using the Delete form is to check that the managers name is not selected in any cell of Col D in the "PartTimeStaff" worksheet - this is to ensure the user has reassigned the records to another manager before deleting selected manager on ListBox1within this form.
The code which runs from a command button is below
Private Sub cmbDelete_Click()
Dim i As Integer
Dim SelectionsIndex() As String
Dim ArraySize As Integer
Dim RowToDelete As String
Application.ScreenUpdating = False
With Sheet2
.Visible = True
.Activate
End With
Set ManagerStartRng = Range("A3")
Application.EnableEvents = False
If MsgBox("Are you sure you want to delete this manager?" & vbCr & vbCr & _
"This action cannot be undone!", vbQuestion + vbYesNoCancel, "Confirm Delete") = vbYes Then
I am having a sheet where I keep track of when online surveys have been sent to users. The users enail address (column K) may be on the list for several times, but I need to make sure that there is at least a 7 days pause between sending the first mail and the second, depending on the visit date (column G).If there are less than 7 days between two entries with the same email address, the user is not qualified for taking another survey.
I was thinking to write an IF formula which returns either 1 or 0 and then let conditional formatting highlight and HIDE the row via a VBA loop.
I have a worksheet in which I have a worksheet_change macro. This worksheet_change macro makes sure that a few cells will keep their colors, even if the user copies and pastes a new value to that cell. This worksheet_change macro runs each time there is a change on the worksheet. Now my problem is that on the same sheet I have an update list macro which updates around 20.000 rows and two columns (which is alltogether around 40.000 values) and it takes a while to run. So.. it takes a loooooooooot of time (too much) when these two macros both run.
My question is that can I somehow disable the worksheet_change macro while the update list macro runs. I mean something like when I start the update list macro to disable worksheet_change macro and when the update list macro finishes, then reenable worksheet_change macro?
I've got 2 columns.
Column A, Item Description
Column B, Item Cost
In Column B, it will display the item cost as either a numerical value, (example $1.00) or it will say "disco" for discontinued.
I want to update the item description in Column A by adding the work "disco" if Column B display's "disco". If column B display's any numerical value (0-999999999) then I would it to do nothing.
what IF formula I need to accomplish this?
I have a userform that search for a value in column A, it displays the results in the listbox. Example: Search for value "111" and it brings me back the following results back in the listbox "111 David 35". So this means 3 columns matching data is returned.
I want the following to happen if I double click on the item in the listbox it needs to update the value selected in the worksheet eg. strikethrough the row on the sheet to show item has been selected/done.
Code for my listbox populate:
[Code].....
How can I update column B for each item selected in a Listbox populated as below:
Code:
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i)
Next i
For each item selected in Listbox1, I want Column B to show "CONFIRMED"
I have a big spreadsheet that has 30 columns. The data is downloaded from an SQL database from time to time. The row identifying data ( the record number/key ) is in the left most cell. I often have to move over 10 to 20 columns to view some other data in the same row. I can do this by selecting the preset Excel row number which higlights the whole row and then use the lower slider bar to go to the correct column to view the data.
However if I wish to select an item of data ( or update a particular cell ) then I loose the highlighting for that row and I can "loose" which row I am on. ( maybe I'm stupid but it does happen ) Can I use Conditional formatting to highlight a row whenever I alight on any data in that row and it sttays highlighted until I select another value on another row?
I have a price list from my supplier with the new prices.
I then have my Accounting software where I need to update the cost and retail prices. The problem I have is the Accounting software has allocated it`s own Unique ID for each item. So in order for me to bulk import this I need to keep this unique ID with the Actual Product ID together otherwise it will duplicate the product.
Here is a example
Sheet to be updated (Cost and Retail only) from PRICE LIST SHEET
Uneque ID
SKU
[Code].....
I have problems with updating my ComboBox (old entires remain and keep adding up)- I have built my application from posts on this site
Private Sub Worksheet_Activate()
Dim i As Integer
Sheets("DiagramAnk").ComboBox1.Clear
For i = 3 To 18
Sheets("DiagramAnk").ComboBox1.AddItem Sheets("DiagramAnk"). Cells(1, i).Text
Next
Sheets("DiagramAnk").ComboBox1.ListIndex = 0
End Sub
The code works if I remove the lines .Clear and .ListIndex=0
The list opions runs as Case in ComboBox1_Change()
I already have various dependent validation lists established using the INDIRECT function.
Now I want to figure out how I can automatically change the selected values given the selected list. For example:
Cell D11 is a validation list with options: Boat/Car
Cell D15 is a validation list where if D11 = Boat the options are Catamaran/Sailboat/Tugboat. If D11=Car the options are Convertible/Sedan/Midsize.
The problem is that if D15 is preselected as Sailboat, for example, and you go back and change D11 to equal Car, cell D15 remains an option from the Boat validation list. I would like it to automatically update as the 1st item on the car validation list.
I've been updating all the charts manually each time I update the entries in the worksheet which charts are created from in the same workbook. Is there any way (eg. by use of macros or VBA) that I can have all the charts updated automatically when data ranges are updated each time?
View 2 Replies View RelatedI can't seem to find a way to make a data validation list automatically show the first item in the list rather than showing blank.
View 10 Replies View RelatedI have a list in column L2:L352. I would like to be able to start at AD2 and drag horizontally so that AD2 = L2, AE2 = <BLANK>, AF2 = <BLANK>, AG2 = L3, AH2 = <BLANK>, AI2 = <BLANK>, AJ2 = L4, etc.... until L352 has been autofilled.
View 2 Replies View RelatedI am trying to make some of my data validation dropdown list boxes narrower. I was told one way to do that is to use combo boxes. (If there are any other ways, please let me know!)
I don't think my combo boxes are working. I had tried to make a combo box appear in each data validation pulldown cell by using this tutorial:
http://www.contextures.com/xlDataVal10.html
I followed this tutorial word for word, but when I try to test the code at the end by double-clicking on a data validation pulldown cell, no combo box appears.
I am trying to add up the same item until it changes. I have attached the file with the desired outcome in the 2nd column.
View 1 Replies View RelatedI am trying to number rows based on criteria. when the value changes add a 1. This is what I need to have happen
Apple - 1
Apple - 1
Apple - 1
Orange - 2
Orange - 2
Plum - 3
Plum - 3
I can get an if statement to number everything 1.
I have a column C with different text in cells (item's title). Column D - relevant description for each of the items. 100+ rows.
Now, unfortunately, often a spreadsheet with items is updated with many new items. So I get a new spreadsheet with old and new items mixed. I need, somehow, to import descriptions of the old items (Column D of the old spreadsheet) to the new spreadsheet from old spreadsheet. So I want excel to look for old items in column A of the new spreadsheet and, once found, insert a description in the column B from old spreadsheet.
See attachment : Example for forum.xlsx
I have one source spreadsheet, where are columns NAME, DATE. I read these data by ADO to other spreadsheet, where I can change/delete data and then run macro for update data in source spreadsheet. The problem: In source spreadsheet is column "NAME" and column "DATE", with values e.g. "Joseph"; 1.1.1980. I read this data to other spreadsheet, then I delete in it value 1.1.1980. When I run macro Update, it messages error.
Sub UpdateItem
...
.Fields.Item(1).value = activecell 'activecell value = "Joseph"
If Not isempty(activecell.offset(0,1)) Then
.Fields.Item(2).value = activecell.offset(0,1).value
Else
.Fields.Item(2).value = "" 'I tried Empty and 0 too but when I read data again then, it displays 0.1.1900, nothing works
End If
...
End Sub
It seems that in source spreadsheet has data in column "Date" format Date and when I try to update data in format String ("") in source spreadsheet by Update macro, it messages error. When I used
.Fields.Item(2).Value = Empty
' or
.Fields.Item(2).Value = 0
after rereading data it displays 0.1.1900 What I want to get is that if the cell with date (in other spreadsheet) is empty, the cell in column Date in source spreadsheet after updating will be blank (contains no values).
I have goal table on table A and i want it data fill to tabel B with constant sum. maybe like sudoku in sum right and sum down.
View 1 Replies View RelatedI am trying to change the caption of a toolbar item but for some reason it does not work.
Application.CommandBars("Format").Controls("Item...").Caption = "I&tem..."
However,
Application.CommandBars("Format").Controls("Item...").Delete
for example works just fine
I'm trying to create code where a user can input criteria into a cell then run a macro. The macro would then use that criteria to filter the pivot table. I have attached an example. The first portion, using date to filter the current page - pivot item is working. I need to creating the code to use the "supplier" to filter the pivot items on the row. As a note, both the Date and Supplier cells are named references.
View 2 Replies View Related1. I have a list of several items in sheet 1. Lets say 30-40 rows.
2. I do a frequently update of this list.
3. In sheet 2 I want to have a copy of this list in row 1 from column A to Column x (depends on how long the list in sheet 1 is.)
4. When I change the list in sheet 1, could be in first, middle or last row- mayby several rows. The list in sheet 2 should be updated
5. The update of sheet 2 should insert a new column on the right place, according to the list in sheet 1.
how I can, in a formulae, identify the last item(s) in a list of values. For example I have data in rows 1-25 with numeric data in. I want to put a formula in, say, row 100 that averages the last three data items above in the same column, but the number of data items will increase over time to use row 26, 27, etc. and I don't want to change the formula in row 100.
View 4 Replies View RelatedI have a Multi-Select Active-X Control Listbox and an associated Button. I am trying to create a dynamic Select ALL, Clear All Button. Clear All Function Works, but Select All triggers the Change Event for the Listbox.
figuring out a way to either
1. Disable the Change event until the "Select all" loop is completed or
2. Find a way to write the action for the Button directly, such that the click event is programmed as part of the Change event, and everything is done in one.
Cannot Attach file due to file size, code below:
Option Explicit
Dim i As Long
Dim j As Long
[Code].....
I have a spreadsheet with a pivot table that is based on a table within an SQL Server database. Every month a stored procedure is run creating a new table. Using the pivot table wizard I can modify the underlying query to access the new table. The pivot table functions properly with the new data.
I also have a macro that I created that will cycle through all the combinations of page field pivot item values, setting the page field currentpage, do some calculations, and save the results.
This is bombing because it seems that some old date values from the previous month's table are still in the pivot items and when my macro attempts to set the page field's currentpage to one of these values it generates Run-time error '1004' Unable to set the _Default property of the PivotItem class.
I have tried putting a pivotcache.refresh in but that doesn't seem to help.
I have an Excel file with text records, 1000s of lines long Trancriptions of Customer sales reps and Customers, or Distributors. All data is in Collum A.
Each Record has 7-10 Entries
______________________
BILLNUM : 060501
ORIG : 12345678909090
REP : 45672222222222
AREA : LK787878000000
SD : 060401
ED : 062025
COMMENT : CUSOMTER CONVERVERSATION WITH REP
C:HELLO
R:HELLO
C:MAY I HELP YOU
R:BALANCE PLEASE
etc......................
I have a list box on a form. When I click an item in the list, it hilights it with a blue background. How can then deselect the item that I had selected using code?
View 2 Replies View RelatedI use ComboBox to add items to the ListBox in userform
I am tring to loop through the ListBox to check each name in the ListBox, so ifthe name chosen by the ComboBox exists in the ListBox then donot add it,
but both codes do check the number of the item in the ListBox.
I need to check the name of the item?
With ListBox1
For i = 1 To ListBox1.Value
If i = ComboBox1.Value Then MsgBox "u cannot add this item"
Exit Sub
Next i
For i = LBound(ListBox1.List) To UBound(ListBox1.List)
If i = ComboBox1.Value Then MsgBox " u cannot add this item"
Exit Sub
Next i
.AddItem tot.Value
.List(.ListCount - 1, 1) = ComboBox1.Value
End With
