There are two columns of data. Column A is "Group name" and is initially empty. Column B is a list of words
Here is what I am trying to do:
1) prompt the user for 3 input values
2) input value 1 and 2 are COMMON words that i wish to filter through in column B with "filter contains" value 1 or value 2
3) after the filter, i wish to select ALL VISIBLE cells in column A and append the Group Name to each cell
I have a workbook that contains part numbers and their components listed like below. There is always one empty row between the part number and the components, and then 3 empty rows between the last component and the next part number.
The number of components varies from sometimes only 1 up to 25. Currently, I select a part number and its components like B1:C5 and then I have a macro that copies it to another workbook. What I would like to do is somehow get the macro to automatically select the next set down, in this case, B9:C14, so I could copy every set over to its proper place with only one click of the button.
new data goes into the report, the pivot table looks at a dynamic range and confirmed that the range doesn't select any empty cells.
Just wrote a macro to fill missing cells with a data on workbook open.
all the data is date form, yet still when i refresh the pivot table i look my montly grouping, when i try to group again it says "unable to group"
I am trying to select a group of cells in an inactive worksheet from code in a module but I keep getting a run-time error 9 message and I cant seem to find the syntax problem.
I pasted my code below and the error occurs in the last line before the end sub statement.
[Code].....
how to get a selective cell range after i apply a filter,
I have it currently that it will copy the data shown but i don't want it to copy if there is no data present?.
ub Ding*****urn()
' Ding*****urn Macro
Sheets("Master").Select
Range("D1:E1").Select
Selection.AutoFilter
ActiveSheet.Range("$D$1:$E$800").AutoFilter Field:=1, Criteria1:= _
"DINGLES BOURNEMOUTH"
ActiveSheet.Range("$D$1:$E$800").AutoFilter Field:=2, Criteria1:="MENSWEAR"
Range("A2").Select
[code]....
when i comes to the selection i only want it to copy cells that represent a value within that filter not cells that are blank?
Arised from my earlier posting in Populate ComboBox With Specific Sheet Column Range. I have the following working code below, but am having trouble finding coding examples to select specific cells from the selected row (that was found by selecting a ComboBox value)and update TextBoxes with those individual values after the UserForm has been initialized (the bold "GREEN" comment in the code below). I have been able to find plenty of references to update TextBox values to Cells, but that doesn't do me much good in this application since the User needs to verify the old data in these cells before updating them using the UserForm TextBoxes.
I was toying around with several different variations of code (none of which worked properly), so I left it out for clarity of my working code. I'll post up this non-working code as needed, because I really wanted a fresh answer...not what I was trying to do. The attached file should be sufficient to see what's going on
Private Sub UserForm_Initialize()
With Sheets("SR Information")
.Range("A2", .Cells(Rows.Count, "A").End(xlUp)).Name = "MyRange"
End With
SRnumber.RowSource = "MyRange"
End Sub
Private Sub SRnumber_Change()
Dim ServiceRequestNumber As String
Dim c As Range
Dim rngG As Range
Sheets("SR Information").Select
With Selection
ServiceRequestNumber = SRnumber.Value
For Each c In Intersect(ActiveSheet.UsedRange, Columns("a"))
If c = ServiceRequestNumber Then..................
I am kind of new to Excel programming and would like to know if there is a solution to my problem. What I need is to have a dropdown list (I know how to make this) then select an item from the drop down, then based on the name i select, Excel automatically fill up the rest of the cells.
For example, from the drop down list I select the company name then Excel automatically type the address, phone number, Fax number and the contact name of the company for me in corresponding cells. Is there a way to do this?
Conditional formatting. I want to change the color of a group of cells based on data in another group of cells. Example:
If cells G8 and G9 (which are merged) are between 80% and 94%, then I9,I10,I11 (which are merged) will turn Yellow. Also, under the same scenario, IF G8 and G9 is greater than 94%, then cells I9, I10, I11 will turn Red.
I have a spreadsheet which is used by users unfamiliar with Excel. They are using the filter to select records, however when this is used some records appear which have no entry in the cells of that column. Can I overcome this? There is no data in the blank cells, other than a data validation drop down.
View 1 Replies View RelatedI am trying to write VBA code that groups cells between blank rows and inserts a message if a string of text (a name) is missing from the entire group. I want the code to search cells in column A and group the cells between blank cells. Use the name I input in an input box as the search criteria and insert a message in the Column C next to the last blank cell in the group and then move on to the next group and highlight the cell in red with bold text. I am including a spreadsheet with an example of what the sheet should look like before and after the code is run.
View 11 Replies View RelatedI have items in a column like below:
50
50
50
50
What I would like to be able to do is highlight the four 50's and fill down, but I would like for it to increment and paste the next four filled like this:
51
51
51
51
Then below that the next four filled like this:
52
52
52
52
If its a macro that'll be required I'd like to to be able to change the number of rows to be repeated (4 in this case, but could change).
I HAVE THIS CODE THAT SELECTS ALL THE ROWS THAT CONTAINS CORTAR IN "I" COLUMN
Sheet1 BCDEFGHIJKLMNOPQR31234567891011121314151617400123023458005566006755056785 6 7Output required 8num1num2num3num4num5num6num7+ 912323458556667189 Spreadsheet FormulasCellFormulaC3=B3+1D3=C3+1E3=D3+1F3=E3+1G3=F3+1H3=G3+1I3=H3+1J3=I3+1K3=J3+1L3=K3+1M3=L3+1N3=M3+1O3=N3+1P3=O3+1Q3=P3+1R3=Q3+1B9=D4C9=F4D9=G4E9=J4F9=K4G9=N4H9=SUM(O4:R4) Excel tables to the web >> Excel Jeanie HTML 4
In the B4:R4, there are a set of numbers, zero or non-zero in value (intentionally put in all formulae to show how its set up manually atm).
I want to using formulas on this range to be able to select the first 6 non-zero payments individually (B9:G9) and then group (sum) the rest of the payments in the "num7+" (H9) category.
how to enter data in non-adjacent cells using a fill command.
Here is what I am trying to do:
in the column, I am holding ctrl button to select every 10th cell down the sheet. I need to enter a date in every selected cell that is exactly 7 days apart, i.e., 11/7/08 then 11/14/08 then 11/21/08, etc.... but no other dates or data.
I have tried to figure out a way to do this other than manually, but am confounded.
I want to select the cell under the last cell of a particular worksheet and use the filldown function. This is the code i am tryin to use but won't work
Worksheets("CD").Range("A1").End(xlDown).Row + 1.Select
Selection.FillDown
How can I FILTER a range and display the unique items, one below the other, WITHOUT blank cells - with only a FORMULA. What I came up with is shown in the attached WB. I would like to present the countries like in C11:C15.
View 5 Replies View RelatedI have sheet "MySheet" with data in range A1:B200, when i change or select value in combobox, my textbox will fill. But i need return respective rows in column A inside textbox.
VB:
Private Sub ComboBox_Change() On Error Resume Next
TextBoxCod.Value = WorksheetFunction.Index(Range(MyRange"), ComboBox.Value, 1)
End Sub
How to automatically filter can filter and blue-colored cells.
View 4 Replies View RelatedI have a workbook with multiple sheets , final sheet has a data of all sheets , in the first sheet i want to select what results to be shown in that final sheet ,, specially the week and the LDM
View 12 Replies View RelatedI currently have a column of data by month for the years 2013 to 2025. I want to show only dec, jan and feb of each year. I am currently using the filter function but I can only select one month at a time.
View 2 Replies View Relatedi just want to select first four column cells(A,B,C,D) in first row after filte the data.
View 1 Replies View RelatedI have a workbook and have created a filter across range A1 - BU1. I want to filter column BQ. In this column I want to use the filter to show all values except for 0.
View 2 Replies View RelatedThe data is has the following structure:
ID no | Name | Group | Organisation | ...A load of data metrics...
Currently I'm using a standard combobox to select which row of data to analyse - this is based on the concatenation of the persons name, their group and their organisation. What I would like to do is to:
1. Be able to select more than one person
2. Be able to select all/some people from the same Group and Organisation and get their data - e.g. filter the data so that only data for one group is shown and then be able to select one or more names from that group to analyse the data for
how to select, for example, 10 consecutive options that follow each other within the filter drop down box? (instead of individually clicking/checking each option) for example, clicking a cell A1, pressing and holding shift, and clicking cell A10, which highlights cells 1 - 10...
Is something like this possible within a filter drop down box?
I m trying to use an Autofilter to filter my cells with a Number Filter of is greater of equal to 4 and is less than or equal to 5.
But as you can see I would like to customise is using a range of 2 values which i have specified in Cell P1 and Q1.
I manage to figure out how to reference to this cell, but Im not sure how can i put my ">=" and "<=" operators into my code so i can get it to work exactly how i want as shown in Code 1.
Code 1
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$118").AutoFilter Field:=6, Criteria1:=">=4", _
Operator:=xlAnd, Criteria2:="<=5"
Code 2
Selection.AutoFilter
ActiveSheet.Range("$A$1:$K$118").AutoFilter Field:=6, Criteria1:=Range("P1").Value, _Operator:=xlAnd, Criteria2:=Range("Q1").Value
I'm currently using the following:
[Code] .........
However, i'd like it select the field ie 2-17 based on a year in a cell on another sheet "x" in cell E3.
At the moment i have a row of numbers 1-17 above the corresponding field cell so for example the number 15 is attached to the year 2013 (although this is dynamic).
I just cant work out how to get the autofilter to select the number that matches the cell in "x" E3 with the same value in T2:AJ2 on filter sheet and then filter the column that matches.
As I have not tried to do this yet this is a hypothetical scenario. Imagine that a column, when filtered, gives cell values such as 3,6,9,12,18,24,36 ..and so on. Is there a way to select, say 12, and then see all the other values that are divisible into 12. e.g. all rows that have 3,6,12. Another example- select 36 and see 3,6,9,12,18 and 36?
On the attached example sheet, column 'O' will be filtered.
I am looking for a way in VB to select and unselect items in the list for filters generated in a pivot table.item list. Ho do I do that?
View 5 Replies View RelatedI have a worksheet that when a row changes based on the value of column B, I want to remove all of the formulas found in the row but keep the existing values, and then change the color of the row.
In the sample file attached, when the value is "Closed", that row will keep the existing values and then it gets grayed out. Rows that are still marked "Open" need to retain the formulas in case other information changes.
I have tried copy/paste special using autofiltering but that doesn't work because of the hidden lines. This file changes on a daily basis and I need a quick way to update the file.
SampleFile.xlsx
i'm having a problem with a script I have (script is below). What i'm doing is running a script that displays files in a certain folder, those files are then displayed on sheet1 column O and are linked so when they are clicked upon, the file will open. I also have a combo box with a input range of $O$O. That puts the values in column O in the combo box. Now here is a problem and request.
Problem first, when I select the file names from the combo box, they don't open the file, all it does is display the file name in combo box and that's it. how to I get it to open up the file? Now for a request, I have another sheet that is almost exactly as the one i described above. The only thing different I want is when someone clicks on a file name from the combo box, instead of it automatically linking to the file, I want them to click on a button to display the file.
Sub HyperlinkXLSFiles()
ActiveSheet.Unprotect
Dim lCount As Long
Application. ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "c:Sec"
.FileType = msoFileTypeExcelWorkbooks
' .Filename = " Book*.xls"..................