Inventory to Purchase order
Closed
Tammy
-
Feb 23, 2012 at 01:56 PM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 28, 2012 at 09:05 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Feb 28, 2012 at 09:05 AM
Related:
- Inventory to Purchase order
- Steam purchase history - Guide
- Ocs inventory download - Download - Business management
- How to download fifa 23 on pc without purchase - Download - Sports
- How to purchase games on ps4 - Guide
- How to block google play purchases - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
Feb 28, 2012 at 09:05 AM
Feb 28, 2012 at 09:05 AM
Hi Tammy,
Try this code:
Best regards,
Trowa
Try this code:
Sub Test()
Dim lRow, lRow2 As Integer
lRow = Sheets("Inventory").Range("A" & Rows.Count).End(xlUp).Row
For Each cell In Sheets("Inventory").Range("C2:C" & lRow)
If cell.Value > 0 Then
cell.EntireRow.Copy
lRow2 = Sheets("Purchase order").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
Sheets("Purchase order").Range("A" & lRow2).PasteSpecial
End If
Next cell
Application.CutCopyMode = False
End Sub
Best regards,
Trowa
