Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Массив не заполняется всей информаций из XML

Автор eXtremer, 04.07.2012, 11:02

« назад - далее »

eXtremer

Добрый день,

Такая ситуация, worksheet "Work" берёт информацию из worksheet "XML" и создаёт массив, но непонытатно почему не показывает все данные которые имеется в XML, примерно 300 строк не попадают в таблицу (массив). Помогите разабратся.

Спасибо.

Файл весит больше чем 1 МБ так что я поднял его на файл хостинге:

Mirror1
Mirror2

*Автоматическое вычисления надо ждать минутку, грузится.

eXtremer

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Valida").Offset(columnOffset:=-1) = "`" Then Show_All: Exit Sub
If Target.Address = Range("valida").Address Then
    With Worksheets("XML")
        Set c = .ListObjects("List4").Range.Find(Target.Validation.Parent, LookIn:=xlValues)
        If Not c Is Nothing Then
            ActiveSheet.AutoFilter.Range.AutoFilter Field:=17, Criteria1:=c.Offset(columnOffset:=-1).Value
            Range("sb_total").Calculate
            ActiveSheet.AutoFilter.Range.Offset(2, 0).Resize(rowSize:=ActiveSheet.AutoFilter.Range.Rows.Count + 11, ColumnSize:=13).Select
        End If
    End With
Else
End If
End Sub

Sub Show_All()
    If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
    Range("sb_total").Calculate
    End If
End Sub

eXtremer