Копировать ячейку если значения изменились

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать ячейку если значения изменились (Макросы/Sub)

Леонид84

Дата: Воскресенье, 17.08.2014, 20:56 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 26

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

В данном макросе производится копирование ячейки, если секунды системного времени равны нолю
Требуется подправить макрос
Убрать копирование (по секундам)
А добавить ( Копирование ячейки на другой лист если значение в ячейках Лист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]
==========================================

Сообщение отредактировал Serge_007 - Воскресенье, 17.08.2014, 22:54

Ответить

RAN

Дата: Воскресенье, 17.08.2014, 22:00 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

100% по вашему заказу
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("A8:G8")) Is Nothing Then
         Target.Copy Лист2.Range("A" & Лист2.Range("A2").End(xlDown).Row + 1)
     End If
End Sub

[/vba]
И 100% не то, что вам нужно.

Быть или не быть, вот в чем загвоздка!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать ячейку если значения изменились (Макросы/Sub)

Страница 1 из 1
1