Setting varible to equal values of a # of cells

[mozart]

Is there a way of grabbing the values of a range of cells and assigning them to a string vairable.

For example if I had RED, BLUE, WHITE in cells A1 to A3 respectively, how could I get my variable strColors=RedBlueWhite

I have tried strColors=Range("A1:A3").value and that obviously did not work.

Assistance Appreciated.

[Carim]

Hi Mozart,

I hope this will be music to you ...


Sub RWB()
Dim RWB As String
RWB = Range("A1").Value & Range("A2").Value & Range("A3").Value
End Sub


HTH
Cheers
Carim

[Carim]

Hi Mozart,

I hope this will be music to you ...

Sub RWB()
Dim RWB As String
RWB = Range("A1").Value & Range("A2").Value & Range("A3").Value
End Sub

HTH
Cheers
Carim

[mozart]

Yes that would seem the way to do it but it could become painful if say your range was say 50 cells let alone 62k.

Thanks

[Carim]

Sub RWB()
Dim RWB As String
Dim i As Integer
For i = 1 To 50
RWB = RWB & Range("A" & i).Value
Next i
End Sub

All the Best
Carim

[Dana DeLouis]

Would this work for you using the later versions of Excel.
This demo starts at Cell A1 for a size of 50.

Sub Demo()
Dim Str As String
Dim n As Long

n = 50
Str = Join(WorksheetFunction.Transpose(Range("A1").Resize(n)),
vbNullString)
End Sub

--
HTH. :>)
Dana DeLouis
Windows XP, Office 2003


"mozart" <[email protected]> wrote in
message news:[email protected]...
>
> Yes that would seem the way to do it but it could become painful if say
> your range was say 50 cells let alone 62k.
>
> Thanks
>
>
> --
> mozart
> ------------------------------------------------------------------------
> mozart's Profile:
> http://www.excelforum.com/member.php...o&userid=13314
> View this thread: http://www.excelforum.com/showthread...hreadid=533112
>

[mozart]

Thanks Dana. That works nicely