В данном макросе производится копирование ячейки, если секунды системного времени равны нолю
Требуется подправить макрос
Убрать копирование (по секундам)
А добавить ( Копирование ячейки на другой лист если значение в ячейках Лист1.Range("A8:G8") изменилось ) если значение не изменилось то копировать ничего не нужно!
==========================================
[vba]Код
Public Sub ProcOnTimer(ByVal hWnd As Long, ByVal Msg As Long, _
ByVal idEvent As Long, ByVal TimeSys As Long)
If Second(Time) = 0 Then
If Not MN Then
MN = True
' копируется нужная строка без поиска.
Лист1.Range("A8:G8").Copy Лист2.Range("A" & Лист2.Range("A2").End(xlDown).Row + 1)
End If
Else
MN = False
End If
End Sub
[/vba]
==========================================