Write text to multiple cells using variants

**therealjag** · 11-18-2009, 08:27 AM

Hey there,

I have created a sheet which gets populated by information but have left out the top row. I want to use the tope row to enter my header fields but was looking to see if there a more effcicent way of doing this.

I am using the following code below but was wondering if there was a way using arrays as variants or ranges to do it more efficiently.

Please Login or Register  to view this content.

cheers for your help.

Jag

**DonkeyOte** · 11-18-2009, 08:31 AM

A few approaches, one might be:

Please Login or Register  to view this content.

EDIT: I revised the above to use a resize thereby making the code more flexible, ie header range will expand contract based on number of items in Array.

**D_Rennie** · 11-18-2009, 08:33 AM

Hello.

To me that looks pritty good. VBA does not require selection very often

Please Login or Register  to view this content.

**romperstomper** · 11-18-2009, 09:44 AM

I thought the headers were supposed to be in the top row, not first column?

**therealjag** · 11-18-2009, 09:47 AM

Hey sorry yeah was meant to say A1, B1...so forth, was just in a rush writing it as i was going off to lunch!

**therealjag** · 11-18-2009, 10:41 AM

Hey yeah actually when I noticed that I cant figure out how to paste the variant in normally without tranposing it I tried to figure it out myself. I thought it would be an easy job but cant find the function for it!

Does anyone know how to paste in the data without transposing it?

Cheers

Jag

**romperstomper** · 11-18-2009, 10:50 AM

Please Login or Register  to view this content.

**therealjag** · 11-18-2009, 10:56 AM

Lol damn I knew it would have been easy but never knew it was that easy!..cheers for the wisdom romperstomper and cheers to DonkyOte for the original solution

Jag