Два листа - два события, одновременность срабатывания двух макросов

[strannick]

А тут что я не так описал? Ругается на "="

Private Sub Worksheet_Calculate()
Dim LastRow&
LastRow = Cells(Rows.Count, "K").End(xlUp).Row
If LastRow = "open" Is Nothing Then
If LastRow = "close" Then
Sheets("PostGrup").Range("A1") = Cells(LastRow, "K" - 10)
End If
End If
End Sub

[Hugo121]

Nothing - это свойство объекта.

[doober]

No comment

     Dim LastRow&  ' равносильно  As Long
        LastRow = Cells(Rows.Count, "K").End(xlUp).Row' пока единственная правильная строка кода
        If LastRow = "open" Is Nothing Then 'Если число равно тексту и и все это  пустота
                If LastRow = "close" Then        'Если число равно тексту
                        Sheets("PostGrup").Range("A1") = Cells(LastRow, "K" - 10)  '  то строка равна непонятно чему,не то тексту ,не то числу
                End If
        End If

[strannick]

Понял, что смешал переменные с текстом. Спасибо за тычок носом, буду распутывать. Чего-то я сегодня вообще не в теме....

[strannick]

Тыкните, что я тут попутал?


Private Sub Worksheet_Calculate()
Dim LastRow$
Dim myString1$
Dim myString2$
LastRow = Cells(Rows.Count, 11).End(xlUp).Row
myString1 = "open"
myString2 = "close"
If (LastRow = myString1) Is Nothing Then
If (LastRow = myString2) Then
Sheets("PostGrup").Range("A1") = Cells(LastRow, 2)
End If
End If
End Sub

Опять попутал переменные?

[SAS888]

Если значение последней заполненной ячейки в столбце 11 равно переменной "myString2", то оно однозначно не равно переменной "myString1". Т. е. у Вас лишнее (и синтаксически неправильное) условие. Наверное, Вы имели ввиду это?

Private Sub Worksheet_Calculate()
    Dim Last As Range, myString2 As String
    Last = Cells(Rows.Count, 11).End(xlUp): myString2 = "close"
    If Last = myString2 Then Sheets("PostGrup").Range("A1") = Cells(Last.Row, 2)
End Sub

[strannick]

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

Если значение последней заполненной ячейки в столбце 11 равно переменной "myString2", то оно однозначно не равно переменной "myString1". Т. е. у Вас лишнее (и синтаксически неправильное) условие. Наверное, Вы имели ввиду это?

Private Sub Worksheet_Calculate()
    Dim Last As Range, myString2 As String
    Last = Cells(Rows.Count, 11).End(xlUp): myString2 = "close"
    If Last = myString2 Then Sheets("PostGrup").Range("A1") = Cells(Last.Row, 2)
End Sub

Не, не так. Видно, я вообще накрутил. Я пытаюсь отловить изменения в ячейках столбца К. Меняются они формулой и принимают значения либо "open", либо "close". Меняться могут в произвольном порядке (то есть "не последнее"). Надо отследить изменение в ячейке, перенести значение второго столбца изменившейся строки на другой лист в ячейку А1:

Sheets("PostGrup").Range("A1") = Cells(Last.Row, 2)
и запустить макрос (ну это я сам допишу).

[Hugo121]

Создайте публичный массив, в который берите все подконтрольные данные при открытии книги.
При пересчёте берите их же в другой массив, сравниваете массивы. Определяете изменившиеся ячейки.
Берёте в публичный массив новые данные.

[strannick]

Я тут на сайте вот такую конструкцию нашел:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("e26:f113", "e1616")) Is Nothing Then Exit Sub
Processing
End Sub

Private Sub Worksheet_Calculate()
Processing
End Sub

Private Sub Processing()
For Each a In Range("G26:G113").Cells
Application.EnableEvents = False
If a.Value = "?????????????" Then a.Value = ""
If (IsError(a.Offset(0, -1)) = False) And (IsError(a.Offset(0, -2)) = False) Then
If (a.Offset(0, -2).Value <> "") And (a.Offset(0, -1).Value <> "") Then
If ((Abs(a.Offset(0, -2).Value) > Range("d16").Value) Or (Abs(a.Offset(0, -1).Value) > Range("e16").Value)) And (a.Value = "") Then
a.Value = "?????????????"
End If
End If
End If
Application.EnableEvents = True
Next
End Sub

Может ее использовать?

Извините, что целиком выложил Вот ссылка нашлась http://programmersforum.ru/showthrea...heet_Calculate

[Hugo121]

Долго.
И не вижу тут анализа на изменение.