Macro Date Help

[yogin2]

Hi

I'm new to macros & vba, I have recorded a macro which will print off a selected area but the problem I'm have is how to change the date as I cannot get the macro recorder to ask for the user to enter the date.

Can anyone help me please.

Below is the macro. The date needs to be entered after this screen Sheets("Days Daily Sheet").Select

Sub OutloadingDays()
'
' OutloadingDays Macro
'
'
Sheets("Days Daily Sheet").Select
ActiveSheet.Range("$B$4:$D$86").AutoFilter Field:=3, Criteria1:="DL"
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Macro's").Select
End Sub


Thanks

Yogin

 

[Norie]

Yogin

Where does the date need to be entered?

In a cell, a header, a footer, for the autofilter?

 

[yogin2]

Hi Norie,

The Date needs to be entered in Cell D2.

Thanks

Yogin

 

[Norie]

Yogin

Well you should be able to do that simply like this.

Sheets("Days Daily Sheet").Range("D2") = Date()

And you could probably lose the Select parts of your code.

Sub OutloadingDays()
'
' OutloadingDays Macro
'
'
With Sheets("Days Daily Sheet")
.Range("D2") = Date()
.Range("$B$4:$D$86").AutoFilter Field:=3, Criteria1:="DL"
.PrintOut Copies:=1
End With
 
End Sub

 

[yogin2]

Thanks Norie, This works fine.

What I was after was that once the macro is run after step one, a dialogue box appears and ask to enter a date, then run rest of the vba code to print.

Is this possible?

Yogin