Страницы: 1
RSS
Перенос даных из ячеек по событию
 
Доброго времени суток Гуру Excel!!!
Прошу Вашей помощи в решении задачки:
Необходимо значения ячеек с  "Лист1" перенести данные на лист "База"
после введения значения в ячейку Е3 (введение заканчивается нажатием клавиши ENTER)
в такой последовательности A1 E3 F1 G1 B4, и при каждом последующем вводе
не заменять а продолжать добавлять в "База"
Изменено: Aleksandrsas - 07.04.2018 18:08:17
 
Так?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E3")) Is Nothing And Target.Count = 1 Then
    arr = Array(Range("A1"), Range("E3"), CDate(Range("F1")), Range("G1"), Range("B4"))
    With Sheets("База")
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lr, 1).Resize(1, 5) = arr
    End With
End If
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Цитата
Sanja написал:
Так?
Все работает!
Огромное спасибо!)))
Страницы: 1
Наверх