Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Add One Day To A Variable Date Using Vba

I am using an input box to obtain a weekending date which I then use to filter for rows of data after the weekend (to be deleted). The problem is that because the dates in the data contain time, when I filter, the data still includes the weekend date which I don't want to delete. I need to add one day to the imput date which can then be the variable date "weekend" used in the autofilter.

Dim dweekend As Date
weekend = InputBox("Please enter week ending date (mm/dd/yy)", "WeekEnding")
Selection.AutoFilter Field:=4, Criteria1:=">" & weekend, Operator:=xlAnd
Excel 2003 Windows XP

View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Add One Day To A Date
An opening date is contained in cell a1, the closing date is in cell a2. I want to copy the date contained in cell a2, add one day and paste the result in both a1 and a2. (I require the two dates to be the same for the new period to avoid time based calculations to be made)

View Replies!   View Related
Add Day Name To Date
how to automatically show the day name in relation to an input date? i.e. 17/12/2009 = Saturday

View Replies!   View Related
Add X Days To Date Excluding Specific Day
the formula below prints monday to friday when i drag it down. Probably a very easy question but how would i change it so when i drag it down it includes saturdays so the only date missed out is Sunday.

It picks the date from cell a4. the code is from here:


View Replies!   View Related
Add Day To Date & Subtract Month
in the attachment I have problems in Cell B4, A9, and B9:

1. Cell B4: if Cell C2 is 25-May-07, then Cell B4 must be 26-Apr-07, if Cell C2 is 25-Apr-07, then Cell B4 must be 26-Mar-07, I did, but it is not working well, mean the format is not applied on that (Cell B4)

2. Cell A9: if Cell B4 is 26-Apr-07, then Cell A9 must contain the day of Cell B4 format (d), like 26...

3. Cell B9: the same as Cell A9, but format must be (ddd)

View Replies!   View Related
Vba Calculator: Click Add After Inputting The Digits Just To Have It Added To He Variable, Which I Just Add Up At The End
i have 1 - 9 number buttons, the +, - , * , / , and a C for clear, as well as an exit button. the display is a label. i have to click add after inputting the digits just to have it added to he variable, which i just add up at the end... terrible.

Option Compare Database
Option Explicit
Dim var1 As String
Dim var2 As String
Dim first As String
Dim second As String
Dim sign As String
' on load
Private Sub form_load()
Form.Caption = "this calculator lab sucks."
Me.lbDisplay.Caption = ""
End Sub
' on clear
Private Sub cmdClear_Click()
Me.lbDisplay.Caption = ""
var1 = ""
var2 = ""
End Sub.............

View Replies!   View Related
IF And AND; Add A Line To The Code So Date Picked By The User Needs To Be Both Weekday And Not A Day In The Past
See attcahed code. I need to add a line to the code so date picked by the user needs to be both weekday and not a day in the past.

e.i today : 20/06/2006

if user pick a date before today or a weekend date pivot table does not update.

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Application. ScreenUpdating = False
If Weekday(MonthView1.Value, vbMonday) < 6 Then
With PivotTables("PivotTable1")
.PivotFields("DATE").CurrentPage = Format(MonthView1.Value, "dd/mm/yyyy")
End With
End If
Application.ScreenUpdating = True
End Sub

View Replies!   View Related
Automatically Add One Day To An Existing Day
how can i automatically add one day to an existing day..
1 Monday

in b1 what would be the formula for tuesday..



View Replies!   View Related
VBA Code To Add 1 To The Previous Date
I have a folder containing excel files with dynamic suffix names. I have files for all days starting from the 1st of the month – for example : Performance_01012010.xls, Performance 02012010.xls, Performance_03012010.xls till Performance_31012010.xls.

I want a VBA code to retrieve the date out and change it automatically (means it should add 1 automatically to the previous date). For example, if I open Performance_05012010.xls, my macro should SAVE AS this file to Performance_06012010.xls.

View Replies!   View Related
Use Variable To Name New Worksheets And Pivot Tables I.e. Day 1 Through 7
I am usually able to find the answers to any questions I have by searching the forum or internet. Unfortunately I ran into one that I am not even sure is possible at this time. I have 7 macros like the following. One for each day up to 7. The macros create four pivot tables on the page. I wanted to find out if I could combine it into one macro using variables. Unfortunately every attempt I have made results in an error.

