ExcelBanter - End(xlDown) Issue

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - End(xlDown) Issue (https://www.excelbanter.com/excel-discussion-misc-queries/450003-end-xldown-issue.html)

End(xlDown) Issue

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

End(xlDown) Issue

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

Quote:

Originally Posted by L. Howard (Post 1616985)

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)