import out of stock item to another sheet

[rapitorres]

Hi.

what i have here is a little inventory system and its working with barcode.
in the OUT sheet all out of stock is automatically marked red. im thinking is there a way that i can import all (0) or out of stock products
to a different sheet and automatically remove when Stocked, so that i can monitor all the OUT OF STOCK ITEMS

feel free to navigate to my simple inventory
btw due to large amount of data manual calculation is applied. please press F9 for calculation

030821.xlsm

drive.google.com

 

[rapitorres]

This script does this:
1. Deletes all rows on sheet named Out Of stock below row(1) I assume row(1) is a header row.
Let me know if you want that modified or modify yourself see note in script.
2. Any row on sheet named "Out" with a zero in column G will be copied to sheet name "Out Of Stock"

Sub Filter_Me_Please()
'Modified  3/12/2021  5:04:53 AM  EDT
Application.ScreenUpdating = False
Dim lastrow As Long
Dim lastrowa As Long
Dim c As Long
Dim s As Variant
c = 7
s = "0"
lastrow = Sheets("Out").Cells(Rows.Count, c).End(xlUp).Row
lastrowa = Sheets("Out Of Stock").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Out Of Stock").Rows(2).Resize(lastrowa).Delete 'modify 2 to 3 or 4 what ever you need

With Sheets("Out").Cells(1, c).Resize(lastrow)

    .AutoFilter 1, s
    counter = .Columns(c).SpecialCells(xlCellTypeVisible).Count
    If counter > 1 Then
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("Out Of Stock").Cells(2, 1)
    Else
        MsgBox "No values found"
    End If
    .AutoFilter
End With
Application.ScreenUpdating = True
End Sub

Thanks alot! let me try this. ill let you know.