Submit button Macro
Closed
ECuda
-
Aug 25, 2011 at 05:13 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Aug 26, 2011 at 07:16 AM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Aug 26, 2011 at 07:16 AM
Hello,
I need a macro that will be assigned to a "Submit" button that will move data from Column H on my "Data_Entry" sheet to a different column each week on my "Database" sheet. The "Database" columns are titled by weekly dates. The information is input in the data entry table every Tuesday then I need the data for THAT date to be posted over on the database table in the appropriate column. Or, it could be the next "EMPTY" column. The database will start with Column B. I would like to set it for 1 complete year. Please help if possible. I am fairly new at macros and I really need the help. Thanks.
I need a macro that will be assigned to a "Submit" button that will move data from Column H on my "Data_Entry" sheet to a different column each week on my "Database" sheet. The "Database" columns are titled by weekly dates. The information is input in the data entry table every Tuesday then I need the data for THAT date to be posted over on the database table in the appropriate column. Or, it could be the next "EMPTY" column. The database will start with Column B. I would like to set it for 1 complete year. Please help if possible. I am fairly new at macros and I really need the help. Thanks.
Related:
- Submit button Macro
- Submit request free fire - Guide
- At button - Guide
- Ps3 controller reset button - Guide
- Where is the subtitle button on lg remote - Guide
- How to answer call with volume button android - Guide
1 response
venkat1926
Posts
1863
Registration date
Sunday June 14, 2009
Status
Contributor
Last seen
August 7, 2021
811
Aug 26, 2011 at 07:16 AM
Aug 26, 2011 at 07:16 AM
try this macro
Sub test()
With Worksheets("data entry")
.Columns("H:H").Copy
With Worksheets("database")
.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial
End With
End With
Application.CutCopyMode = False
End Sub
