Formula To Count Only Visible Cells When Using Filter?
May 15, 2013
I have a spreadsheet that includes a column with location names and a column with location numbers. What I need to do is count the visible unique numbers and names (seperately) in a certain column when using a filter. I have found the formula to count the unique values and a formula to count the visible cells, but not a formula that does both.
I have a column of cells (say N7:N149) for which I would like to count the number of times text is visible, as some are blank. Normally I would go =COUNTA(N7:N149), but in this instance the cells are only blank because I have related them to adjacent cells and nominated "" if those adjacent cells are blank, therefore when I use my =COUNTA(N7:N149) formula it gives me a total of 143 (149-7).
I currently have the formula =Countif(E5:E158,"YES"). This formula works great if when I dont filter, however, I need to filter through the data and I only want it to count the cells that have "Yes" when it is filtered, not just all the cells. I searched to forums and people keep referencing Subtotal() however that is counting all the cells and not pulling out the "Yes" inputs only.
I have tried and tried to get the VBA code working that will tell me the number of visible rows in an autofiltered set of data, but the result I seem to be getting is always "1". Below is the most simple form of the code that I am using (it is based on previous posts and tutorials on this site). (I have also attached a workbook with sample data and the code)
With ActiveSheet Set rnData = .UsedRange With rnData . AutoFilter Field:=1, Criteria1:="5" .Select 'demonstrate that the rnData range is valid lcount = .SpecialCells(xlCellTypeVisible).Rows.Count End With End With
I am using code to filter my 4 sheets Greater then 0 (zero)
After apply above filter now i need to copy multiple rows and paste on another specific workbook for paste i m using below code:
for 1st sheet with the name ("V2")
for 2nd sheet with the name("LV")
For 3rd sheet with the name ("F2")
and 4th sheet with the name("L2")
If I play above code one by one all is going very well,,,,,,or if use in this way all is going very well
But here is a big problem..........if any sheet have no value greater then 0(zero)....then code paste all data... e.g shssts("LV") .Range("C5:C54").Copy but C5:C54 have no data greater then 0(zero) and it will paste on another sheet c5:c54 and again new sheets data will paste below the c54 while c5:c54 have no data.
So I want if any sheet have no data with range is greater then 0(Zero) then skip the copy paste code or use like SpecialCells(xlCellTypeVisible) .
I have values in cell B2:B50 with values such as Quality, Eng, Purchasing etc. When i go in Auto filter based on Coulmn A2:A50 (with July only) and count "Quality" manually under B2:B50, the answer is 26. But if I write formula Countif(B2:B50, "Quality") I get answer 41.
Is there a way to use Countif function, if I am in the Autofilter mode so as it counts only that rows which are visible under Autofilter and not ALL rows.
I have productivity data sheet of employees for a month and want to update in a tracker sheet.Every productivity sheet has 5 columns containing numbers.Since its monthly it would be contain 30-31 rows and.I want to copy this data then go to tracker apply filter with respective employee name and paste it there.Is there a way to do this using vba code?
I have prepared vba code to copy paste individual rows from productivity sheet to tracker.But preparing row by row code makes it way too big.Hence i am looking for another solution.
I am trying to count all devices by model on sheet1 (FY13 4th QTR Meter Reads) into cell B524. The range is D2:D519.
Where I run into trouble is when I filter the data by Campus, I only want excel to count the number of devices for the model listed (A524) and place it into B524 for the visible rows.
I have attached a sample sheet. Can someone be kind enough to teach me how to count unique numbers of visible cells ( I would be applying filter in the table) in textbox 1; and subtotal of the visible list in textbox 2?
Right now the range to count unique numbers is set to A2:A15, but I want to be able to change that range to other ranges, like B2:b100, etc. I do not know VB.
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.
I filtered my database in such a way that i end up with a list in which different companies are shown.
For example: Companies (column A) MER MER TYH INT MER TYH TYH
Now i want excel to count for me the number of different companies active (so in this example it would be 3, that is MER + TYH + INT). Does anyone know how to make this formula?
I want my macro to transform the cells whom values are visible into pure value no formula "behind them". I have simple multiplication formulas in those cells. If The result of a multiplication is 0 and I format that cells to not show me that 0 with "0.000;-0.000;;@" the macro still deletes the formula from that cell.
I need to count the unique items in a range that don't contain the string "option". I would like not to use VBA for that but I can't make it work with a simple formula.
For now, I have :
[Code] ......
That doesn't count the cell with the content "option" and count correctly the other unique items. However I need to ignore any cell that contains the string "option" (with wildcards).
I'm using auto filter to gather information from a giant list. I'm able to use Subtotal function in Row(1) )to gather all the numbers for a person.What I havent been able to do is figue out a way to get the value of the person that I am auto filtering.
Example Row 1 contains my subtotal formula's Row 2 Header Row Row 3 Auto Filter Buttons Row 4 All The Data
Column(A4:A65000)has the names of the people So when I use the Auto filter by Name how can I get the first visible cell name to show in (A1)?
How to use COUNTIFS Function only for the visible Data after applying filter.
Ex:=COUNTIFS(A:A,"Ret",P:P,"M")-COUNTIFS(A:A,"Ret",P:P,"M",B:B,"") it gives d result including hidden data, but i want it only for visible data after applying filter.
I have an Excel sheet with all client information...For clinical supervision I want my team members to open their own "Supervision.xls" and click a button...this button will open "Client.xls" and select "Client info sheet"...It will then hide rows c,d,g & f...it will then filter column "e" based on the specific caseworkers name ( say "Joe") and copy only the visable columns back to their "supervision.xls" Values only (doesn't effect the colour formating of Supervision.xls) then close "Client.xls"
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
I am asking if it is possible to delete filtered rows? With code. What I mean is after setting a filter, then deleting all shown rows except row 1, (Titles) I did a search but nobody seams to have asked this yet, so recorded it, but that did not seam to enlighten me much either. Or is this the wrong approach, should I delete using a loop, using the filtered criteria as to say delete row, or move on to the next row?, this would be far more time consuming as when all can be deleted at once if possible of corse.
Every time i do a filter and copy a data. Keep the filter on and past in another column. The data does not copy just into the visible cells. It pretend the filter is not there.
I have tried selecting only vible cells when copying and pasting into cells by selecting only visible cells but does not seem to work. Get the error message "command cannot be used on multiple section". There must be a solution but looked on the web and really cannot find one.
Table below so i filter out the "a" so i just have numbers then want to past into vible cells.
CopyPaste ResultsResults wanted 111 a2 232 a4 33 a 44
I am looking for a bit of code that will count the number of visible columns either. I have the following which is missing the code to establish if the range is visible or
Code: Do Until rngVisibleColumnCount.Column = Range("HRISData_RoleError").Column 'Code to establish if visible intVisibleColumnCount = intVisibleColumnCount + 1 Set rngVisibleColumnCount = rngVisibleColumnCount.Offset(0, 1) Loop