Check File Date And Abort Macro.

[donlincolnmre2]

Hello

I have a Data file, which contains the Date the file was created in column A, If that date is Less then Today's date then the macro should abort.



Here is the Data.

t
	A	B	C	D	E	F	G	H
1		Volume	in	drive	C	is	DSK1_VOL1
2		Volume	Serial	Number	is	4020-0800
3
4		Directory	of	C:\WINDOWS\DESKTOP\PROSPE~1\TEST
5
6	8/6/2007	6:46	AM	20,998	s1.pdf
7		1	File(s)	20,998	bytes
8		0	Dir(s)	########	bytes	free
9		Volume	in	drive	C	is	DSK1_VOL1
10		Volume	Serial	Number	is	4020-0800
11
12		Directory	of	C:\WINDOWS\DESKTOP\PROSPE~1\TEST
13
14	8/6/2007	6:45	AM	2,375,757	t1.pdf
15		1	File(s)	2,375,757	bytes
16		0	Dir(s)	########	bytes	free
17
t

 

[QuietRiot]

Sub macro1()
x = Range("A65536").End(xlUp).Row
If Cells(x, 1).Value <> Date Then Exit Sub
MsgBox "bla bla macro still running"
'code that you want to run on same day only.. 
End Sub

 

[texasalynn]

try something like this:

Sub DCheck()
DCk = Format(Date, "m/d/yyyy")
If Range("A6").Text < DCk Then
MsgBox "Date is Less Than Today - Exit macro"
Exit Sub
End If
'your code here to continue
End Sub

edit: change to format to match text to text