I have a database that holds thousands of names and the columns are of trinings that they have completed. I can filter by the criteria of name and of ID. ID number is unique so what I want is to know if Column F has a date in it once filtered. It maybe line 789 but that is all it shows because the filter is on.
View 2 Replies
Need macro that changes the text in a particular field. Previously, the column to change was column 46 (AT), but now the column is column 1 (A). If I adjust the last line and run the macro, I get this error message: "Compile error: Invalid or unqualified reference".
. AutoFilter Field:=1, Criteria1:="To be capped" 'TYPE
. AutoFilter Field:=29, Criteria1:="OPEN" 'STATUS
.columns(1).Offset(1,0).Resize(rng.Rows.Count - 1,1).SpecialCells(xlCellTypeVisible).Value = "Capitalised"
I am trying to resize a picture on a worksheet to fit a dynamic measurement(the size of the page is different depending on the contents in cells).
I am doing this all in VBA.
so what I have come up with is that I need to
1) determine the total column width of only the non-hidden(visible) cells.
2) resize my picture to those measurements, so I can get an exact fit, and it doesn't create a new page break, by going over.
I have found some code on forums, and am thinking of something like this as a solution(although I don't know how to complete it):
For summing column widths:
I wanna copy and paste the data -- visible cells after I filtered data. How can I do that.
View 2 Replies View RelatedWHEN I FILTER FOR WORDS BEGGINING WITH LETTER I. THERE IS NO DATA...SO I HAVE SOME CODE THAT WILL POP UP MSG BOX. AND IF THERE IS THEN COPY DESIGANTED RANGE..HOWEVEER WHEN I FILTER USING THE BELOW CODE...IT DOES NOT RECOGNIZE THAT THERE IS NOTHING AND JUST GOES THROUGH AS NORMAL..
Sub START()
Dim rng As Range
Dim rng2 As Range
Dim worksheet1 As Worksheet
Set worksheet1 = worksheets("MAIN")
Selection.AutoFilter Field:=4, Criteria1:="=I*", Operator:=xlAnd
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(0, 18).Resize(.Rows.Count - 1, 1)
.SpecialCells (xlCellTypeVisible)
On Error Goto 0
End With
If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
worksheets("noms").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
destination:=worksheets("NOMS").Range("A1")
End Sub
I have on sheet 1 a table 12 columns, variable rows. I filter this table on two different columns, so that only x rows are visible.
My aim is to move these visible rows to another sheet 2, starting from cell J23., work with these data in other cells of sheet 2, and send them back to sheet 1, adding the date in column 12.
Do I need, sheet viewcode or module ?
Afterwords I would like to link this VBA code to a form button.
I have a 5000 line table I am filtering by a few columns, and I'd like to calculate an exponential trendline value.
=INDEX(LINEST(LN(R1059:R1167),W1059:W1167),1)
But I actually don't want all the values from R1059 to R1167 - I want to select only the displayed values (R1059, R1068, R1077, etc). Is there a way to select only display values to use in a formula? The problem is it would be a lot of manual work to select them all - there are 50 or so instances I would have to select 13 manual values.
I am using Excel 2007 on XP.
I have 5 pivot tables on 5sheets, all looking at the same source data in sheet 6
On the source data there is a filter on the headers, if you change the filter, is it possible for all 5 pivot tables to update according to the filter?
My starting point is the below, but there probably is a better way but i would want the sourcedata to equal visible rows on the source data sheet headers run A:K and up to row 10000 .
I have Sheet1 and Sheet2. On Sheet2 I have some filtered items.
Now, is it possible to link the filtered items to Sheet1, e.g. =IF(Sheet2!B1=IsVisible;Sheet2!B1;"")
I do not want to make a copy/paste/vba turnaround.
[Code] ....
I have a page ("Property Register" with some 22 rows of data. I apply the filter as per the code and I can now visually see a header and two data rows which is what I need to have.
the row number of the last visible entry (actually showing as the third on the filtered page) is row 7, again correct as row 7 of my original page has the last value I am trying to find.
However, both of the two "last_row" lines return me a value of 7 whereas I really need it to be three.
Seems to me that I must have the wrong approach (s) to finding the last row so that I can only process the visible rows (I don't need the actual row at all because my processing depends on a cell value in the row).
I'm using a named range called "VFILTER". This range is my filter range. Once the filter does it's thing, I want to set the first visible cell in column a to a variable...I can't get this right for the life of me!
With Range("VFILTER")
.AutoFilter
.AutoFilter field:=25, Criteria1:="DELETE"
.Offset(1, 0).Resize(. CurrentRegion.Rows.Count - 4, 1).SpecialCells(xlCellTypeVisible). _
EntireRow.ClearContents
.AutoFilter
JPhelper.ClearContents
JPhelper = "=IF(ISNA(MATCH(B5,J46DATA,0)),FALSE,TRUE)"
.AutoFilter
.AutoFilter field:=25, Criteria1:="TRUE"
.Offset(1, 0).Resize(.CurrentRegion.Rows.Count - 4, 9).SpecialCells(xlCellTypeVisible).ClearContents
'set the first visible cell in column a to variable
Set OutRange = .Offset(1).Resize(.CurrentRegion.Rows.Count - 4, 1).SpecialCells(xlCellTypeVisible)
End With
I need to subtotal/sum a series of columns individually (one column per month across a date range) by the odd numbered visible/ filtered rows as well as (separately) by the even numbered visible/filtered rows. Preferably the totals would recalculate like a SUBTOTAL whenever the filter is altered.
I've explored using Mod and SpecialCells(xlCellTypeVisible) but I can't get a syntactically correct combination to bring back the desired results.
how to delete only visible rows in a filtered list?
View 9 Replies View RelatedFrom a combobox selection i filter a table for all entries containing the selected ID (from the combobox).
I first wanted to use selected columns from the resultant display (the filtered table) to populate another combobox so the user could drill down to the final selection that way, but seeing the mess i was getting involved in (I couldn't assign a range to the listfillrange of the other combobox) i think it might be best to settle for simply copying the visible cells to a new table on the selection page (the full database is on one sheet separate from the selection comboboxes and related controls), where the user can simply see the information needed on whatever line item they want - the number of filtered entries rarely exceeds five. What i can't understand is when i query the number of rows in the immediate window from the code snip below, it always comes back as "1", whether i do so on the full range or special visible cells.
[Code] .......
To load another combobox i tired
[Code] ...........
I really would like to be able to do so for further refining, if not feasible, can work with just a display table.
Querying the reultant rows i simply tried:
[Code] ...........
and
[Code] ....
In both cases, though the filtered table had 5 records displayed, the count was... 1.
1) Can the visible cells resultant table be fed into a combobox relatively easily and if so, how?
2) With the count of rows, what am i doing wrong?
I have a data of a large no. of rows with 5 columns. The last 2 columns are district and state. As it is an imported data, in some rows the data has shifted a column, i.e. the name of state is being shown in district column and name of district is being shown in the column to its left. I tried filtering the data such that it shows only those rows where names of the states are coming under district columns and then selecting the whole thing, cutting it and pasting it to the rightmost column. But even the correct district entries got pasted under state column. Undo, the further damage was controlled, but the original problem remains. Now i will have to cut and paste each row or only consecutive rows.
View 2 Replies View Relatedwhat i need to do is store the number of rows visible on the data sheet (after a data filter is applied) into a variable so i can do a calculation with said data. Is there such a command?
for example....
data:
row header a | row header b
line 1
line 2
line 3
after auto filter:
row header a | row header b
line 2
code stores number of rows visible into a variable....
vVariable = rows visible... in this case 2 (NOT 4... which is the total rows including hidden)
I have data in one column that is the result of a formula, ie: =B2*B3. The result may display a decimal answer that goes out 4 places. My boss likes us to clean this up by using the = ROUND(B4,2). That is fine and easy enough, but the problem is that these numbers maybe spaced throughout a large sheet. I have to filter to make sure similar items are calculated the same way. The problem is that when I copy and paste, it copies and pastes all the data hidden between the displayed cells of the filtered sheet. How do I make it so I am only copying and pasting the data displayed and not the cells that are filtered out in between?
View 9 Replies View RelatedI have a range that has been formatted as a table. Once I've applied a filter, if I try to select all of the rows, and delete the visible rows the option is greyed out.
Is there no way, short of vba, that I can just simply delete the visible rows?
In the sample worksheet, I need VB code to copy the formulas in column D, to paste them as values in the same cells (without removing autofilter by clicking on menu Data>Filter>Autofilter, then edit>copy>paste special>values).
sample2.xls
I have a data table with all my data in it. I want to be able to filter the data, and have a column automatically calculate a running (or aggregate) sum of the filtered (visible) information in a particular column of the table.
If you glance at the attached sample spreadsheet (in 2nd post!), you will quickly see what I mean. I am searching for a formula for column L that will caculate a running sum for column K. In column T, you can see the results that I'm looking to reproduce in column L. Each cell in column T simply adds the K column value for that row to the previous value in column T (the cell above). However -- to my knowledge, and as in this case -- the formula for column T can only be copied down the column AFTER the table has been filtered.
I'm working through a filter macro to delete unecessary rows of data from my dataset.
- I have a Dynamic Range for my dataset called "CanadaData"
- I'm trying to delete rows from the 5th column of my dataset for cells containing "DIRECTSHIP"
The macro filters the range fine, but when if comes to deleting the row, the macro stops.
Sub CanadaWarehouseFilter()
x = Range("E" & Rows.Count).End(xlUp).Row
If Application.WorksheetFunction.CountIf(Range("E22:E" & x), "DIRECTSHIP") > 0 Then
With Range("CanadaData")
[Code] ......
in the sample worksheet, I need help with a VB code to copy the formulas in column D, to paste them as values in the same cells (without removing autofilter by clicking on menu Data>Filter>Autofilter, then edit>copy>paste special>values).
View 3 Replies View RelatedI would like to determine if the VisibleDrowndown is TRUE in the attached table.
The current macro sets it to FALSE in field 1. However, I want to identify when it is TRUE so I can run this macro.
Attached File : V1.xlsm
I have some simple code that filters my source data, what i would like is a way that the user could confirm that the data is correct by clicking a button for each line of data based on the ref number which would then input todays date in coloumn N.... is this possible?
View 1 Replies View RelatedI have a spreadsheet with 5000 records and i would like to have a macro that can be able to filter by date and copy it to a new workbook.
i have a data validation that indicates dates and once i have selected a date for example "10/10/2013" and all data with that date will copy and paste as value to a new workbook .
I have been advised to use this code to search for my spreadsheet for dates
Sub FilterTo1Criteria()
With Sheet1
.AutoFilterMode = False
. Range("a1:d1"). AutoFilter
.Range("a1:d1").AutoFilter Field:=2, Criteria1:={date entered here]
End With
End Sub
It works but i have two problems
1:Instead of typing the date I want to be able to type a date into a textbox in a userform, is this possible?
2: How would I then go about inputting this data into a list box in a userform?
I was wondering if it is possible to hide a column(s) but still have data in that column be visible at the bottom of the spreadsheet. For example, if I hide column G can it only hide the column from rows 1 - 50 and then the column will appear after row 50?
View 3 Replies View RelatedI want to sum filtered data from one column V and paste value into TextBox1 Goal for this code is that sum will be displayed into textbox automatically. Also i select data as last row Column "I"
Private Sub TextBox1_Enter()
Dim LR As Long LR = Range("I" & Rows.Count).End(xlUp).RowTextBox1.Value = Sum(Range("V2:V" & LR).SpecialCells(xlCellTypeVisible)).ValueEnd Sub
I have a situation where i have headers in a file but just because there is a header does not mean there is any corresponding data in that col.
I was keying off if just the header was present then i need to do "something" but now i need to key off two things:
1) Header present
2) If there is anydata in the col when a header is present.
Question: How to use vba to determine (quickly) if there is any data in a given column.
I have a table of data with column headings. I'd like to be able to filter the table based on the column headings, however I have a 'spare row' between the column headings and the data which I use to add new entries to the table using a macro (the macro copies the row and pastes it in one of the empty rows at the bottom of the table, then sorts the data which places it with the rest of the data).
The problem is, Excel won't let me apply a filter to the table if the column headings are separated from the data that I would like filtered.
