| Home |
| Search |
| Today's Posts |
|
|
|
#1
|
|||
|
|||
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
|
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
|
#3
|
|||
|
|||
|
Quote:
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
|
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| End(xlDown) | Excel Programming | |||
| A1:B(xlDown)? | Excel Programming | |||
| End(xldown) not always going to last cell? | Excel Programming | |||
| XlDown: Go to next blank row | Excel Programming | |||
| Excel VBA - Range(Selection, Selection.End(xlDown)).Name issue. | Excel Programming | |||
Hybrid Mode
