Макрос Скрытия строк в листе

[IgorGO]

))))
это не по моему макросу, а по Вашему))
насколько понял что там происходит, настолько вставил цикл от 7 до 100, стараясь максимально оставить все как было.

а при выполнении каких условий что очищать - решайте сами (или рассказывайте задачу детальнее)

[diffuser]

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

))))
это не по моему макросу, а по Вашему))
насколько понял что там происходит, настолько вставил цикл от 7 до 100, стараясь максимально оставить все как было.

а при выполнении каких условий что очищать - решайте сами (или рассказывайте задачу детальнее)

Сорри)

Необходимо просматривать все ячейки столбца С с С7 по С100. Если по пересчету в С7 появляется новое значение (в С7 находится формула, которая извлекает числовое значение из другого файла), то присваиваем ячейке L7 значение 1, очищаем содержимое D7,E7 и J7, а затем присваиваем L7 значение 0.
Если по пересчету в С8 появляется новое значение (в С8 находится формула, которая извлекает числовое значение из другого файла), то присваиваем ячейке L8 значение 1, очищаем содержимое D8,E8 и J8, а затем присваиваем L8 значение 0.
И так далее до С100.

Т.е. при срабатывании макрос должен просматривать каждую ячейку в столбце С, находить в них изменения и если находятся числовые отличия - очищать соответствующие D,E и J.

[IgorGO]

Если по пересчету в С7 появляется новое значение

а где взять старое?

Если по пересчету в С8 появляется новое значение

а где взять старое? ... и так до строки 100

[diffuser]

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

а где взять старое?

Если по пересчету в С8 появляется новое значение

а где взять старое? ... и так до строки 100

Ну в моем коде ведь происходило сравнение старого значения с новым по ячейке C7.

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

Private Sub Worksheet_Calculate()
 Application.EnableEvents = False
Static OldVal1 As Variant, OldVal2 As Variant
If Range("C7").Value <> OldVal1 Then
    OldVal1 = Range("C7").Value
    Range("L7") = 1
If [L7] = "1" Then Range("D7:E7,J7").ClearContents
Range("L7") = 0
End If
 Application.EnableEvents = True
End Sub

[IgorGO]

1  for r = 7 to 100
2  If cells(r,3).Value <> OldVal1 Then
3      OldVal1 = cells(r,3).Value
4      cells(r,12) = 1
5      If cells(r,12) = "1" Then cells(r,4).resize(1,2).ClearContents: cells(r,10).ClearContents
6      cells(r,12) = 0
7    End If
8  next

уважаемый,
в Вашем коде присутсвует загадочная переменная OldVal1, которая, судя по названию, должна сожержать старое значение, НО НИГДЕ НЕ ВИДНО когда ей єто старое значение присваивается - это раз!

расмотрим цикл:
стартует все с r = 7
в строке 2 ячейка (7,3) сравнивается с загадочной OldVal1
-- если они равны - ничего не происходит цикл переходит в след.строку и теперь с загадочной OldVal1 будет сличена ячейка(8,3)
-- если не равны OldVal1 получит значение из ячейки (7,3), будут проделаны еще некоторые операции и цикл перейдет в след. строку (8), и теперь уже с OldVal1 (фактически с ячейкой (7,3) будет сравниваться ячейка (8,3). Вы этого добивались? я очень сильно сомневаюсь, что сравнивать надо было эти значения

[diffuser]

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

1  for r = 7 to 100
2  If cells(r,3).Value <> OldVal1 Then
3      OldVal1 = cells(r,3).Value
4      cells(r,12) = 1
5      If cells(r,12) = "1" Then cells(r,4).resize(1,2).ClearContents: cells(r,10).ClearContents
6      cells(r,12) = 0
7    End If
8  next

уважаемый,
в Вашем коде присутсвует загадочная переменная OldVal1, которая, судя по названию, должна сожержать старое значение, НО НИГДЕ НЕ ВИДНО когда ей єто старое значение присваивается - это раз!

расмотрим цикл:
стартует все с r = 7
в строке 2 ячейка (7,3) сравнивается с загадочной OldVal1
-- если они равны - ничего не происходит цикл переходит в след.строку и теперь с загадочной OldVal1 будет сличена ячейка(8,3)
-- если не равны OldVal1 получит значение из ячейки (7,3), будут проделаны еще некоторые операции и цикл перейдет в след. строку (8), и теперь уже с OldVal1 (фактически с ячейкой (7,3) будет сравниваться ячейка (8,3). Вы этого добивались? я очень сильно сомневаюсь, что сравнивать надо было эти значения

IgorGO, здравствуйте! Видимо, из-за своей неграмотности в VBA - не оч понимаю то, что сделал, так что еще раз извиняюсь.

Вот, что необходимо.

Берем ячейку С7. Запоминаем ее старое значение. Меняю в другом файле значение. Происходит пересчет по формуле. Сравниваем старое и новое значения. Если новое - по формуле значение в С7 меняется, а по макросу присваиваем ячейке L7 значение 1, очищаем содержимое D7,E7 и J7, а затем присваиваем L7 значение 0. Если оно не отличается, переходим на следующую строку и сравниваем С8.

И вот таким образом если в диапазоне С7:С100 происходят изменения - должен срабатывать этот макрос анализа по каждой строке диапазона.

[IgorGO]

Берем ячейку С7. Запоминаем ее старое значение

и как часто мы это делаем?

[diffuser]

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

и как часто мы это делаем?

Вот это даже не знаю. Может запоминать значения после каждого срабатывания макроса?! Т.е. сработал, прошел с 7й строки до 100й, запомнил текущие значения.

[diffuser]

IgorGO, прошу прощения за беспокойство. Вариантов нет?

[IgorGO]

вариантов полно. желание отсутсвует...
см. вложение, может быть как-то так