Копирование данных из ячеек при изменении параметров и переход на следующую строчку.

[AMRAAM]

Здраствуйте.
Вот собственно вопрос: в книге Excel в листе 2 есть данные в ячейках А1, С1, Е1, G1, I1. При изменении значений этих данных они копируются в соответвующие ячейки листа 1 данной книги. Причём если значения ячеек изменились в листе 2 они пишутся в новой строчке соответсвующих столбцов (А, С, Е, G, I соответственно) листа 1.
Как можно реализовать данную программу в VBA Excel.
Благодарю за помощь.

[was3110]

реализовать не сложно (нахождение чистой строки и копирование), но событие записи на лист1 должно быть привязано не к изменению ячеек (раз их целых 5), а , например, к щелчку по кнопке...

[AMRAAM]

реализовать не сложно (нахождение чистой строки и копирование),

если не трудно можно листинг написать, а то я с программированием на ЯВУ не дружу

[doober]

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

( но событие записи на лист1 должно быть привязано не к изменению ячеек (раз их целых 5), а , например, к щелчку по кнопке...

Не согласен

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Static A: Static C: Static E: Static G: Static I
Dim CL As Byte, C_Rw As Long
CL = 0
If Target.Row = 1 Then
If A = "" Then A = [A1]: If C = "" Then C = [C1]
If E = "" Then E = [E1]: If I = "" Then I = [I1]
If G = "" Then G = [G1]
Select Case Target.Column
Case 1
CL = IIf(A = [A1], 0, 1)
A = [A1]
Case 3
CL = IIf(C = [C1], 0, 3)
C = [C1]
Case 5
CL = IIf(E = [E1], 0, 5)
E = [E1]
Case 7
CL = IIf(G = [G1], 0, 7)
G = [G1]
Case 9
CL = IIf(I = [I1], 0, 9)
I = [I1]
End Select
End If
If CL > 0 Then
C_Rw = Лист1.Columns(CL).SpecialCells(xlCellTypeConstants).Rows.Count + 1
If C_Rw = 0 Then C_Rw = 1
 Лист1.Cells(C_Rw, CL) = Me.Cells(1, CL)

End If
End Sub

учитывая

а то я с программированием на ЯВУ не дружу

Смотрите вложение

[SAS888]

Можно чуть проще:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A1,C1,E1,G1,I1]) Is Nothing Then _
        Sheets("Лист1").Cells(Rows.Count, Target.Column).End(xlUp).Offset(1) = Target
End Sub

[doober]

Я исходил из

если значения ячеек изменились в листе 2

смотря что автор подразумевает под этим
Если значение повторилось,то данные не пишутся

[AMRAAM]

Всем спасибо за помощь!!!