Set range to value from another sheet
 

What's wrong with this code?

Range("Sheet1!B4:AE4") = Cells(2, 1)

This is written in the Sheet2 code, and it's supposed to change a range
of cells on Sheet1 to a single value set on Sheet2. I get the 1004 error
(i.e. undefined error).

Gustaf

Set range to value from another sheet
 

Hi Gustaf

I'm not sure if you can apply a value to a whole range without
iterating through it but the code below will do what you want

Option Explicit
Dim MyCell, MyRng As Range
Dim MyStr As String

Private Sub CommandButton1_Click()

Set MyRng = Sheets("Sheet1").[B4:AE4]

MyStr = Cells(2, 1).Value

For Each MyCell In MyRng

MyCell.Value = MyStr

Next

End Sub

Hope this helps

Steve

Set range to value from another sheet
 

Incidental wrote:

I'm not sure if you can apply a value to a whole range without
iterating through it but the code below will do what you want

If done on the same sheet, you can apply a value to a whole range. So
this is something that happens only when you try apply it on another
sheet. But thanks for the solution. I'll try that.

Gustaf

Set range to value from another sheet
 

Sheet1.Range("B4:AE4").Value = Cells(2, 1).Value

--
Tim Zych
SF, CA

"Gustaf" wrote in message
...
What's wrong with this code?

Range("Sheet1!B4:AE4") = Cells(2, 1)

This is written in the Sheet2 code, and it's supposed to change a range of
cells on Sheet1 to a single value set on Sheet2. I get the 1004 error
(i.e. undefined error).

Gustaf

Set range to value from another sheet
 

Tim Zych wrote:
Sheet1.Range("B4:AE4").Value = Cells(2, 1).Value

Thank you! That works.

Gustaf