Insert Data from one sheet to anotherClosed

Question

Hi Guys

am new to Macro and looking for some help. i was trying to create a sheet to be entry data and the data to be saved in another tab without deleting the previous entered datam please find what i'm using bellow

Sub Save()

Range("A6:I6").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2:I2").Select
ActiveSheet.Paste
End Sub

venkat1926 · Answer

try this (whichever sheet is active)
Sub Save()'Range("A6:I6").Select'Selection.Copy'Sheets("Sheet2").Select'Range("A2:I2").Select'ActiveSheet.PasteWith Worksheets("sheet1").Range("A16:I16").CopyWith Worksheets("sheet2").Range("A1").PasteSpecialEnd WithEnd WithEnd Sub

AhmedRhab · Answer

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

venkat1926 · Answer

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

AhmedRhab · Answer

well, this time am getting Syntax error, i believe no paste command in the macro at all?

venkat1926 · Answer

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

Insert Data from one sheet to another

5 responses

Similar discussions

Subscribe To Our Newsletter!