привет, так как я в VBA не силен, пытался записать макрос пошагово.
[vba]
Код
Sub Macro1() ' ' Range("AA2").Select Selection.Copy Range("J3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("K2:M2").Select Application.CutCopyMode = False Selection.Copy Range("K3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J4").Select End Sub
[/vba]
но теперь проблема в том, что когда стартую макрос он всегда копирует правильно, т.е. берет значения из ячеек AA2 и K2:M2, но вставляет их постоянно в J3 и K3:m3 соответственно. как переписать код так, чтоб он вставлял значения в следующую пустую строчку? т.е. j4, j5 и т.д.
заранее спасибо!
привет, так как я в VBA не силен, пытался записать макрос пошагово.
[vba]
Код
Sub Macro1() ' ' Range("AA2").Select Selection.Copy Range("J3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("K2:M2").Select Application.CutCopyMode = False Selection.Copy Range("K3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J4").Select End Sub
[/vba]
но теперь проблема в том, что когда стартую макрос он всегда копирует правильно, т.е. берет значения из ячеек AA2 и K2:M2, но вставляет их постоянно в J3 и K3:m3 соответственно. как переписать код так, чтоб он вставлял значения в следующую пустую строчку? т.е. j4, j5 и т.д.
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
