just a vb line i need correct parentheses

[fenster]

finish = "<=" & Sheet4.Cells.Range("$D$4").Value & DateSerial(Year(Date), Month(Date) + 1, 1)


the above line is causing me all kinds of bother with the autofilter.

its a long story but heres what i need:

these lines of code in correct parentheses:

finish = "<=" & Sheet4.Cells.Range("$D$4").Value + DateSerial(Year(Date)

finish = "<=" & Sheet4.Cells.Range("$D$4").Value + Month(Date) + 1, 1)

can anyone help -

davie..

btw
thanks for looking

 

[Andrew Poulsom]

What's in D4 and what should your strings look like?

 

[fenster]

D4 is a cell with a start date.

i was talking all yesterday to jmiskey..

http://www.mrexcel.com/board2/viewtopic.php?t=50971&postdays=0&postorder=asc&start=0

the autofilter kept switching dd/mm to mm/dd but by using the line i posted the format is dd/mm only problem is that there are two dates being generated from this line..

so if i can hack it up and just use the part that is formatting date correctly and omit the second date ten im fixed!

the full code im usig is in the other thread...

thanks

 

[Andrew Poulsom]

See if this helps you:

http://www.mrexcel.com/board2/viewtopic.php?t=44299

 

[Joe4]

Andrew,

Thanks for the pick-up. We were working on it a while yesterday, and we figured out that the problem was with the dates. The problem is that I am in the U.S., so I couldn't recreate the situation, so I couldn't develop and test possible solutions. I thought that maybe changing the dates to strings might work(?). I see the Long Integer solution worked.

 

[fenster]

is there a difficulty in the line of code i posted being split??

im 99% there with that line...in the meantime im trying to use the code from the other thread..

 

[fenster]

HI Jmiskey!!

 

[Joe4]

Fenster,

How's it going? It looks like Andrew handled the same situation and came up with a solution (see his last response in the referenced thread).

Try this:

Sub Macro9() 

Dim StartDate
Dim EndDate

StartDate = CLng(Range("D4").Value)
EndDate = CLng(Range("G4").Value)

Sheets("Voucher").Select 
Columns("A:A").Select 
Range("A7:A2100").Select 
Selection.AutoFilter 
Selection.AutoFilter Field:=1, Criteria1:=">=" & StartDate, Operator:=xlAnd _ 
, Criteria2:="<=" & EndDate 
'Selection.PrintOut Copies:=1, Collate:=True 

End Sub

EDIT: See above

 

[fenster]

ok , lets pretend im a newbie at code!

change

Dim Start As Date
Dim finish As Date

to?

 

[Joe4]

See my edit above. Cut and paste the code and give it a go!