Dates in VBA

B

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
 
D

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
 
T

Toppers

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

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

brett.kaplan

That did it! Thanks a lot!

Dave said:
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
Click to expand...
 
Top