Здравствуйте, данный код копирует нужные строки и вставляет их в определенные листы. Проблема в том, что вставляются данные вместе с формулами, как применить метод PasteSpecial xlPasteValues чтобы в дополнительные листы вставлялись только значения ячеек. Спасибо за помощь. [vba]
Код
Sub Alex2323() Dim i&, lstr&, k&, lstrSh& Application.ScreenUpdating = False lstr = Cells(Rows.Count, 1).End(xlUp).Row k = Sheets.Count For i = 2 To k 'Исключить листы If i = 9 Or i = 10 Then GoTo 0 Sheets(i).Activate Range("A2:M500").Clear 0: Next Sheets(1).Activate For i = 2 To lstr
If Cells(i, 2) = "Новый" Or Cells(i, 2) = "Отменен" Or Cells(i, 2) = "Ожидание оплаты" Then GoTo 1 'скопировать данные Cells(i, 1).Offset(, 1).Resize(, 13).Copy Sheets(Right(Cells(i, 1), 1) + 1).Activate lstrSh = Cells(Rows.Count, 1).End(xlUp).Row Cells(lstrSh + 1, 1).Activate ActiveSheet.Paste Application.CutCopyMode = False Sheets(1).Activate 1: Next Application.ScreenUpdating = True End Sub
[/vba]
Здравствуйте, данный код копирует нужные строки и вставляет их в определенные листы. Проблема в том, что вставляются данные вместе с формулами, как применить метод PasteSpecial xlPasteValues чтобы в дополнительные листы вставлялись только значения ячеек. Спасибо за помощь. [vba]
Код
Sub Alex2323() Dim i&, lstr&, k&, lstrSh& Application.ScreenUpdating = False lstr = Cells(Rows.Count, 1).End(xlUp).Row k = Sheets.Count For i = 2 To k 'Исключить листы If i = 9 Or i = 10 Then GoTo 0 Sheets(i).Activate Range("A2:M500").Clear 0: Next Sheets(1).Activate For i = 2 To lstr
If Cells(i, 2) = "Новый" Or Cells(i, 2) = "Отменен" Or Cells(i, 2) = "Ожидание оплаты" Then GoTo 1 'скопировать данные Cells(i, 1).Offset(, 1).Resize(, 13).Copy Sheets(Right(Cells(i, 1), 1) + 1).Activate lstrSh = Cells(Rows.Count, 1).End(xlUp).Row Cells(lstrSh + 1, 1).Activate ActiveSheet.Paste Application.CutCopyMode = False Sheets(1).Activate 1: Next Application.ScreenUpdating = True End Sub
работает, но видимо этот метод мне не подходит, так как он удаляет все кроме значений. Мне нужно удалять именно функции, а цвета, размеры ячеек оставлять.
работает, но видимо этот метод мне не подходит, так как он удаляет все кроме значений. Мне нужно удалять именно функции, а цвета, размеры ячеек оставлять.Maks1390
Извиняюсь, сразу не подумал спросить. К скопированным данным возможно обратится и пересчитать нужные ячейки? Пример: Обратится к скопированным строкам - выбрать ячейки L:L и N:N - посчитать (L:L - N:N) и изменить значение N:N
Чтобы в дополнительные листы попали уже посчитанные значения.
Извиняюсь, сразу не подумал спросить. К скопированным данным возможно обратится и пересчитать нужные ячейки? Пример: Обратится к скопированным строкам - выбрать ячейки L:L и N:N - посчитать (L:L - N:N) и изменить значение N:N
Чтобы в дополнительные листы попали уже посчитанные значения.Maks1390
Сообщение отредактировал Maks1390 - Воскресенье, 04.09.2016, 20:08
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
