Get data into worksheet from User Defined Type

[Richard Schollar]

Hi All

Given that I have the following UDT:

Type myString
   s1 As String * 100
   s2 As String * 100
   s3 As String * 100
   s4 As String * 100
   s5 As String * 100
End Type

What is the quickest way for me to enter each element into contiguous cells, eg Range("A1:A5")?

I could write:

Range("A1").Value = myString.s1
Range("A2").Value = myString.s2
'etc etc

But I think (hope) there is a much quicker all-in-one-go way of doing it.

Thanks for any replies.

 

[JimB]

This is what I came up with...

With myString
    Range("A1:A5") = Application.WorksheetFunction.Transpose(Array(.s1, .s2, .s3, .s4, .s5))
End With

 

[Richard Schollar]

Hi Jim

Thanks for that - yes, I think that may well be what I will end up using.