Need Help with code to "Paste into next available row"
 

I am trying to move the datavalues from row2(worksheet2,"a2:ab2") to
worksheet3 next available blank row then clear the contents from cells
(c2:c10) in worksheet1. This line of code works fine for everything but
pasting to the next available blank row in worksheet3. It pastes the data
into row19 everytime overwriting previously input data. Worksheet3 has column
headings in row1 and blank rows from a2:A64000, except for row19 obviously.
Everything in the code works correctly except for lines 5 & 6. The line
numbers are not part of the code. I added them to simply communications.

1 Sheets("Formulas").Select
2 ActiveSheet.Range("a2:ab2").Select
3 Selection.Copy
4 Sheets("OperationalRates").Select
5 LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
6 ActiveSheet.Rows(LastRow & ":" & LastRow).Select
7 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

8 Sheets("InputForm").Range("c2:c10").ClearContents

End Sub
--
dhunter43
The Performance Advantage, LLC

Need Help with code to "Paste into next available row"
 

code line 5 & 6 should be resp
LastRow = Range("A65500").End(xlUp).Row + 1
Range("A"&LastRow).Select

Hope this helps!!
--
Pranav Vaidya
VBA Developer
PN, MH-India


"dhunter43" wrote:

I am trying to move the datavalues from row2(worksheet2,"a2:ab2") to
worksheet3 next available blank row then clear the contents from cells
(c2:c10) in worksheet1. This line of code works fine for everything but
pasting to the next available blank row in worksheet3. It pastes the data
into row19 everytime overwriting previously input data. Worksheet3 has column
headings in row1 and blank rows from a2:A64000, except for row19 obviously.
Everything in the code works correctly except for lines 5 & 6. The line
numbers are not part of the code. I added them to simply communications.

1 Sheets("Formulas").Select
2 ActiveSheet.Range("a2:ab2").Select
3 Selection.Copy
4 Sheets("OperationalRates").Select
5 LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
6 ActiveSheet.Rows(LastRow & ":" & LastRow).Select
7 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

8 Sheets("InputForm").Range("c2:c10").ClearContents

End Sub
--
dhunter43
The Performance Advantage, LLC

Need Help with code to "Paste into next available row"
 

try this from anywhere in the workbook. I don't understand how line 8
pertains
Sub PasteValues()
Set ss = Sheets("formulas")
Set ds = Sheets("operationalrates")
ss.Range("a2:d2").Copy
ds.Range("a" & ds.Cells(Rows.Count, "a").End(xlUp).Row + 1) _
.PasteSpecial Paste:=xlPasteValues
'???
Sheets("InputForm").Range("c2:c10").ClearContents
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"dhunter43" wrote in message
...
I am trying to move the datavalues from row2(worksheet2,"a2:ab2") to
worksheet3 next available blank row then clear the contents from cells
(c2:c10) in worksheet1. This line of code works fine for everything but
pasting to the next available blank row in worksheet3. It pastes the data
into row19 everytime overwriting previously input data. Worksheet3 has
column
headings in row1 and blank rows from a2:A64000, except for row19
obviously.
Everything in the code works correctly except for lines 5 & 6. The line
numbers are not part of the code. I added them to simply communications.

1 Sheets("Formulas").Select
2 ActiveSheet.Range("a2:ab2").Select
3 Selection.Copy
4 Sheets("OperationalRates").Select
5 LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
6 ActiveSheet.Rows(LastRow & ":" & LastRow).Select
7 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

8 Sheets("InputForm").Range("c2:c10").ClearContents

End Sub
--
dhunter43
The Performance Advantage, LLC

Need Help with code to "Paste into next available row"
 

I get this error message
Run time error '1004'
Select method of Range class failed

with this line hilighted in the VBA editor.
Range("A"&LastRow).Select
--
dhunter43
The Performance Advantage, LLC


"Pranav Vaidya" wrote:

code line 5 & 6 should be resp
LastRow = Range("A65500").End(xlUp).Row + 1
Range("A"&LastRow).Select

Hope this helps!!
--
Pranav Vaidya
VBA Developer
PN, MH-India


"dhunter43" wrote:

I am trying to move the datavalues from row2(worksheet2,"a2:ab2") to
worksheet3 next available blank row then clear the contents from cells
(c2:c10) in worksheet1. This line of code works fine for everything but
pasting to the next available blank row in worksheet3. It pastes the data
into row19 everytime overwriting previously input data. Worksheet3 has column
headings in row1 and blank rows from a2:A64000, except for row19 obviously.
Everything in the code works correctly except for lines 5 & 6. The line
numbers are not part of the code. I added them to simply communications.

1 Sheets("Formulas").Select
2 ActiveSheet.Range("a2:ab2").Select
3 Selection.Copy
4 Sheets("OperationalRates").Select
5 LastRow = Cells(Rows.Count, "a").End(xlUp).Row + 1
6 ActiveSheet.Rows(LastRow & ":" & LastRow).Select
7 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

8 Sheets("InputForm").Range("c2:c10").ClearContents

End Sub
--
dhunter43
The Performance Advantage, LLC