How to combine lines of code?

[Guest]

I currently have multiple situations where code resembles the following:

Range("a" & numberrows + 1).Select
Range("a" & numberrows + 1).Formula =
"=date(YEAR(begrevdate)+1,month(begrevdate),day(begrevdate))"
Selection.NumberFormat = "m/d/yyyy"

In order to reduce the size and complexity, I would like to be able to
condense some of the coding to resemble something like:

Range("a" & numberrows + 1).Formula =
"=date(YEAR(begrevdate)+1,month(begrevdate),day(begrevdate))"; NumberFormat =
"m/d/yyyy"

I thought this was possible but my attempts to play with syntax have been
unsuccessful in getting it to work.

Any help would be much appreciated.
TIA

 

[Guest]

It can't be done in one line, but it can be cleaned up a little...

With Range("a" & numberrows + 1)
.Formula = "=date(YEAR(begrevdate)+1,month(begrevdate),day(begrevdate))"
.NumberFormat = "m/d/yyyy"
end with

Note this no longer selects the cell so if you require the active cell to
move then you will need to add a

..select

in the with clause

HTH

 

[NickHK]

Papa,
You can use a ":" to write more than statement on a line, but this usually
does not help readability.
As Jim indicated, use of With and also object variables make coding clearer.

NickHK