Dates in VBA

[brett.kaplan]

I'm trying to do something very simple in Visual Basic, but am having
trouble.

All I want to do is put a date in a certain cell, based on a date in a
different cell on a different sheet.

The formula I would use if it weren't visual basic is:

=DATE(Year(Info!G2),Month(Info!G2),1)

How can I do this using visual basic?

Thanks!
Brett

 

[Dave Peterson]

dim myCell as range
set mycell = worksheets("info").range("G2")

with activecell
.numberformat = "mm/dd/yyyy"
.value = dateserial(year(mycell.value), month(mycell.value), 1)
end with

 

[Guest]

info!G2 ===> Worksheets("Info").Range("G2") in VBA

Range("a1") = DateSerial(Year(Worksheets("Info").Range("G2")),
Month(Worksheets("Info").Range("G2")), 1)

 

[brett.kaplan]

That did it! Thanks a lot!

dim myCell as range
set mycell = worksheets("info").range("G2")

with activecell
.numberformat = "mm/dd/yyyy"
.value = dateserial(year(mycell.value), month(mycell.value), 1)
end with