I have a macro which autofilters a range of cells.
I can count the number of visible rows by using the following code
Code:
lcountActive = Range("BC34:BC" & x).SpecialCells(xlCellTypeVisible).Count
What I would like to do is both calculate the Average value of the visible cells and the Sum as well. I have tried to adapt the code I have but my knowledge is just not good enough to do this.
I've got the following function working, until I paste it into a cell that is referencing a range with all zeros.
Function Ave_VisibleUnits(Cells_To_Ave As Object, MyStep As Integer)
Dim i As Integer
Dim vCount As Long
Dim vTotal As Double
Calculate
Application.Volatile
vTotal = 0
vCount = 0
For i = 1 To Cells_To_Ave.Cells.Count Step MyStep
If Not Cells_To_Ave(i).Rows.Hidden Then
If Not Cells_To_Ave(i).Columns.Hidden Then
vCount = vCount + 1
If Not Cells_To_Ave(i).Value = 0 Then
vTotal = vTotal + Cells_To_Ave(i).Value '(It dies here)
End If
End If
End If
Next
vTotal = vTotal / vCount
Ave_VisibleUnits = vTotal
Calculate
End Function
How do I modify this formula to calculate visible cells?
=AVERAGE(IF($U$8:$U$720="AM",$H$8:$H$720))
I am trying to calculate the average of the absolute values of a range of visible cells. I use filters to extract the data rows I need from a large spreadsheet. Then I need to calculate statistics on the resulting data, i.e. the visible cells. The line I am using to calculate this is:
VB:
ThisWorkbook.Sheets("Tracker Channel Stats").Cells(newRow, 4).Value = WorksheetFunction.Average(Abs(R.SpecialCells(xlCellTypeVisible)))
However, what I get back is simply the value of the first visible cell in the range, i.e. the average of the absolute value of one number is that number. how to make this work
I haven't been able to find the answer to this here, nor have my own fumblings worked... I would like to have a formula to calculate the MEDIAN value of a column's visible cells - or a formula which will include the only cells meeting a certain criteria from another column.
For example...
Column O contains a list of countries: US, China, England
Column M contains the values: 1, 5, 10, etc
I would like the result of the MEDIAN formula to change based on the criteria selected in column O (so if I pick US, only the values associated with US lines are included).
I could probably put a button on the sheet and do something in vba behind the scenes, but the user is specifically asking for a formula so he can maintain it himself.
I have a list of numbered items and what I would like to do is display that items position in the list should an autofilter be applied
For example, with no filter applied the list could look like this:-
Col A Col B Col C
1 1 Armadillo
2 2 Platypus
3 3 One-legged Schornztickler
4 4 Armadillo
And when the autofilter is applied to Col C with a criteria of Armadillo the results should display thus:-
Col A Col B Col C
1 1 Armadillo
4 2 Armadillo
I'd really like a non VBA solution, but as I can't work one out myself I guess that's not an option?
Im trying to create a userform that will enable the user to select a record from a listbox and then to edit the info for that record by changing the contents of text boxes which are set to display the current info. What I have seems to work intermittently. I basically use autofilter to find the selected record on the worksheet, then I set the value of each cell in the row to that of the appropriate textboxes. ListBox2.Column(4) contains the unique id for the selected record.
Private Sub saveclient_Click()
Dim WS As Worksheet
Dim newrng As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set WS = Sheets("Clients") '<<< Change
Sheets("Clients").Select
WS.AutoFilterMode = False
Set newrng = WS.Range("A1:e" & Rows.Count)
MsgBox Me.ListBox2.Column(4)......................
I have a row data corresponding to the measuring of load cell per min and I need to average the values per hour. So I have a column B for the date (from 1-01-2013 to 31-01-2013, column C for the time (0:00:00 to 23:59:00), and D de values per min I want to average. I have to do the same for the rest of the month of 2013 (February, ...., December).
I would like to know if there is a way to create a formula to calculate the average of the first 60 values (to get the average of the first hour of 1-01-2013), and then copy it to get the average of the following 60 (average of the second hour in 1-01-2013) and so on.
If there is no way to do it, I would like to know if I can do it using functions like average, match, index, offset, what would be the best match of those functions.
I also tried it by doing the analysis in another tab and using the function "averageifs" with two criterias: one for the date (example 01-01-2013) and another one for the hour (example 0:00:00), but it didnt work, it show error: #value. I inserted an extra column in the data tab with just the hour (example 0:00:00) in front of the corresponding column with (example 0:01:00, 00:02:00, etc)
Equation I used for this:
=AVERAGEIFS('Data (min)'!D$6:D$43206,'Data (min)'!$A$6:$A$44646,A6,'Data (min)'!$B$6:$B$44646,B6)
=AVERAGEIFS(TAB AND COLUMN WHERE THE RAW DATA IS,RANGE OF CRITERIA 1,CRITERIA 1,RANGE CRITERIA 2,CRITERIA 2)
I need the code to calculate the average of 4 textboxes and then put them into the cells, and every time new calculation is given, it is put into the new cell :
i have textbox (1,2,3,4)
my commandbutton needs to the calculation average of the value that is put into those textboxes.
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 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'm trying to figure out if there is a formula I could use that will calculate the average of a group cells in one column based on the condition of another column. It's hard to explain, so I will show an example. All the data is on a one worksheet and I'm trying to show totals and averages on another worksheet. Location, Days
17, 4
17, 3
17, 5
26, 4
26, 8
26, 10
26, 7
On a different worksheet I would want to know what the average days are for each location. So is there a formula that I could use that will look at column A for a specified location number and then average all the days in column B for that location? I'm using Excel 2003 and have tried using the Average(if) but with no success.
I have some code below that moves pasted data to the left and then pastes it to another page. Trouble is: 1) When the data is moved to the left I would like the spaces in the text to remain e.g.
1 2 2
would become
1 2 2
instead of
122
(as is the case currently).
Range("A3:IK34").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlToLeft
Range("A3:IK34").Select
Range("A34").Activate
Application.CutCopyMode = False
Selection.Copy .................
What I want to do is Average out a range of cells "F4:F343". That's the easy part =average(F4:F343). However I want to exclude any numbers for that average if data in coloumn "Q" = "FMC"
Would that look anything like:
=average(F4:F343)/countif(Q4:Q343, "<>FMC")
I'm also displaying it as minutes in a day so i added *24*60 to the end of the formula and formatted to Number/.00. I've entered the formula and it will calculate but when i enter FMC to the appropriate area the average wont change.
E11 through E24 contains numbers and a few errors (#N/A) that need to persist (the errors need to show).
E10 needs to show the average of the numbers that are in E11 through E24, and just ignore the errors.
I have many columns like that - where the errors need to show and I need to show an average of the number/values that do appear, ignoring the errors.
I have a table of data with a filter on the top and a sum total at the bottom. Whenever i filter the list the total at the bottom doesnt change. how do i change it so the sum only calculates the visible cells?
View 3 Replies View RelatedI have a large spreadsheet that I am using multiple drop downs in to sort for
different scenarios. I do not want to use the general data subtotal command
but each time I sort I want to get a total for the visible cells -
I have finished a huge project. The final step is sending emails.
I have a filtered range. The email .HTMLBody is formed using the visiblecells, and forms an object called 'rng'
Only problem is - now I want to add my attachments. Within the visible range, the URL of the attachment is available (column 5).
So need a loop to do for each cel in rng.Column(5)
.Attachments.Add rng.Cells(cel.row?,5)
Can't get the row number of the visible cell to work. Once this is solved I can click the button and let the beast send out 1000+ emails. But at the moment cannot Was also thinking instead of For each cel, could use i = 1 to (last row in visible rng) ?
I have a need to sum only the visible cells in a row. Certain columns are collapsed depending on the month and there is a YTD colum that I only want to pick up the expanded or visible cells. I found a custom function listed below at Microsoft's website but it only allows for a single range to be entered and I need to pick 12 individual cells, for example A1, C1, E1, etc. There is other information in the cells between and that is why the range won't work. Is there a better way to do this or can this function be modified to allow me to do this?
Function Sum_Visible_Cells(Cells_To_Sum As Object)
Application.Volatile
For Each cell In Cells_To_Sum
If cell.Rows.Hidden = False Then
If cell.Columns.Hidden = False Then
total = total + cell.Value
End If
End If
Next
Sum_Visible_Cells = total
End Function
I have a data in which I have inserted a table with headers.
I then filter the type of data I want removed from the table using the drop down
Then goto special, visible cells only, press delete.
Now, the data is gone, but when I select all again to pull up the entire table, the data is gone, but rows are still there. So now I have tons of empty rows in between the rows of needed data. Any way of removing the rows in between as well as the data?
I have a spreadsheet that has many rows of data. I've filtered the spreadsheet, and want to paste a formula so that it appears only in the filtered rows. How can i do that?
View 1 Replies View RelatedI've setup a worksheet whereby rows can be Autofiltered between a start and finish date via a Userform which (after much mucking about with UK/US dates) seems to be working nicely now. With the results of the Autofilter, i wish to count certain entries (in this case entries that are in column F) in the remaining visible rows.
The Workbook is about 'Cases' worked, and column F relates to how the 'Case' is cleared (Call, Letter, Referral). Effectively I want to be able to count 'Call', 'Letter' and 'Referral' entries once the Autofilter has been applied.
I had a situation in which i need to number the cells which start with the Text "SB" in column B. To elaborate,i want to give a serial number for all the transactions starting with "SB". For this i filtered the data >> Custom>>Begins with>>"SB"(Quotes Ommitted). I want to increment the cells with the serial numbers 1,2,3 and so on only those which contain SB. I tried using it with the ROW Function.
View 5 Replies View RelatedI am looking for a COUNTIFS that is only looking only at the visible cells. I have found a few threads on this subject but none for this specific problem.I know there is a SUMPRODUCT / SUBTOTAL excel solution for COUNTIFSing visible cells only. How modify it to take multiple ranges and criteria like CONUTIFS does.
[Code].....
I've got an AUTOFILTER and would like to add only the visible cells in a particular column (column E). As the user changes the filter, the total would change - but I'm not sure where to even start with this one. I've attached a sample file.
View 2 Replies View RelatedI have a worksheet with 26 columns of financial data. ACTUAL and BUDGET for each month and year totals for ACTUAL and BUDGET. I've provided the user with the ability to hide months they don't need to see during their current session. For example, if they are working on May, they may choose to hide June through December.
A user has requested Year To Date totals for ACTUAL and BUDGET. I thought this would be relatively simple. Just add two more columns and add up the visible cells.
I got this function from the Microsoft website and it works if I don't add criteria:
I have a spreadsheet with a lot of hidden rows in.
How can I do a count that only counts information in the visible cells?
I've got a macro with copies certain data from 1 sheet to the next. The problem I have is that some times there is an autofillter on the data.
I think I need to add .SpecialCells(xlCellTypeVisible) in to the code some where but im not sure where.
my current code is as follows. This is only a part of the code. It also copies other columns across to the other sheet
Code:
Sub CopyPasteMacro()
'
With Sheets("Imprint Data")
LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
Set rngToCopy = .Range(.Range("B6:B" & LastRow), .Range("B6:B" & LastRow))
End With
rngToCopy.Copy
Sheets("To Key @ TE Imprint").Range("D4").PasteSpecial Paste:=xlPasteValues
End Sub
I was using the following scripts to fill a listbox in a userform.
Code:
ListBox1.List = Sheets("Working").Range("A1:C20").Value
Now I have a filtered list and have tried to use the following but I can't get it to work.
I can use a more indepth script to get it to work but would rather use a one line script.
Code:
ListBox1.List = Sheets("working").Range("A1", Range("C" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
How can we loop through visible cells only?
Actually I am using filter and I want to run a for loop on filtered data only. How can I do this?