PDA

View Full Version : Solved: This works horzintally but not vertically?



Djblois
04-20-2007, 11:34 AM
How come when I try to run this array to fill down in cells, all the cells get the first one "George Gellert"

Range("D13:D34").Value = Array("George Gellert", "Bob Gellert", "Tom Gellert", "Bernie Lillis", _
"Charlie Stough", "", "", "Partial Copies Distribution:", "", "Al Pish Depts 01 and 06", _
"John Jackson Depts 03 and 10", "Kerry Dambra Dept 15", "Teddy Ignat Depts 15 and 21", _
"", "", "", "Copy for filing", "", "", "", "", "=Today()")

Andy Pope
04-20-2007, 11:53 AM
You need to transpose your array.

Range("D13:D34") = application.worksheetfunction.transpose(Array("George Gellert", "Bob Gellert", "Tom Gellert", "Bernie Lillis", _
"Charlie Stough", "", "", "Partial Copies Distribution:", "", "Al Pish Depts 01 and 06", _
"John Jackson Depts 03 and 10", "Kerry Dambra Dept 15", "Teddy Ignat Depts 15 and 21", _
"", "", "", "Copy for filing", "", "", "", "", "=Today()"))

Djblois
04-20-2007, 12:24 PM
Thank you Andy, you are the best