Trying to create an order sheet
Solved/Closed
JesterGrafix
Posts
2
Registration date
Saturday 27 August 2016
Status
Member
Last seen
28 August 2016
-
27 Aug 2016 à 12:07
vcoolio Posts 1411 Registration date Thursday 24 July 2014 Status Contributor Last seen 6 September 2024 - 29 Aug 2016 à 04:03
vcoolio Posts 1411 Registration date Thursday 24 July 2014 Status Contributor Last seen 6 September 2024 - 29 Aug 2016 à 04:03
Related:
- Order sheet in excel
- How to copy data from one excel sheet to another - Guide
- Excel hyperlink to another sheet - Guide
- Excel mod apk for pc - Download - Spreadsheets
- Little alchemy cheat sheet - Guide
- How to copy data to multiple worksheets in Excel - Guide
2 responses
vcoolio
Posts
1411
Registration date
Thursday 24 July 2014
Status
Contributor
Last seen
6 September 2024
262
27 Aug 2016 à 19:52
27 Aug 2016 à 19:52
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
Posts
1411
Registration date
Thursday 24 July 2014
Status
Contributor
Last seen
6 September 2024
262
29 Aug 2016 à 04:03
29 Aug 2016 à 04:03
Hello JesterGrafix,
You're welcome. Glad that I could help.
Cheerio,
vcoolio.
You're welcome. Glad that I could help.
Cheerio,
vcoolio.

28 Aug 2016 à 14:57