I am having trouble setting conditional date filters for a column using a macro. I have two columns, A&B, each with dates in each cell. I want to filter column B to show dates that are less than or equal the corresponding cell in column A.
For example: A1=10th June 2014, B1=11th June 2014 --> The filter is set on column B, and B1 is excluded as it is not <= A1.
I have an excel sheet wherin there is a column that has the data where in the dates are displayed and many other columns.
I get this excel every Thursday so i want to filter this date column in such a way that it give me the data related to the date of the previous week only yet there is a catch here. When i say previous week i mean.
Suppose today is 03/14/14 then i want the data from 03/07/14 till today ie Last week friday to this week full( so cant use Current week option) and then paste it in a new sheet.
I tried the Record part but in that it is taking a hard coded value as i am selecting the date myself. I dont want to change the date manually every time.
this was the macro that was created
Code:
ActiveSheet.Range("$A$1:$BX$58").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "3/10/2014")
Range("A59").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-4]C:R[-1]C)"
Range("A60").Select
My problem is modifying existing macro code (see below) provided by Jim.
Sub WriteDetentionRegister()
Application. ScreenUpdating = False
ClearDetentionRegister
SortDataBase
AutoFilterDataBase1
Dim rDataRange As Range
Set rDataRange = DBase.Range("rDataBase"). CurrentRegion.Offset(1, 0)
rDataRange.Resize(rDataRange.Rows.Count - 1, rDataRange.Columns.Count - 2).Copy
DREG.Range("rdetreg").Offset(1, 0).PasteSpecial xlPasteValues
DREG.Activate
With Selection
.Sort Key1:=Range("rOffDate"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End With
DREG.Range("rdetreg").Select
Application.CutCopyMode = False
End Sub
At present the writedetentionregister macro filters the database sheet for a positive balance (in column H) and pastes these records into another sheet called Detention register.
Is there a way of also getting the writedetention macro to count 7 days from the offence date (the E column of the database sheet) and ONLY on or after that date write that record to the Detention Register Sheet?
The workbook containing the database & the detention register sheets are enclosed.
When using a Pivot Table I regularly filter on known data specific to me i.e. WBS codes.
Column ‘A’ contains the WBS Codes which can be as many a 1000, however, I only need to filter out the 10 or so I require, and currently I uncheck all the records and manually scroll through the list to check the ones I require.
In order to speed things up I recorded a macro which works fine, however, If I need to check any new codes I would have to record the macro again, as I tried to edit the Macro and all it does is to un check all the other codes I don't need.
Is it possible to create a Macro that picks up a range of data that is then used to filter on. (i.e. only the records I require)
I just got into the world of PowerPivot, Excel 2013 and Pivot Tables and am in the process of creating a Dashboard which I will then be uploading to SharePoint 2013.
On top of page I added the new timeline filter which I've linked to my pivot charts. Now what I would like to do, is create an additional pivot chart which looks at whatever date range has been used in the timeline filter and subtract 5 years from that. So, when I select a date range of November 2013 - December 2013 in timeline filter, the additional pivot chart will show the details for November 2008 - December 2013. This is where I get stuck.
I'm using two SSAS cubes which I'm combining together in PowerPivot and then display in Pivot Tables and Pivot Charts.
Writing code to do the following:
Save advanced filter settings
Remove filter (or simply set to be 'select all'
Run other code (I have this piece of course)
Put filter back on with same selections chosen as when it was removed
(Need this becuase the code in the middle does not work properly when the data is filtered)
I currently have 6 active conditions in my data range. Is there a way that I can "turn off" some filters so that the cell goes clear without having to delete the actual format?
Example: Right now I have any cell with DH turn blue any TW turn green, and any with both turning orange. Is there a way to filter the data so that i can turn off just blue/just orange/both blue and orange?
I'm trying to filter 2 date columns to include only data containing dates within 3 months of today's date.
I see there is a data filter option for "next quarter" but not 100% sure if this covers the quarter from today's date?
In the attached spreadsheet, I have a limit value which is used to set the color of other cells based on their values.
So if the value is greater than limit, the color is red.
When I change the limit, I do see the changes in color.
However, I also want to show only the red values.
Is it possible to filter results based on conditional formatting?
View 6 Replies View RelatedI am having a code like :
Code:
ActiveSheet.Select
Dim lFeild_Num As Integer
With Selection
lFeild_Num = .Columns(13).Column - .Columns(1).Column + 1
End With
Application.Dialogs(xlDialogFilter).Show lFeild_Num, ">=", 1, "
I have a list details in ranges "CV:DC" column CV has date entries so with the code given above i just select the date from combo box and check the details by pressing command button..Actually this code is doesn't work with combo box but it works with textbox except date data entries in
this mode.
So how can i improve this option if im going to use it in combo box.
Private Sub CommandButton26_Click()
Dim a, i As Long, ii As Long, b(), n As Long
ListBox4.Clear
With ComboBox6
If .Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Range("cv:cv"), .Text) = 0 Then
MsgBox "Bad Data"
Exit Sub
End If
a = Range("cv1", Range("c" & Rows.Count).End(xlUp)).Resize(, 8).Value
For i = 1 To UBound(a, 1)........................
I am writing a simple macro and trying to filter on a specific date. I thought it would be as simple as this;
Dim mydate As Date
mydate = Range("r4")
Range("A3:K3").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:=mydate, Operator:=xlAnd
Range("A2").Select
The filter doesn't seem to work as it doesn't return any results, even though there are results in the table.
I have a data field of about 2000 rows & 30 columns.
These contain records on accidents for 56 offices.
One of the columns contains the date an individual had the accident.
There can be a number of records for each office as there are a number of employees in each office who have had accidents over the last few years.
I need to be able to run a macro or set up filters or formulae to show the row containing the most recent accidentin each office, by office. I also need to display the total number of days since the last accident occurred at the end of each row.
The offices are listed in Column B & the date of the last accident is listed in Column V.
I have a column that can be found in the example attachment. My primary question is, how would I go about filtering out all of the Excel Dates & Times that do not have a multiple of 5 minutes in the "Timestamp". Can this be done w/ out the use of macros by use of the custom filter? My ultimate goal is averaging every hours worth of data so it would rather be hourly data rather than the 5-minute data given. More specifically I would be averaging the "Flow" data. The example given is actually a very small portion of what I am working with. I actually have a years worth of 5 minute data.
View 6 Replies View RelatedAnyway, in my workbook I have a master sheet which contains all the information entered (this master sheet will continue to grow as more information as entered). I want to create a userform to allow someone to search the data by selecting a date range (from/to) and a criteria (Pending/Settled) and for the results to be copied into a new sheet (simply I don't want the raw information tampered with in an unregulated way).
View 3 Replies View RelatedI have an Excel- sheet with 2 columns (Salesman and Date)
Salesman Date
A 2004-01-01
A 2006-01-01
A 2007-01-01
B 2003-01-01
C 1999-01-01
C 2002-01-01
D 2005-01-01
D 2007-01-01
I would like to filter the sheet so that every salesman is listed only once with his/hers latest date - The result of the example above should be:
Salesman Date
A 2007-01-01
B 2003-01-01
C 2002-01-01
D 2007-01-01
Once i identify the PivotField, how can i filter it to be > than Date?
View 2 Replies View RelatedI'm trying to build a report whereby i collate the first punch in and the last punch out from a set of data.
This is a sample data:
02-May-1409:00
02-May-1419:14
05-May-1409:31
05-May-1419:38
06-May-1409:31
06-May-1412:56
06-May-1413:10
06-May-1420:11
07-May-1408:36
07-May-1412:45
08-May-1408:45
08-May-1412:35
08-May-1413:23
08-May-1419:54
My result should be the following:
02-May-1409:00
02-May-1419:14
05-May-1409:31
05-May-1419:38
06-May-1409:31
***these cells should be filtered out
06-May-1420:11
07-May-1408:36
07-May-1412:45
08-May-1408:45
***these cells should be filtered out
08-May-1419:54
I have six columns.
Column A: dates
Column B: data with relates to A
Column C: dates
Column D: data with relates to C
Column E: dates
Column F: data with relates to E
how to filter by the year only in a column where I have dates specified as dd/mm/year.
This is being done through VBA and I tried the following (relevant code posted), but it doesn't seem to be working:
[Code].....
I now have code that automatically refreshes all pivots and send an email with a brief body and summary table. What I wanted was to have VBA update the pivot table to the latest date before sending out the summary.
The table below is the mentioned pivot above where normally, I would update the Date to the latest date where a value was updated. So where PivotTable11, take Max of Date (only one row)
Date Amount #Volume
04/07/2013 £5,500.001
I need to filter data which is 3 months from todays date or older. I'm going to use it in a macro which downloads the information from our accounts system.
I have set up the filter and it works fine when I manually put the Date in, but when I use the date 'formula' for todays date -3 months and reference the cell its in, it does not work. Here's what I have so far :
The filter from the macro :
Range("A:I").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("J1:J2"), Unique:=False
The way I work out the date 3 months from now (in cell K2) :
=DATE(YEAR(TODAY()),MONTH(TODAY())-3,DAY(TODAY()))
Cell J1 has the relevent Column Header
Cell J2 has the following formula :
=" < K2 " (there are no spaces I had to put them in so the post appeared correctly!)
I have a question with regards to the display of the Date filter in a pivot table I am making.
As it stands, the filter function is displaying like this : date 1.JPG
I am looking for the filter to look more like this : date 2.JPG
I believe that I have all the dates in the source table formatted as "Date".
Basically I need to add a column to my source data so I can use it as a filter on my Pivot Table in a different workbook. - something just as simple as TRUE/FALSE if the date is YTD for all years would be ideal.
Have attached an example if that makes it any clearer! nice simple formula would be ideal as sheet is around 600,000 rows long and growing!
I created a large table with data (1700 lines long) and am looking to create a sheet that will use it to do a call for totals whilst filtering for a specific line.
This is what I have currently, filtered by delivery date and key ("furniture desc").
The 58 and 54 are totals for that particular product which I would like to ideally see on a separate sheet.
result1.JPG
result 1a.JPG
What I would like to achieve is this: result2.JPG
What kind of formula would I need to use to first filter by date, then by key, then to tally up the quantities and drop them on another sheet?
Bearing in mind that other keys are intertwined on the Y axis so I can't use =SUM(xx:xx)
I have a pivot table with a date variable in a row. I would like to filter these to only show dates equal to, or older than a date value in a cell, when opening the workbook. The max date value is based on the today() function minus 12 months.
View 3 Replies View RelatedI would like to filter between a date range. the dates i need to filter between are in cells A1 and A2. this range contains the start and end of month. It is referenced from another sheet in the same workbook (='Job List'!C2).
i want to filter; greater than or equal to A1 and less than or equal to A2. How I can do it using the advanced filter method. My data range is C2:C9.
I have created a post on TeachExcel.com, but haven't received an answer yet:
http://www.teachexcel.com/forum/view...7d85cfb7d#p203. I've attached an example of the spreadsheet.
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?