Добрый день!
Вот часть кода (файл не выкладываю, т.к. много записей, а при создании примера все работает хз почему).
Код |
---|
Dim x, y(), i&, j&, s$, k&
With Sheets("Исходная")
If .ListObjects(1).ShowAutoFilter Then .ListObjects(1).Range.AutoFilter
End With
x = Range("tTable").Value
ReDim y(1 To UBound(x), 1 To 73)
|
На строке
x = Range("tTable").Value вылетает ошибка
Цитата |
---|
Overflow error 6. tTable |
- обозначена как умная таблица.
Помогите пожалуйста в чем может быть причина данной ошибки? Причем с разными данными ошибка может и не возникать (даже на больших диапазонах), то есть подозреваю, что может быть проблема в самой таблице?