Insert Data from one sheet to another
Closed
AhmedRhab
Posts
3
Registration date
Saturday January 11, 2014
Status
Member
Last seen
January 12, 2014
-
Jan 11, 2014 at 06:45 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Jan 13, 2014 at 11:37 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Jan 13, 2014 at 11:37 PM
Related:
- Insert Data from one sheet to another
- Transfer data from one excel worksheet to another automatically - Guide
- Google sheet right to left - Guide
- How to insert photo in word for resume - Guide
- Tmobile data check - Guide
- Insert checkmark in word - Guide
5 responses
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Jan 12, 2014 at 12:19 AM
Jan 12, 2014 at 12:19 AM
try this (whichever sheet is active)
Sub Save()
'Range("A6:I6").Select
'Selection.Copy
'Sheets("Sheet2").Select
'Range("A2:I2").Select
'ActiveSheet.Paste
With Worksheets("sheet1")
.Range("A16:I16").Copy
With Worksheets("sheet2")
.Range("A1").PasteSpecial
End With
End With
End Sub
AhmedRhab
Posts
3
Registration date
Saturday January 11, 2014
Status
Member
Last seen
January 12, 2014
Jan 12, 2014 at 03:04 AM
Jan 12, 2014 at 03:04 AM
Hi
I gave it a try but its still deleting the old data and paste the new one, what am looking for is every time i press the button the new data in sheet1 go to a new row in sheet2
Regards
Ahmed
I gave it a try but its still deleting the old data and paste the new one, what am looking for is every time i press the button the new data in sheet1 go to a new row in sheet2
Regards
Ahmed
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Jan 12, 2014 at 06:26 AM
Jan 12, 2014 at 06:26 AM
did you remove tose lines with single apostrophe in the beginnbinbg and kept the rest.
ok I hgave modified the macro
Sub Save()
With Worksheets("sheet1")
.Range("A16:I16").Copy
With Worksheets("sheet2")
.cells(rows.count,"A").end(xlup).offset(1,0)
End With
End With
End Sub
ok I hgave modified the macro
Sub Save()
With Worksheets("sheet1")
.Range("A16:I16").Copy
With Worksheets("sheet2")
.cells(rows.count,"A").end(xlup).offset(1,0)
End With
End With
End Sub
AhmedRhab
Posts
3
Registration date
Saturday January 11, 2014
Status
Member
Last seen
January 12, 2014
Jan 12, 2014 at 11:00 AM
Jan 12, 2014 at 11:00 AM
well, this time am getting Syntax error, i believe no paste command in the macro at all?
Didn't find the answer you are looking for?
Ask a question
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Jan 13, 2014 at 11:37 PM
Jan 13, 2014 at 11:37 PM
SORRY you are3 right I have missed (this is because I have not tested-usually I test)
modify
.cells(rows.count,"A").end(xlup).offset(1,0) .pastespecial
modify
.cells(rows.count,"A").end(xlup).offset(1,0) .pastespecial