доброго времени суток! Помогите, нужно сделать кнопку которая при нажатии переносит данные ячейки (выделенные желтым цветом) с листа Акт на другой лист (Журнал!) в соответствующие столбцы и каждый раз в новую строку. Заранее при много благодарен!!
доброго времени суток! Помогите, нужно сделать кнопку которая при нажатии переносит данные ячейки (выделенные желтым цветом) с листа Акт на другой лист (Журнал!) в соответствующие столбцы и каждый раз в новую строку. Заранее при много благодарен!!vangokk
Где вас учат?... Я уж не говорю о названии "Журнал!". В модуль листа "АКТ": [vba]
Код
Sub www() Dim a, c As Range, r As Range, i& Set r = Range("B3,E3,B11,B12,A22") ReDim a(1 To r.Cells.Count) For Each c In r i = i + 1: a(i) = c Next Sheets("Журнал!").[a65536].End(xlUp)(2).Resize(, UBound(a)) = a End Sub
Где вас учат?... Я уж не говорю о названии "Журнал!". В модуль листа "АКТ": [vba]
Код
Sub www() Dim a, c As Range, r As Range, i& Set r = Range("B3,E3,B11,B12,A22") ReDim a(1 To r.Cells.Count) For Each c In r i = i + 1: a(i) = c Next Sheets("Журнал!").[a65536].End(xlUp)(2).Resize(, UBound(a)) = a End Sub
Sub ert() With Sheets("АКТ") Sheets("Журнал!").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = _ Array(.[B3], .[E3], .[B11], .[B12], .[A22]) End With End Sub
[/vba]
vangokk, попробуйте так: [vba]
Код
Sub ert() With Sheets("АКТ") Sheets("Журнал!").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = _ Array(.[B3], .[E3], .[B11], .[B12], .[A22]) End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