Sub Day1Table1()
Sheets.Add. Name = "Day 1 Tables"
LastRow = Sheets("All Data").Range("R65536").End(xlUp).Row
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Day 1'!R1C1:R" & LastRow & "C18").CreatePivotTable TableDestination:= _
"'Day 1 Tables'!R1C1", TableName:="Day 1 Service Alarms" _
, DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("Day 1 Service Alarms").AddFields RowFields:="Service"
With ActiveSheet.PivotTables("Day 1 Service Alarms").PivotFields("Service")
.Orientation = xlDataField
.Caption = "Number of Alarms"
End With..............................

View Replies!   View Related
Add A Day/increment By One
I want to take the date value of a cell, add one day to it and paste it to another sheet's cell. For example if Sheets("x").range("i4").value is 12/12/1999. I want to add a day to it (13/12/1999) and then paste it to Sheets("y").range("d3").value

View Replies!   View Related
Add Totals By Day
Here's what I have...

Column A Column G
date $ Amount

my data example...

10/5/2008 $10.00
10/5/2008 $20.00
10/8/2008 $12.00
10/8/2008 $8.00
10/8/2008 $25.00
10/9/2008 $75.00

What I want the formula to do is look in Column A find all of the dates that are on the same day and then look in column G and add all of those $ amounts.

So the result would be...

10/5/2008 $30.00
10/8/2008 $45.00
10/9/2008 $75.00

View Replies!   View Related
Round Date Based On Day Of Date
I am trying to make a spreadsheet that will calculate how long someone has been working for us but what i need is for the date started to be rounded to the start of the nearest month. (ie. Start Date: Jan. 1 - 15, = Jan 1. and Start Date: Jan.15 - Feb.15 = Feb. 1....). Is there a way to do this? I figure i may have to use some sort of table but i dont know which one to use or how to use it.

View Replies!   View Related
Add Leading Zero To Month And Day After Split
I'm trying to finish up a little program, but am stuck on getting date values from excel over to a another front end system correctly. The issue is pretty basic - I have a value I call "fulldate" which, for example is "1/5/2010"

I have to move each element of the date to this other system, but if I don't add the 0 before the month and day, it gets pushed over incorrectly (this other front end has three fields which accept: mm dd yyyy. BUT, if one character is entred into the mm field, you need to TAB to get to the dd field. If you enter TWO characters, you CANNOT tab to get there (you'd end up in the yyyy field).

So, all I really need to do is take the value "1/5/2010" and end up with three variables of consistent lengths.

Month = 2 characters
Day = 2 characters
Year = 2 characters

Here's what I'm trying tu use.. .but Day1 = 1, not 01. I've tried using format, but it's just not working how I'd expect.

View Replies!   View Related
Add Sheets Named In Day Order
I would like to be able to create monthly worksheets with a date on the tabs with macros.

example1 is my main sheet
example2 is what i would like to end up with, including the layout of example1 on each sheet.

