ExcelBanter - View Single Post

Pistolade

Quote:

Originally Posted by L. Howard

On Monday, April 14, 2014 2:35:43 PM UTC-7, Pistolade wrote:
No matter what I do I just cant get it to go to the right position. If

it worked correctly the macro would copy cells A2:O33, copy them,

activate sheet "Variables QS", Then select the next open cell in column

B and paste the earlier selection.

That is it. and I just cant get it to work, I never had this issue

before.

Heres the code im using:

Code:

--------------------

Sub SavingTable()

'

' SavingTable Macro

'

'

Range("A2:O33").Select

Selection.Copy

Sheets("Variables QS").Select

Range("B1").End(xlDown).Offset(-1,0).Select

ActiveSheet.Paste

Sheets("Variables").Select

Range("G1").Select

Selection.Copy

Sheets("VariablesQS").Select

Range("A1").End(xlDown).Offset(-1,0).Select

ActiveSheet.Paste

End Sub

Pistolade

Try to work this into your code, no need to select.

Range("A2:O33").Copy Sheets("Variables QS").Range("B" & Rows.Count).End(xlUp)(2)

Regards,
Howard

Code:

 
Sub SavingTable()
'
' SavingTable Macro
'
NewJob = InputBox("Enter job name", "Job Label")
'
    Range("A2:O33").Copy
    Sheets("VariablesQS").Activate
    Range("C" & Rows.Count).End(xlUp).Offset(1, -1).Select
    ActiveSheet.Paste
    ActiveWorkbook.Names.Add Name:="VariablesFor" & NewJob, RefersTo:=Selection
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = NewJob
    Sheets("Variables").Activate
    
End Sub

This is what I ended up going with, and its just about right (for anyone who is looking for a fix)