Copying simple form data into new databse
Closed
rosysnozzy
Posts
1
Registration date
Monday February 10, 2014
Status
Member
Last seen
February 10, 2014
-
Feb 10, 2014 at 06:10 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 10, 2014 at 12:04 PM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 10, 2014 at 12:04 PM
Related:
- Copying simple form data into new databse
- Wpan full form - Guide
- Tmobile data check - Guide
- Simple diagram of hard disk - Guide
- Protect pdf from copying - Guide
- Instagram appeal form for disabled account - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
555
Feb 10, 2014 at 12:04 PM
Feb 10, 2014 at 12:04 PM
Hi Ros,
This is a very simple macro that simply copies the data from Sheet1 and paste it to the first available row in Sheet2.
Note that when not all three cells contain data, the first available rows are going to differ between columns.
Here is the code:
In case you don't know:
Hit Alt+F11 when Excel is active to launch the Microsoft Visual Basic window.
Goto top menu > insert > Module and paste the above code into the big white field.
You can close this window now, which returns you back to the Excel window.
Now hit Alt+F8, which displays all macro's. Now double-click RunMe to run the code/macro.
Let me know if I can help you further.
Best regards,
Trowa
This is a very simple macro that simply copies the data from Sheet1 and paste it to the first available row in Sheet2.
Note that when not all three cells contain data, the first available rows are going to differ between columns.
Here is the code:
Sub RunMe()
Sheets("Sheet2").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("A2").Value
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("B2").Value
Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("C2").Value
End Sub
In case you don't know:
Hit Alt+F11 when Excel is active to launch the Microsoft Visual Basic window.
Goto top menu > insert > Module and paste the above code into the big white field.
You can close this window now, which returns you back to the Excel window.
Now hit Alt+F8, which displays all macro's. Now double-click RunMe to run the code/macro.
Let me know if I can help you further.
Best regards,
Trowa