Странная работа цикла

[valerij]

При вводе данных в Лист 7 при таком коде, сильно дергается кусор, я так понял, потому, что выполняется цикл в трех сравнениях для Листа 8, а во втором коде этот цикл выполняется при нахождении в Листе 8 и при переключении с Листа7 на Лист 8

If sh.Index > 6 Then
    With Sheets(8)
        .Cells(dat * 51 + 43, 10) = Sheets(7).Cells(dat * 51 + 41, 10)
    If .Cells(dat * 51 + 45, 7) > 0 Then .Cells(dat * 51 + 45, 5) = "Мы Должны"
        If .Cells(dat * 51 + 45, 7) < 0 Then .Cells(dat * 51 + 45, 5) = "НАМ Должны"
    If .Cells(dat * 51 + 45, 7) = 0 Then .Cells(dat * 51 + 45, 5) = ""
  End With
End If
Next dat
Application.EnableEvents = True
'Application.ScreenUpdating = True
   End Select
End Sub

А при таком коде, все ОК, но как может выполнятся цикл в (красном) если он закончился (синим)??

If sh.Index > 6 Then
    With Sheets(8)
        .Cells(dat * 51 + 43, 10) = Sheets(7).Cells(dat * 51 + 41, 10)
    End With
End If
If sh.Index = 8 Then
    If Cells(dat * 51 + 45, 7) > 0 Then Cells(dat * 51 + 45, 5) = "Мы Должны"
        If Cells(dat * 51 + 45, 7) < 0 Then Cells(dat * 51 + 45, 5) = "НАМ Должны"
    If Cells(dat * 51 + 45, 7) = 0 Then Cells(dat * 51 + 45, 5) = ""
End If
Next dat
Application.EnableEvents = True
'Application.ScreenUpdating = True
   End Select
End Sub
'#################################################
Private Sub Workbook_SheetActivate(ByVal sh As Object)
If sh.Index = 8 Then
    If Cells(dat * 51 + 45, 7) > 0 Then Cells(dat * 51 + 45, 5) = "Мы Должны"
        If Cells(dat * 51 + 45, 7) < 0 Then Cells(dat * 51 + 45, 5) = "НАМ Должны"
    If Cells(dat * 51 + 45, 7) = 0 Then Cells(dat * 51 + 45, 5) = ""
End If
End Sub

[valerij]

Что ни кто не может объяснить или нужно вложение?

[valerij]

Уважаемые спецы, че Вы молчите, вот сделал(не простое это дело) вложение.
1. Дергается
2. Не дергается, но цикл???

[EducatedFool]

1) Найди макрос Private Sub Workbook_SheetChange
В нём найди такой код:

Application.EnableEvents = False
'Application.ScreenUpdating = False

Зачем строка Application.ScreenUpdating = False закомментирована?????

Убери перед ней апостроф - и не будет дёргаться.
(кстати, у меня и так нисколько не дёргается...)

2)

Не дергается, но цикл???

Какой цикл? Уж ни этот ли?

Private Sub Workbook_SheetActivate(ByVal sh As Object)
    If sh.Index = 2 Then
        If Cells(dat * 51 + 45, 7) > 0 Then Cells(dat * 51 + 45, 5) = "Мы Должны"
        If Cells(dat * 51 + 45, 7) < 0 Then Cells(dat * 51 + 45, 5) = "НАМ Должны"
        If Cells(dat * 51 + 45, 7) = 0 Then Cells(dat * 51 + 45, 5) = ""
    End If
End Sub

Так это не цикл... обрабатывается только две ячейки в 45-й строке. (поскольку dat=0)

[valerij]

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

1)Зачем строка
Application.ScreenUpdating = False закомментирована???

Убери перед ней апостроф - и не будет дёргаться.
(кстати, у меня и так нисколько не дёргается...)

В том то и дело, вложение урезанное, дерается, по этому и закоментированна!

2)
Какой цикл? Уж ни этот ли?

Private Sub Workbook_SheetActivate(ByVal sh As Object)
    If sh.Index = 2 Then
        If Cells(dat * 51 + 45, 7) > 0 Then Cells(dat * 51 + 45, 5) = "Мы Должны"
        If Cells(dat * 51 + 45, 7) < 0 Then Cells(dat * 51 + 45, 5) = "НАМ Должны"
        If Cells(dat * 51 + 45, 7) = 0 Then Cells(dat * 51 + 45, 5) = ""
    End If
End Sub

Так это не цикл... обрабатывается только две ячейки в 45-й строке. (поскольку dat=0)

Да, dat=0, но если я ввожу данные в D1566, то уже обрабатывается, по чему -то Е1575 в листе КОТ????? Ага, тут я понял, почему!

Для файла 1.xls
И еще заметил, если ввожу ноль, дергается, а любое др. число, нет.
И если сначало ввести данные в Лист КОТ, то тогда в Листе РЫН, ни чего не дергается!

[valerij]

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

И еще заметил, если ввожу ноль, дергается, а любое др. число, нет.

Этот вопрос то же решил, объяснить не могу, заменил в:

If Cells(dat * 51 + 45, 7) = 0 Then Cells(dat * 51 + 45, 5) = ""
If Cells(dat * 51 + 45, 7) = 0 Then Cells(dat * 51 + 45, 5) = " "

И все стало ОК!