Trying to create an order sheet
Solved/Closed
JesterGrafix
vcoolio
- Posts
- 2
- Registration date
- Saturday August 27, 2016
- Status
- Member
- Last seen
- August 28, 2016
vcoolio
- Posts
- 1347
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- June 10, 2022
Related:
- Trying to create an order sheet
- How to create a master sheet from multiple sheets in excel ✓ - Forum - Excel
- Copy data from one excel sheet to another: automatically - Guide
- How to apply a function to multiple sheets on Excel - Guide
- How to automatically create a new sheet in excel - Guide
- How to fill multiple Excel sheets from master sheet - Guide
2 replies
vcoolio
Aug 27, 2016 at 07:52 PM
- Posts
- 1347
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- June 10, 2022
Aug 27, 2016 at 07:52 PM
Hello JesterGrafix,
Your post is oddly similar to the following:-
https://ccm.net/forum/affich-919767-creating-an-order
so it may be worth having a look at it although the other Poster has multiple sheets.
Anyway, a Worksheet_Change event may do the trick for you also , so, the following code placed in the Inventory sheet module should work :-
Now you can work away in the Inventory sheet and each time that you place a value in any cell in Column G (make sure that this is your last entry per row) and move to the next cell, the relevant row of data will be transferred to the Order sheet.
To implement the code, right click on the Inventory sheet tab and from the menu that appears, select "view code". In the big white field that then appears, paste the above code.
I hope that this helps.
Cheerio,
vcoolio.
Your post is oddly similar to the following:-
https://ccm.net/forum/affich-919767-creating-an-order
so it may be worth having a look at it although the other Poster has multiple sheets.
Anyway, a Worksheet_Change event may do the trick for you also , so, the following code placed in the Inventory sheet module should work :-
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Value = vbNullString Then Exit Sub If Intersect(Target, Columns("G:G")) Is Nothing Then Exit Sub Application.ScreenUpdating = False If Target.Value <> "" Then Target.EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2) End If Sheet2.Columns.AutoFit Application.CutCopyMode = False Application.ScreenUpdating = True End Sub
Now you can work away in the Inventory sheet and each time that you place a value in any cell in Column G (make sure that this is your last entry per row) and move to the next cell, the relevant row of data will be transferred to the Order sheet.
To implement the code, right click on the Inventory sheet tab and from the menu that appears, select "view code". In the big white field that then appears, paste the above code.
I hope that this helps.
Cheerio,
vcoolio.
vcoolio
Aug 29, 2016 at 04:03 AM
- Posts
- 1347
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- June 10, 2022
Aug 29, 2016 at 04:03 AM
Hello JesterGrafix,
You're welcome. Glad that I could help.
Cheerio,
vcoolio.
You're welcome. Glad that I could help.
Cheerio,
vcoolio.
Aug 28, 2016 at 02:57 PM