How to create a macro in excel to find out difference between two dates in days. where dates come from different sheets

Question

0.00/5 (No votes)

See more:

i want solution for following scenario can anyone help me.?

want to get date difference in days from two dates using macro in excel. addition on that first date should be from sheet1 and another(2nd) date is from sheet2 and their output(days difference) we have to show in sheet3 in excel.

Posted 16-Apr-15 21:26pm

Member 11553122

Add a Solution

2 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Abhinav S · Answer 1 · 2015-04-16T21:39:00

Solution 1

Try

VB

Dim sh1 As Worksheet
Dim sh2 As Worksheet

Set sh1 = ActiveWorkbook.Sheets('Sheet 1')
Set sh2 = ActiveWorkbook.Sheets('Sheet 1')

DateDiff("q",sh1.Range("B1") , sh2.Range("B1"))

Posted 16-Apr-15 21:39pm

Abhinav S

Comments

Member 11553122 17-Apr-15 3:58am

Its not working. giving compile error and syntax error.

Abhinav S 17-Apr-15 5:52am

That's the general idea. You will have to write your own code!

Member 11553122 21-Apr-15 3:12am

I want to use macro for that. tahnks fro your idea but its not that much usefull for me...
Can you suggest me something else.?

Member 11553122 · Answer 2 · 2015-05-12T21:41:00

Private Sub CommandButton1_Click()
Dim currDate As Date
Dim dateOffset As Integer
Dim count1 As Integer
Dim str As String
Dim c***final As Integer
Dim strfinal As String
countfinal = 2
count1 = 2
count0 = 2
strdate = "d" & CStr(count0)

For Each cell In Range(Sheet3.Range(strdate), Sheet3.Range(strdate).End(xlDown))
strdate = "d" & CStr(count0)
count0 = count0 + 1
If cell Is Nothing Then GoTo line10
startDate = Sheets("Sheet3").Range(strdate)
str = "h" & CStr(count1)
For Each cell1 In Range(Sheet3.Range(str), Sheet3.Range(str).End(xlDown))
count1 = count1 + 1
GoTo line20
Next cell1
line20:
If cell1 Is Nothing Then GoTo line10
currDate = Sheets("Sheet3").Range(str)
If currDate = "12:00:00 AM" Then GoTo line40
dateOffset = DateDiff("d", startDate, currDate)
line30:
strfinal = "j" & CStr(countfinal)
Sheets("Sheet3").Range(strfinal) = dateOffset
countfinal = countfinal + 1
line10:
Next cell

line40:
strfinal = "j" & CStr(countfinal)
Sheets("Sheet3").Range(strfinal) = " "
countfinal = countfinal + 1
GoTo line10
End Sub

How to create a macro in excel to find out difference between two dates in days. where dates come from different sheets

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

How to create a macro in excel to find out difference between two dates in days. where dates come from different sheets

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0

Existing Members

...or Join us