Is there a shorthand way to do add a set of different values to a range, as shown in this incorrect
code, which would set E4 to "A31", E5 to "Q12" and E6 to "J13"?

Worksheets("Sheet1").Range("E4:E6").Value = {"A31", "Q12", "J13"}

You must separate each range:

Range("E4").value = Range("A31").value
Range("E5").value = Range("Q12").value
Range("E6").value = Range("J13").value

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Is there a shorthand way to do add a set of different values to a range, as shown in this incorrect
code, which would set E4 to "A31", E5 to "Q12" and E6 to "J13"?

Worksheets("Sheet1").Range("E4:E6").Value = {"A31", "Q12", "J13"}

Thanks Michael.

My example was a bit confusing. "A31", "Q12", "J13" is data that goes into cells as values, rather
than cell numbers.



"Michael" wrote in message
...
You must separate each range:

Range("E4").value = Range("A31").value
Range("E5").value = Range("Q12").value
Range("E6").value = Range("J13").value

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Is there a shorthand way to do add a set of different values to a range, as shown in this
incorrect
code, which would set E4 to "A31", E5 to "Q12" and E6 to "J13"?

Worksheets("Sheet1").Range("E4:E6").Value = {"A31", "Q12", "J13"}

Try this:
Range("E4").value = "A31"
Range("E5").value = "Q12"
Range("E6").value = "J13"

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Thanks Michael.

My example was a bit confusing. "A31", "Q12", "J13" is data that goes into cells as values, rather
than cell numbers.



"Michael" wrote in message
...
You must separate each range:

Range("E4").value = Range("A31").value
Range("E5").value = Range("Q12").value
Range("E6").value = Range("J13").value

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Is there a shorthand way to do add a set of different values to a range, as shown in this
incorrect
code, which would set E4 to "A31", E5 to "Q12" and E6 to "J13"?

Worksheets("Sheet1").Range("E4:E6").Value = {"A31", "Q12", "J13"}

Sub setValues()
Dim myValues(2) As Variant
Dim v As Variant

myValues(0) = "A31"
myValues(1) = "Q12"
myValues(2) = "J13"

i = 4
For Each v In myValues
Range("E" & i).Value = v
i = i + 1
Next
End Sub

"Michael" wrote:

Try this:
Range("E4").value = "A31"
Range("E5").value = "Q12"
Range("E6").value = "J13"

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Thanks Michael.

My example was a bit confusing. "A31", "Q12", "J13" is data that goes into cells as values, rather
than cell numbers.



"Michael" wrote in message
...
You must separate each range:

Range("E4").value = Range("A31").value
Range("E5").value = Range("Q12").value
Range("E6").value = Range("J13").value

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Is there a shorthand way to do add a set of different values to a range, as shown in this
incorrect
code, which would set E4 to "A31", E5 to "Q12" and E6 to "J13"?

Worksheets("Sheet1").Range("E4:E6").Value = {"A31", "Q12", "J13"}

Thanks Michael


"Michael" wrote in message
...
Try this:
Range("E4").value = "A31"
Range("E5").value = "Q12"
Range("E6").value = "J13"

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Thanks Michael.

My example was a bit confusing. "A31", "Q12", "J13" is data that goes into cells as values, rather
than cell numbers.



"Michael" wrote in message
...
You must separate each range:

Range("E4").value = Range("A31").value
Range("E5").value = Range("Q12").value
Range("E6").value = Range("J13").value

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Jon" wrote:

Is there a shorthand way to do add a set of different values to a range, as shown in this
incorrect
code, which would set E4 to "A31", E5 to "Q12" and E6 to "J13"?

Worksheets("Sheet1").Range("E4:E6").Value = {"A31", "Q12", "J13"}