Copy and paste from hidden sheet

[dwool40]

I am running the following code to copy and paste from a hidden sheet. I used macro recorder.

Sub test12()'
' test12 Macro
'


'
    Application.ScreenUpdating = False
    Sheets("Make Ready Board (2)").Visible = True
    Sheets("Make Ready Board (2)").Select
    Range("A2:R2").Select
    Selection.Copy
    Sheets("Make Ready Board").Select
    Range("A2:R2").Select
    ActiveSheet.Paste
    Sheets("Make Ready Board (2)").Select
    Range("G2").Select
    Application.CutCopyMode = False
    Sheets("Make Ready Board").Select
    Range("G2").Select
    Sheets("Make Ready Board (2)").Visible = False
    Application.ScreenUpdating = True

End Sub

I'm not an expert but I feel like this code can be cleaned up? Any help would be appreciated.

 

[MoshiM]

I am running the following code to copy and paste from a hidden sheet. I used macro recorder.

Sub test12()'
' test12 Macro
'


'
    Application.ScreenUpdating = False
    Sheets("Make Ready Board (2)").Visible = True
    Sheets("Make Ready Board (2)").Select
    Range("A2:R2").Select
    Selection.Copy
    Sheets("Make Ready Board").Select
    Range("A2:R2").Select
    ActiveSheet.Paste
    Sheets("Make Ready Board (2)").Select
    Range("G2").Select
    Application.CutCopyMode = False
    Sheets("Make Ready Board").Select
    Range("G2").Select
    Sheets("Make Ready Board (2)").Visible = False
    Application.ScreenUpdating = True

End Sub

I'm not an expert but I feel like this code can be cleaned up? Any help would be appreciated.

You don't need to make a sheet visible to read from it. Do all those selects after you have pasted serve a purpose?

Sub Move_Values() '


    Application.ScreenUpdating = False
    
     Sheets("Make Ready Board (2)").Range("A2:R2")=Sheets("Make Ready Board").Range("A2:R2")
 
    Application.ScreenUpdating = True


End Sub

 

[Trebor76]

Hi dwool40,

Maybe this:

Option Explicit
Sub Macro1()

    Sheets("Make Ready Board (2)").Range("A2:R2").Copy Destination:=Sheets("Make Ready Board").Range("A2")

End Sub

Regards,

Robert

 

[MoshiM]

You don't need to make a sheet visible to read from it. Do all those selects after you have pasted serve a purpose?

Sub Move_Values() '


    Application.ScreenUpdating = False
    
     Sheets("Make Ready Board (2)").Range("A2:R2")=Sheets("Make Ready Board").Range("A2:R2")
 
    Application.ScreenUpdating = True


End Sub

Switch the two sides if you are going to use mine

 

[LecrameMark]

Switch the two sides if you are going to use mine

I have the same problem, this is not working. Any other ideas??

 

[GirishDhruva]

What is the error you are facing, can you debug

 

[MoshiM]

I have the same problem, this is not working. Any other ideas??

Are your worksheet names accurate?

 

[dwool40]

You don't need to make a sheet visible to read from it. Do all those selects after you have pasted serve a purpose?

Sub Move_Values() '


    Application.ScreenUpdating = False
    
     Sheets("Make Ready Board (2)").Range("A2:R2")=Sheets("Make Ready Board").Range("A2:R2")
 
    Application.ScreenUpdating = True


End Sub

I need to keep a formula from the hidden sheet that may have been overwritten on the destination sheet.

 

[MoshiM]

I need to keep a formula from the hidden sheet that may have been overwritten on the destination sheet.

Check for accuracy. The selects may now be unnecessary.

    Sheets("Make Ready Board").Range("A2:R2").Value = Sheets("Make Ready Board (2)").Range("A2:R2").Value
    Sheets("Make Ready Board").Range("A2:R2").Formula = Sheets("Make Ready Board (2)").Range("A2:R2").Formula
    
    Sheets("Make Ready Board (2)").Range("G2").Select
    Sheets("Make Ready Board").Range("G2").Select

 

[dwool40]

Hi dwool40,

Maybe this:

Option Explicit
Sub Macro1()

    Sheets("Make Ready Board (2)").Range("A2:R2").Copy Destination:=Sheets("Make Ready Board").Range("A2")

End Sub

Regards,

Robert

Worked perfectly! Thanks, Robert!