View Replies!   View Related
Move To Date Or Date Plus One Day
I have this
Set rngFnd = Range("B:B").Find(What:=Range("T1").Value, After:=Range("B1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
If rngFnd Is Nothing Then
MsgBox "Not found"
Application.Goto rngFnd.Offset(, -1), True
End If

What can I add to go to the next date if the date in T1 is not found?

View Replies!   View Related
Converting Date To Day
I am currently converting a date in column "A" to a day in Column "B"

Columns("B:B").NumberFormat = "dddd"
Range("B3:B" & lrow).Formula = "=A3"
can someone please advise what code I need to make the day stay as text only in column "B"
If I do a copy / paste special for column "B" and change it to text it reverts to the number of the date.
I would like it to stay as the day,eg, Monday, Tuesday, etc.

View Replies!   View Related
Same Date And Day Sorting
1. I downloaded from my online bank a Excel statment file.
2. When I open it in Excel. The date order is wrong, it is newest entries first (top).
3. I need it the other way, oldest first. I get Excel to sort oldest to newest. Which it does, but....

When I have more than 1 entry on date, they are the wrong way around.

It should be,
01/06/09 £10
01/06/09 £105
01/06/09 £200.....

View Replies!   View Related
Convert Date To Day
I have a lon list of dates in the format dd/mm/yyyy. I can change the format to DDD to show the day of the week. What I want to do though is make that permanent, not just in the format.

View Replies!   View Related
Date And Day Of Week
Is it possible to format in a macro such that dates that you extract from another workbook can be reformatted in such a way: mm/dd/yyyy Day, for example, :03/23/1990 Sun?

View Replies!   View Related
Adding Day In Date Function
I have the following formula in a cell


that I want to look up the Day (mon, tue, etc) and then return the date entered in cell A1

So if the date in cell A1 is 01/05/08, the formula should return Thu01/05/08.
Currently it returns Thu39569, even though the cell is formatted as a date format... How do I get it to return the date in a date format?

View Replies!   View Related
Display The Day By Inputting The Date?
for example.

I type "20 Feb 07", and excel formatting auto changes that to "Tuesday 20 Feb 07"

I actualy need this for a more complex formula...

if A1= any date from monday to sunday of one week, then A2= mondays date+21

the only way i can comprehend this is to make a formula that says if A1= a monday A2=date+21, A1= a tuesday A2=date+20, etc.

View Replies!   View Related
Converting Date Value To Day Of Year
I have several excel files with datevalues as the timestamp (column A). I would like to add 3 more columns after the timestamp and display the following (derived from the datevalue):
column B -> Day of Year
column C-> hh:mm
column D-> ss.0

how do I split an excel datevalue into Day of Year, hours and minutes, and seconds? Which formulas do I use?

View Replies!   View Related
Convert Date Into Day Of Week
I have a form that users input the date (not just todays date) I want another cell to take that date and input the corresponding day of week.


user inputs 03/10/09 into cell h17 I want cell A12 to automatically have the corresponding day of week (wednessday)

View Replies!   View Related
(2003) Get Day Of The Week From A Date
I have a list of dates in Excel that I would like to pull the day of the week it was on: for example, cell A1 has '1/03/09' and I would like it to display in B1 what day of the week that date was.

View Replies!   View Related
Date To Return The Actual Day
how to get a date to return what the actual day? ie 13/01/09 is tuesday?

View Replies!   View Related
Show Day When Cell Has Date
I have cells which show the date ie:- 01/01/2006 02/01/2006 etcbut I want it to actually display the date only ie:- 1, 2 etc or the day ie Mon.

View Replies!   View Related
Show Day In Date Within Cell
Is there any way of configuring Excel so that it will automatically show the day when I hover my cursor over a cell that contains a date, eg 09/10/06 will show Monday as a pop-up similar to a comments box when the cursor is held over it.

View Replies!   View Related
Determine Day Name Of Current Date
I have got a spreadsheet that needs filling in by 3pm everyday. The workbook has a worksheet for each day e.g. Mon to Fri. What I am looking to do is fill the worksheets in for whatever day it is e.g. if it is monday then select monday data from required file and paste into monday worksheet. I was going to create five macros for each day and then select the required one on the day, but rather than doing this is their a way that i could write one macro that runs by checking what day it is? e.g. if monday run monday code...

View Replies!   View Related
Testing Date For The Week Day
I have to test if todays day is Saturday. Don't know the syntax.

View Replies!   View Related
Return Date Of Specified Day In Month
Is there a end of "week" function which shows only the date the friday? says ..if today is 9/13/2007, the cell will show 9/7/2007...

View Replies!   View Related
Return Date Of Last Day Of Given Month
I'm after a formula(s) which will give the start date and end date of a month using the month name. For instance, if cell A1 contained OCTOBER 07 the formula result for the start of the month would be 01/10/07 and the formula for the end of the month would be 31/10/07. I have plyed around with the EOMONTH function but this only workd when an actual date is entered.

View Replies!   View Related
Add Cell Number To Date & Add Weeks
I want to add a numeric number eg: 4 to a date format eg: 15/08/2007 so that it calculates 4 WEEKS from 15/08/2007 and returns the CORRECT date in a date fomat itself. How do i do this through a VB code ?

View Replies!   View Related
Reverse Date (month & Day)
I have the following date problem, for example I need to reverse the following date:

8/02/2003 (which is recognised as a date) to:

2/08/2003 (the real date).

Is there an easy way to do this using a formula?

View Replies!   View Related
Automatically Generating Day And Date On Several Sheets
I have made a daily planner for each month. The dates are on separate sheets which are titled 1st Dec 07, 2nd Dec 07 and so on.

This is also included on the actual sheet as well in the form of a heading. I want to know if it's possible to automatically rename the text on the sheet to what the sheet is called?

Or if the first sheet has a title of '1st Dec 07' how can I get the other sheets to automatically be titled in sequence so I don't have to do it manually?

View Replies!   View Related
Date Display Like Day/Month/Year
Im having a little issue with the way the dates are layed out.

I have a condition format =AND(RC5="No",TODAY()<RC4+10)

And withen the cell's the date is located, If the cell is writen Month/Day/Year everythink works.

Though i have always written dates like Day/Month/Year.
ive tryed to do go to the number format thing and change it, though that just seams to change the end display not the way excel handles the date. it there a system level change that can be made of change somethink.

View Replies!   View Related
Formula To Find Out The Date And Day Difference
Can you share the formula to find out the date and day difference. Foe example ( from :Thu 06-Jul-06 11:59 AM TO Mon 10-Jul-06 11:56 AM)

I have the dates is the same formate as shown in example.

View Replies!   View Related
Automatic Updates; Concatenating Name Of Day To Date
I have two problems with my PivotTable: 1. My PivotTable consists of a constant number columns and varying number rows, eg.......

The dates (with data) should continue to update as I add new date records to the source datasheet, but they don't. I try the refresh option for the table, but it only updates for the dates that it was designed for. I also have automatic updates set, but so far nothing is working. I have to rebuild the PivotTable each day after I add new data...

2. Second problem are the date labels on the rows. I need to have them include the literal day of the week such as
Thursday 01/01/09
Friday 01/02/09

Another less urgent problem that I would like to solve is that I have included additional percent calculations for the total column that I am having to rebuild each time. Can that be included in the PivotTable as well?

View Replies!   View Related
Converting A Day Date To A Month And Year
I am trying to use a pivot table to analyse some data. The base contains a "day" 01/05/08, however I want the pivot table to summarise by the May 08. I have used the "=month(cellref) command, and it returns the correct month number. However when I try and format this to "mmm" or "mmm yr" to get a month I can then cut and paste, it always retunrs the month of JAN.

View Replies!   View Related
Convert Date To Text Day Number?
Wondering if there is a simple and concise way to convert a date into text that represents the day number?

So a cell containing “17/09/2006” simply reads as “Seventeenth”, 18/09/2006 becomes “Eighteenth” and so on...

View Replies!   View Related
Calculate Due Business Day Date
I need to calculate a due date for the fifth business day of the next month following the input date. I am using Excel 2000.

View Replies!   View Related
Date Formula With Variable Date & Comparison Operator
I have a date in cell A1. I have an operator in cell A2. This info is then merged in to cell A3 with the following formula: =A2&TEXT(A1,"dd/mm/yyyy"). My data range is called "wc_date_of_loss". I want to use this info in a SUMPRODUCT formula (as the dates and operators can be changed by the end user). What's the correct syntax for that?


View Replies!   View Related
[VBA] Day Of Week Filtering
I've been trying to write code to filter a list of date base on day of week (Mon, Tue, etc)

My problem is that i can't find a way to code the filter criteria... since the date does not contain any week of day constant. i don't want to create another column in my sheet to show the week of day constant and filter this instead.

Here's my not yet finished code...

Sub DayOfWeek()
Dim sAnswer As String
Dim bWkDay As Byte
Dim loMyData As Range
Dim iFilterCriteria As Integer
Dim Dateserial As Integer
Application.ScreenUpdating = False

sAnswer = InputBox("Please select day to display data (first 3 letter of the day, eg. mon)", Title:="Select day to display")

View Replies!   View Related
Custom Add In: Add The File Name Extension And Relevant VBA Code
Has anyone got the add in code? I have my own custom menu bar on my excel. But every time i want to add a new link i must go into the code and manually add the file name extension and relevant VBA code. Is there a method of just entering the file extension in a cell range and excel will automatically update or pick up or link from this location?

View Replies!   View Related
Serial Number Date Displaying Incorrect Day?
I maintain a class register in Excel to monitor student attendance. The first row shows the date of the class in the form dd-mm.

I need to identify all dates which fall on a Monday and thought that if I custom formatted a new row as "dddd" and enter the formula =DAY(cell ref) into the cells of this new row it would achieve this- I could easily spot the Mondays for the period under review.

What I'm finding, however, is that the formula seems to incorrectly state that 16th September 2008 is a Monday whereas it's actually a Tuesday- utterly bizarre!

I can get a fix simply by modifying the =DAY() formula by adding 1 to my formula [ie =DAY(A1)+1] but am wondering is this a "so called known issue" with Excel or has anyone else come across it? I have never previously come across this and consider myself to be an above average competency level user of the application.

View Replies!   View Related
Date Function Query (calculate The Last Day Of The Month)
I am using a formula to calculate the last day of the month, using any date of the month in a worksheet in cell A13, this cell is also linked to another worksheet to pick up a date, using the ISBLANK function to prevent a dummy date entry appearing if the field in the linked ASHBY RISE worksheet is blank

The last day of the month function is shown below

This works fine if there is a date in A13, but returns a #VALUE! error if cell A13 is blank. I have tried using the ISBLANK function, but I am still getting the #VALUE! error. Of course I may have the sysntax incorrect.

View Replies!   View Related
Placing The Date (1-JAN-2008) In The Right Column For DAY
Placing the date (1-JAN-2008) in the right column for DAY

Now I have a Matrix in which I have the Days as Colum Headings and the Week Numbers as the Rows.

I will be mentioning the Date let's say 1-JAN-2008 in the Cell A1 and I want this date to appear in the approriate Column for the DAY
For Ex:-

The day for the date 1-Jan-08 was a Tuesday, therefore the date should appear in the Column having a Heading Tuesday and in the Column Monday it should show as 31-Dec-07 and the Columns for Wednesday,Thursday,Friday,Saturday and Sunday the Following dates after 1-Jan-08 (i.e. 2-Jan-08, 3-Jan-08, 4-Jan-08, 5-Jan-08, 6-Jan-08).

The appearance of the Date should change as per the day-date combination and as such for the preceding as well as following dates..

Ex:- Lets say for 1-Jan-09 which comes on a Thursday it should display (1-Jan-09) under column Thu and Mon,Tue,Wed should display ( 29-Dec-08,30-Dec-08,31-Dec-08) and Friday,Saturday and Sunday the Following dates after 1-Jan-08 (i.e. 2-Jan-09, 3-Jan-09, 4-Jan-09).

View Replies!   View Related
Auto Hilighting Day & Date For Sunday
Auto Hilighting Day & Date For Sunday. i tried but no use.

View Replies!   View Related
Update Day Of Week And Date Based On Month
I'm attempting to force excel to auto update the day of the week, and the date in a spreadsheet. The date isn't as important, since it can be hard coded. The only problem there is some months have 31 days, some 30, and another with 28. I've uploaded an image of the spreadsheet, and you can see in field A1 the date/year is input. I'm wanting to find a way to force the days/dates in fields 2E and 3E to update based on the month.

View Replies!   View Related
Determine Date Of Nth Specific Day Of Month
See attached spreadsheet. I have a set of Jobs with a set of end dates. A meeting date should be held after the end of each job. I need a formula or macro to determine when the meeting date will be held? The criteria to determine the meeting date is found in rows 12-18. The end dates are set on different days of the weeks and different weeks of the month depending on the region that the job is located in. The meeting dates will be input in colums d, f, h & j.

View Replies!   View Related
Find Data By Day Date & Copy
I have a list of data by daily date only for days when the market is open. I need to select the data for each Friday (if the market was not open that Friday then I need to take the Thursday’s data) and copy that data into new cells thereby creating a set of weekly data. The daily data is in columns A to F and in rows 2 to 1400. The Friday data of each week is to be copied to columns G to L and to rows 2 to 300. I need to have the data without row gaps as I use this data subsequently.

I have attached a sheet with some daily data. I have manually copied a sample of Friday data to the desired location in red to show the solution I am looking for. An additional problem is that I need to copy across a daily moving average, from column F to column L, and being a calculation from daily data it does not copy and paste.

View Replies!   View Related
Copyright © 2005-08, All rights reserved