1 Attachment(s)
Copy Paste Data from Sheet 1 to Sheet 2
Hello,
Got 2 sheets Sheet1 and Sheet2.
Sheet1 is were all the datas are maintained and Sheet2 is were report is generated from Sheet1.
The report is generated based on specific columns from Sheet1 and then pasted to specific columns in Sheet2.
Below is the code which achieves this :
Code:
Private Sub CommandButton1_Click()
Sheets("Sheet1").Columns("A").Copy Sheets("Sheet2").Columns("O")
Sheets("Sheet1").Columns("B").Copy Sheets("Sheet2").Columns("H")
Sheets("Sheet1").Columns("C").Copy Sheets("Sheet2").Columns("F")
Sheets("Sheet1").Columns("D").Copy Sheets("Sheet2").Columns("P")
Sheets("Sheet1").Columns("E").Copy Sheets("Sheet2").Columns("A")
Sheets("Sheet1").Columns("F").Copy Sheets("Sheet2").Columns("D")
Sheets("Sheet1").Columns("G").Copy Sheets("Sheet2").Columns("K")
Sheets("Sheet1").Columns("H").Copy Sheets("Sheet2").Columns("I")
Sheets("Sheet1").Columns("I").Copy Sheets("Sheet2").Columns("J")
Sheets("Sheet1").Columns("J").Copy Sheets("Sheet2").Columns("L")
Sheets("Sheet1").Columns("K").Copy Sheets("Sheet2").Columns("B")
Sheets("Sheet1").Columns("L").Copy Sheets("Sheet2").Columns("G")
Sheets("Sheet1").Columns("M").Copy Sheets("Sheet2").Columns("E")
End Sub
Looking for few additions as below :
1) Whenever the report is generated Column N in Sheet2 should also be updated with number 1.
2) Since the data in Sheet1 is vast, I need a pop-up box asking for row number and performs the above task from the row number specified and paste the data on the next empty row in Sheet2.
3) Need a button on Sheet2 which will run the macro.
Have attached sample sheet with Dummy Data