Обращение не к умной таблице а к выбранному диапазону ячеек

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Обращение не к умной таблице а к выбранному диапазону ячеек (Формулы/Formulas)

baskakova7441

Дата: Среда, 08.09.2021, 16:24 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 20% ±

Ребята здравствуйте. Помогите на примере данного макроса, сделать обращение не к умной таблице, а к диапозону ячеек. Хочу избавится от умных таблиц, так как не учли момент что они не имеют общий доступ
[vba]

Код

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

[/vba]