SUB Razdel()
DIM i AS LONG
     Set ShList = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShList.ListObjects("Склад_tb")
     i = 1
FOR Each StoreListRow In StoreListObj.ListRows
        IF StoreListRow.Range.Cells(i, 1) <> StoreListRow.Range.Cells(i + 1, 1) THEN
                AddRew.txb_arcticle.AddItem StoreListRow.Range.Cells(i, 1)
       END IF
NEXT StoreListRow
END SUB


SUB Groop()
     Set ShList = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShList.ListObjects("Склад_tb")
     AddRew.txb_desc.CLEAR
FOR Each StoreListRow In StoreListObj.ListRows
        IF StoreListRow.Range(1) = AddRew.txb_arcticle.Value THEN
                AddRew.txb_desc.AddItem StoreListRow.Range(2)
                END IF
                NEXT StoreListRow
END SUB

SUB SearhArticle() 'Вывод данных по значению Артикла(Шифр Металлопродукции)
DIM Cell AS Range
     Set ShStore = ThisWorkbook.Worksheets("Склад")
     Set StoreListObj = ShStore.ListObjects("Склад_tb")
     IF AddRew.txb_nuumber.Value = "" THEN
     AddRew.txb_nuumber.Value = ""
     END IF
     Set Cell = StoreListObj.ListColumns.Item(2).Range.Find(AddRew.txb_desc.Value, LookAt:=xlWhole)
     
     IF NOT Cell IS Nothing THEN
        AddRew.txb_nuumber.Value = Cell.Cells(1, 3)
     END IF
     END SUB