VBA select multiple cells and output values in a list

[Newbie74]

Hi,

I would like to select multiple cells in VBA and output them into a selection of cells. However the output only shows the first value of the range. This is the code I have at the moment.

Sub CopyCells()


Dim CopyData As Single


CopyData = Range("f4, f7, h7, j8, l6, n7, n10").Value


Range("a1:a7") = CopyData




End Sub

 

[Chris Macro]

Try this out:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> CopyCells()<br><br><SPAN style="color:#00007F">Dim</SPAN> CopyData <SPAN style="color:#00007F">As</SPAN> Range<br><SPAN style="color:#00007F">Dim</SPAN> cell <SPAN style="color:#00007F">As</SPAN> Range<br><SPAN style="color:#00007F">Dim</SPAN> x <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br><br>x = 0<br><SPAN style="color:#00007F">Set</SPAN> CopyData = Range("F4,F7,H7,J8,L6,N7,N10")<br><br><SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> cell <SPAN style="color:#00007F">In</SPAN> CopyData<br>    Range("A1").Offset(x) = cell.Value<br>    x = x + 1<br><SPAN style="color:#00007F">Next</SPAN> cell<br><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[Newbie74]

Thanks Chris, that worked perfectly, and I really appreciate your help!

 

[Chris Macro]

No problem! Glad I could help you.