help with writing code efficiently

[maverick93]

I have two worksheets and using a command button I would like to make all of the values the cells of ActiveSheet.range("D1:K40") = the values in Sheets("2").Range("D1:K40"). The problem is that when i do this nothing happens however if do it for an individual cell it works.

I guess what I'm asking is there an efficient way to write the code so that each of the cells in Range("D1:K40")

I can't use the cut an paste method because there are merged cells in one sheet and the formatting isn't exactly the same.

Private Sub CommandButton1_Click()

ActiveSheet.Range("D1") = Sheets("2").Range("D1")
ActiveSheet.Range("E1") = Sheets("2").Range("E1")
ActiveSheet.Range("F1") = Sheets("2").Range("D1")
...
ActiveSheet.Range("D2") = Sheets("2").Range("D2")
ActiveSheet.Range("E2") = Sheets("2").Range("E2")
ActiveSheet.Range("F2") = Sheets("2").Range("D2")

End Sub

Thanks for any help

 

[FormR]

Hi, you could try like this.

ActiveSheet.Range("D1:K40").Value = Sheets("2").Range("D1:K40").Value

 

[dmt32]

hi,
try

Private Sub CommandButton1_Click()

    Sheets("2").Range("D1:K40").Copy ActiveSheet.Range("D1")


End Sub

this however, copies everything
Dave

 

[maverick93]

Oh boy!!! Thank you for the help and more importantly thank you for not making fun of me!!!

 

[dmt32]

This is friendly welcoming site supported by volunteers to provide assistance to anyone having difficulty with Excel, VBA etc regardless of their ability - poking fun I think I can say, would not be expected from any contributor.

Glad you found a resolution for your requirement – we appreciated the feedback.

Dave