VBA Code For Multiple Expiration Dates
Jun 11, 2014
I have a vba code for an excel spreadsheet that lets me know when a particular persons' certification is about to expire (within 31 days). However what I cannot figure out is how to make this work with more than one expiration date ( additional columns containing other certification dates). I keep getting errors when trying to add additional columns to check ( I do admit that my VBA coding is atrocious at best).
Ultimately what I would like to achieve is a list of names with expiration dates alongside popping up when opening, but maybe I am asking too much?
View 9 Replies
ADVERTISEMENT
Mar 23, 2007
I need to set up a conditional formatting formula to show when a certificate of approval is within 90 days of expiring and when it actually has expired.
The conditional formatting is in column A and the expiration date is in column I.
View 9 Replies
View Related
Jun 3, 2013
I am new at excel and have very limited experience. I have a employee training database, with employees (in column A2:A54) and the certification names (in row A1:AS1) that I must generate a monthly report on employees that are expiring within the current month. The cells are already conditionally formatted to change colors for one month prior to expiration date, current month of expiration date, and past the expiration date.
I am manually gathering the data then adding it to another sheet. In the mist of trying to gather data, I am missing and/or overlooking information. I wanted to know if there is a way to automatically generate a report based on the expiration dates that would pull the employees name and which certification is expiring or expired, preferable both. I have tried reading threads and applying advanced filters but due to the number of certifications it is not functional to do it this way.
I have attached a sample of the spreadsheet : ETD.xlsx
View 3 Replies
View Related
Jun 21, 2011
I have a spreadsheet where we track our contractor's Worker's Comp and General Liability insurance certificate expiration dates. I want the expiration date to highlight in red if it is expired and to highlight in orange if it will expire within 30 days or less.
I have attached a testing sheet similar to what I'm working on. The F column has the dates that need to highlight. I have MS Excel 2010.
View 6 Replies
View Related
Mar 28, 2014
I manage a number if individuals in the Army and as such, track their annual training requirements. Some requirements are semi-annual, annual, quadrennial, etc...
I have a spreadsheet to track the dates that the requirement was last completed (attached). I would like to use conditional formatting to turn dates that are within 30 days of being due (or blank) RED and dates that are between 31 days and 60 days of being due YELLOW.
I am using Excel MAC 2011.
View 3 Replies
View Related
Feb 3, 2014
I am trying to use conditional formatting to calculate when the date in the top column gets within 60 days from expiring to turn yellow, 30 days from expiring to turn orange and when it expires to turn red. The dates that are listed from row 5 down are when the classes were taken. the expiration date will be based on row 3. Some are annual,3 years and 5 years, etc. I am using Excel 2010....
View 10 Replies
View Related
Dec 26, 2006
I have an excel program that I want to set an expiration date on it, such as 30 days from the first time it's opened. After 30 days, activeworkbook.close
View 13 Replies
View Related
Oct 18, 2007
I have looked through your forums the last few hours. I have found similar code to what I'm looking for... but not quite.
I have a date in B2 (10-May-07)
I have an expiration date in C2 (10-May-08)
I want D3 to show months to expiration first (in this case 7)
Then I want it to highlight in yellow 90 days out
Then I want it to highlight in orange 60 days out
Then I want it to highlight in red 30 days out
I use Excel 2007, however I want the code to work with 2003.
View 9 Replies
View Related
Mar 31, 2014
I work in a HR department and I'm trying to create a spreadsheet to track the amount of extra-duty hours each worker has. For every extra hour they work today, they can use this hour next time.
Screen Shot 2014-03-31 at 9.25.22 pm.png
This is my current spreadsheetCredit hours means hours added to their 'account'.Debit means hours taken out.Hours will expire in X days if not utilised.Right now, each worker has their own spreadsheet in the same workbook.I have about 25 workers.Is this the best way to manage this?How can I create a 'bank account' system to track their hours?
hourstracking.xlsx
View 1 Replies
View Related
Jun 12, 2014
I have a large document control register and it is updated daily and posted to a cloud for many people to access. It is very time consuming to constantly jump in and out and highlight and unhighlight as many things as there are and keeping track of which items that need to be unhighlighted. The thing I'm trying to figure out is if there is a formula for this...If i change any cell in a row I want the row to highlight itself entirely, but after 24 hours I want the highlight to expire. Is there a formula or function I can use to make this happen?
View 4 Replies
View Related
Jan 1, 2013
I wonder if there is a possibility of the expiration date is in a cell, and that the file is not self-exclude, either block until just change the date in the cell.
Code:
Private Sub Workbook_Open()'If Date
View 4 Replies
View Related
May 29, 2012
I have a macro which has a digital certificate. When the macro runs i want to somehow readin the expiration date of the certificate and make sure its still valid before running the macro.
View 6 Replies
View Related
Sep 14, 2012
I am charged with building a predictive model that can find items in a hospital inventory that will expire before they are used. The idea is simple: if I use an item every week, this item has an expiration date of 50 weeks from now, and I have 60 on the shelf, then I will likely expire 10 of the items.
The complexity is that there are multiple expiration dates. So, I want be able to look down a list of 3000 items, find the multiple entries of expiration dates, and isolate them based on criteria (select, for example, the first chronologically expiration date).
View 1 Replies
View Related
Feb 14, 2014
I have 5 columns with different dates to track when certain items expire per employee. Conditional Formatting is working like a champ but the data is growing.
I'd like a way to 'quick glance' at all my people that are expired, coming up on expired (this month and next).
I was thinking if there was a script to run through all 5 columns, if the date was less than today, throw the 1st,2nd and 5-9 column (in that row) into a new table. That way i can keep my big sheet but have another sheet or table that i can see QUICKLY who all needs to get their stuff up to date.
View 1 Replies
View Related
Nov 20, 2013
I need to extract the credit card expiration date from a cell. For example
1111 1111 1111 1111 1/17 code 1111
I was able to get the /17 using =MID(C77,FIND("/",C77),4)
However, I can't get the "1" before the /.
View 5 Replies
View Related
Dec 25, 2012
I have created a qualification tracking spreadsheet to track when qualifications are coming due. Each cell may have a different date based on when that employee initially got that qualification. I want the cell that the initial qualification date is typed in to turn "red" after 180days, "orange" after 120 days and "yellow" after 90 days. I have a formula that does close to what I need, but it changes the cell next to it in color.
That code is as follows: =AND(A1<>"",Today()>=A1+90,B1="")
I have attached the sheet, what I am trying to do. Basically columns B-E and rows 2-35 are the ones that need the formatting.
Streiffs_Weapons_Warfare_Qual Tracker.xls
View 5 Replies
View Related
Feb 13, 2013
I wanted to determine the number of days between two dates. Specifically, if the initial date is in one month, and the second is in a different month and an output would result a number of days in each month until the final date. BUT I have a large amount of data to do this for in a list view, way to put a formula in excel and just drag down the entire list to get the required information. see below for an example.
The result I'm looking for is the separate the months and only show the relevant months between the two dates in one cell or the adjacent. Something similar to the table outlined below.
Input Data
Result
Start Date
[Code]....
View 3 Replies
View Related
Jul 2, 2014
On worksheet A I have a series of dates and a location:
Date Location
05/07/2014 Zoo
09/07/2014 Farm
12/07/2014 Cinema
This is a series of trips that are planned to occur. In order to occur there is a criteria which is recorded seperately and is coded as '1' = criteria were broken and '2' = criteria were not broken. The criteria for each trip must be met from the date of the last trip until the day before the next trip - so using the above example, to get the farm, the criteria must be met from 05/07/2014 until 08/07/2014. In practical terms, there must be no '1' in the desingated column that records the criteria - fairly simple.
But there is an allowance of one case of the criteria being broken, which is recorded seperately ('1' = allowance used and '2' allowance not used). This allowance resets after every potential trip (whether the trip was earned or not). This is all displayed as a 'status' on Worksheet B.
So in terms of practical VB code I'm looking for:
-Start with row A on worksheet A - copy the date and location onto worksheet B (the next trip)
-On opening the file, take the date of the last trip (or in the case of the first trip, the designated start date)
-Look into Column J (between date of last trip and date of next trip) to see if allowance has been used (a '1')
-Look into column K (between the two dates) to see if the criteria has been broken on more than one ocasison (two '1')
-OR if possible - compare column J and K (between the two dates) to see if a criteria was broken AFTER the allowance has been used
Then, look to see if today's date is the same date as the next trip, if it is, move the reference down to the next rown (A3, A4, etc) on Worksheet A so that the status now reflects the next trip, and the code now looks between the two new dates.
How to do most of it, but its the comparing between two dates and the different criteria that is stumping me.
View 8 Replies
View Related
Jun 13, 2013
I need a VBA code for entering dates. The start date cell is A15.When I select cell A15 and hit macro button it inserts todays date and fills in 1-month of dates in column A excluding the weekends...
View 3 Replies
View Related
Feb 15, 2010
I received a solution to a question recently whereby I was instructed to use the text-to columns function to solve a problem I was having with a column of dates.
Convert Dates To Another Format
The solution provided was;
Select Data > Text to Columns > Next > Next > Column Data Format > Date.
The solution works fine when performed manually but if you perform this function while recording a macro, the crucial piece that changes the date output is not captured by the recorder so when you run the macro nothing happens.
To expand on how I recorded it, after starting the text to column dialogue and pressing Next twice, the dialog provides me with a drop down selector where I am able to change the date format from the default DMY to the desired MDY which - when selected manually - fixes my problem. However, when I record a macro while performing this action the date format choice I made is not being recorded in the macro output so when I try running the macro later on the original data, nothing happens.
The recorded macro ends up looking like this; ....
View 9 Replies
View Related
Nov 24, 2007
I am encounting problems with an AutoFilter which is run in a macro after the user has selected dates from 2 Date Pickers (DTPicker) on a user form. The filter is applied to 1 column in a spreadsheet containing dates in the formay "dd/mm/yy" and is supposed to filter dates =2 and between a range of dates as selected. The resultant filter is blank, if the macro is debugged at this point the date format for the 1st criteria is found to have swopped the "dd" & "mm" around but the 2nd criteria is fine. eg. user selected 01/07/07 and 31/07/07 the resultant filter applied is 07/01/07 and 31/07/07. I have re-formatted dates to Long as per the article on this site @ http://www.ozgrid.com/VBA/autofilter-vba-dates.htm but still get the same result ???
Dim fDate, tDate As Date
Dim lfDate, ltDate As Long
fDate = frmReportMenu.dtpFromDate.Value
tDate = frmReportMenu.dtpToDate.Value
fDate = DateSerial(Year(fDate), Month(fDate), Day(fDate))
tDate = DateSerial(Year(tDate), Month(tDate), Day(tDate))
lfDate = fDate
ltDate = tDate
View 2 Replies
View Related
Feb 15, 2008
I am getting a type mismatch error ehen comparing 2 dates. I tried entering all date formatting but it still throws the same error... here is my code. i have highlighted in bold where I get the error. the Error it throws is Run Time Error 13. Type Mismatch Error. I am using office excel 2003 SP3
Dim siebApp As SiebelWebApplication
Dim siebBusObj As SiebelBusObject
Dim revBC As SiebelBusComp
Dim isRecord As Boolean
Dim sRep As String
Dim sCompany As String
Dim sLocation As String
Dim sStep As String
Dim sProb As String
Dim sDate As String
Dim RetDate As Date
Dim CurDate As Date
Const DateCol = 9
CurDate = Now()
RetDate = Sheets("Users"). Cells(DateCol)
r = Sheets("Users").Cells(65536, 1).End(xlUp).Row 'Get next blank row
Sheets("Users").Cells(r, DateCol) = CurDate
'Create The Siebel WebApplication Object
Set siebWebApp = CreateObject("TWSiebel.SiebelWebApplication.1")...........................
View 5 Replies
View Related
Jun 3, 2012
I have a macro I am using that uses several date filters. There are filters for the previous month, previous 6 months, previous year, all dates in the future, etc.
Every month I have to edit the macro and change the dates in the macro so it remains accurate. Is there any way I can modify the macro so that the dates are stored in a cell within the workbook and not in the macro?
What I would like is to type the date ranges in a sheet within the workbook and have the macro look to those cells for the date filter instead of typing in exact date ranges within the macro. This way the actual macro code does not need to be modified every month. I would like to only have to change cells within the worksheet and not touch the macro code.
View 4 Replies
View Related
Apr 30, 2008
I have a set of data that I need to sort and filter and create pivot tables with 2-3 times per week. Example data sheet attached (confidential data removed). I will insert the code that I am using for reference. The issue is that when the data is filtered for 'Approved Timesheets' I need the filter to be based on 2 criteria; If myBaseRow.Cells.Item(1, 21) <> "Approved" Then If myBaseRow.Cells.Item(1, 44) <=StartDate And myBaseRow.Cells.Item(1, 44) >=EndDate Then
The first If statement works fine, but the second appears to be ignored?? I have tried to colour this part of the code blue to make it easily visible.
Private Function PTSubtotals(ByRef PTField As PivotField)
PTField.Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
End Function
Sub Timesheets()
'
' Timesheets Macro
' Timesheet Filter 4/22/2008 by Richard Francis
'
Dim myWorkBook As Workbook
Dim myBaseWorkSheet As Worksheet
Dim myBaseRange As Range
Dim myBaseRow As Range
Dim RowsCounter As Long
Dim StartDate As Date
Dim EndDate As Date
StartDate = Format(Date, "mm/dd/yyyy")
EndDate = Format(Date, "mm/dd/yyyy")
On Error Resume Next
StartDate = Application.InputBox("Enter start date", Type:=2)
On Error Goto 0
If StartDate > 0 Then.................................
View 3 Replies
View Related
Jun 18, 2008
I'm trying to look up a value in Analytics Data searchin for the date in B9 to B & rader.
I get error messages, because i can't find the dates. But I'm sure I have defined the ranges correct. The code works in another workbook with the difference that the table with the variables I'm trying to lookup are in the same sheet as the where I want to place them.
Private Sub Upd1_Click()
Dim rader As Double
Dim lookrng As range
Dim updvalue0 As Double
Dim updvalue1 As Double
Dim updvalue2 As Double
Dim updvalue3 As Double
Dim updvalue4 As Double
Dim updvalue5 As Double .........
View 9 Replies
View Related
Feb 6, 2014
I have a spreadsheet which was formatted from VB code. Within the sheet there are four date columns where some dates show as 00/01/1900 (due to them having '0' in at the time of running the code). I am trying to run some code to blank out all cells showing the 00/01/1900 date, but the code just isn't touching it. I reverted to simply recording the 'find and replace' function and inserting into my code, but those irritating dates still remain.
Code I have used is as follows:
[Code] .....
View 4 Replies
View Related
Jun 20, 2014
I am trying to Auto filter on a pivot table "dates" via VBA coding.
Where:
Startdaycomp = 11-May
Finishdaycomp = 18-May
Rather then this showing all values between these dates, I was hoping to see only those two dates. This will enable my to compare weekdays for a Dashboard.
Is this possible?
View 7 Replies
View Related
Dec 14, 2012
I need a code that when i place a date in a cell D10 (Example:25-January-2013) it will then add 40 days of dates daily to AP10.In D9 can it also add the weeknumber (every 7 days the weeknumber increases by 1) corresponding to the day date in D10 (iso).Can this be attached to a button.Enter the date in D10 then press the button and the dates auto insert across the sheet daily to AP10.
Can the button say ADD DATE or REMOVE DATES.First date in D10.When the button says REMOVE dates all dates deleted when button pressed and cell D10 then says "add date here".If no date is placed in D10 and ADD DATE button is pressed a warning messagebox appears and says NEED TO ADD DATE .Will not work until date entered.When date entered in D10 "Add Date Here" disappears until REMOVE Date button is selected and again "Add Date Here" is displayed....not sure if this is possible but would be good if achieved. Excel 2010
View 3 Replies
View Related
Mar 13, 2014
I want to to copy selected columns of sales data into rows organized by salesperson. I have just started out with VBA and find that I cannot do it myself.
My original data are in the form of the following:
invoice_no
product
sales
qty
total
[Code] .....
I want to display the data in another sheet in the following format:
sales_a
sales_b
sales_c
sales_d
[Code] ...........
View 2 Replies
View Related
Jan 16, 2014
I am looking for Macro code preferably to get list of dates with Saturday / Sunday in a separate columns which falls Saturday and Sunday on imputing the year.
View 5 Replies
View Related
