Обработчик события изменения в ячейке в Excel

[TorLink]

Гм, не пашет почему-то(
Я так понимаю, надо просто строчку заменить на ActiveSheet.UsedRange.Offset(1).Cle ar
? или процедуры добавить? В общем почему-то не работает ни так ни так(

[Hugo121]

Показывайте файл, где не работает - наладим.

[TorLink]

файл...
заменил строку, я так понимаю вы в редакторе пишете поэтому везде начало и конец процедуры)
или всё таки отдельно надо выносить?

Клёво, 10строк в 2 колонки + 3кб в архиве , как-то жестко))

[Hugo121]

Нормально всё работает - смотрите пошагово.
Но кроме того, что шапку оставляем - её ведь ещё и данными затирать не нужно - вот тут:

[a1].Resize(ii, 2) = b

Замените на

[a2].Resize(ii, 2) = b

И зачем там эти пустые модули - поубирайте, чтоб позже Вас с толку не сбивали.

[TorLink]

Сообщение от Hugo121

Нормально всё работает - смотрите пошагово.
Замените на

[a2].Resize(ii, 2) = b

И зачем там эти пустые модули - поубирайте, чтоб позже Вас с толку не сбивали.

Ага, не додумался что оно перетирается)
Да это понятно.. этож просто черновик, потом файлик нормально уже создам...
Спасибо, вроде работает

[TorLink]

А мб кто нить ещё подскажет, как через COM соединение вставить текст в модуль листа? Что-то типа: Sheets("Лист заказа"). module = "текст модуля"
Есть??

[Hugo121]

http://www.msoffice.nm.ru/faq/macros.htm
В районе 398

[TorLink]

Во, полезный FAQ. Thx

[TorLink]

Очередная проблемка(
ActiveWorkbook.VBProject.VBComponen ts(1).CodeModule.InsertLines 1, "Option Explicit"
Отрабатывает нормально, правда надо разрешить права в безопасности макросов...
НО, он записывает в Модуль Книги, а мен то надо в модуль листа...

при этом, например: WorkBooks.Sheets(1) не видит VBProject , как же добраться до его модуля??

Отбой, VBComponents это коллекция модулей оказывается((...

[TorLink]

Private Sub Worksheet_Activate()
    Dim a(), i&, ii& //создаем матрицу
    Cells.Clear
    a = Sheets("Лист заказа").UsedRange.Columns(1).Resize(, 5).Value //заполняем матрицу из первых колонок , расшряем + 5 колонок

    ReDim b(1 To UBound(a), 1 To 2) // из первой матрицы получаем вторую. Не совсем понятно как

    For i = 1 To UBound(a) цикл с одного по количество элементов первого массива

        If Len(a(i, 1)) Then //не совсем понял что за два параметра у массива
            
If IsNumeric(a(i, 1)) //Then то же самое. Видимо проверка на числовое значение.

                If a(i, 1) > 0 Then проверяем на ноль
                    ii = ii + 1 //инкремент
                    b(ii, 1) = a(i, 1) //заполняем вторую матрицу 
                    b(ii, 2) = a(i, 1) * a(i, 5) //...
                End If
            End If
        End If
    Next
    [a2].Resize(ii, 2) = b // тут просьба объяснить) понятно, что записываем полученную таблицу b, только не понятно как..
End Sub

В общем при изменении структуры колонок оно само собой ругается...
Надо бы подкорректировать, только вот не совсем разобрался с кодом(

With Sheets(""Сумма заказа"").UsedRange
.Resize(.Rows.Count - 1).Offset(1).Clear
End With

На этой строчке он тоже ругается, не понятно только как на это может повлиять что-то, ведь мы просто убираем одну строчку "Offset(1)" - это что?