Добрый день!
Имеется макрос:
Sub info1()
Dim info1 As String
If Application.ThisWorkbook.Sheets(1).Cells(29, 16) > Application.ThisWorkbook.Sheets(1).Cells(28, 16) Then
Sheets(8).Cells(73, 82) = "Используется первый вид транспорта до пункта назначения"
Else
Sheets(8).Cells(73, 82) = "Первый вид транспорта до пункта назначения не используется"
End If
End Sub
Нужно сделать так, чтобы он срабатывал каждый раз, когда меняются значения в листе 1, ячейка 29;16.
Прошу помочь!
Имеется макрос:
Sub info1()
Dim info1 As String
If Application.ThisWorkbook.Sheets(1).Cells(29, 16) > Application.ThisWorkbook.Sheets(1).Cells(28, 16) Then
Sheets(8).Cells(73, 82) = "Используется первый вид транспорта до пункта назначения"
Else
Sheets(8).Cells(73, 82) = "Первый вид транспорта до пункта назначения не используется"
End If
End Sub
Нужно сделать так, чтобы он срабатывал каждый раз, когда меняются значения в листе 1, ячейка 29;16.
Прошу помочь!
