Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перед тем как удалить скопировать - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перед тем как удалить скопировать (Макросы/Sub)
Перед тем как удалить скопировать
dx84 Дата: Четверг, 17.04.2014, 23:22 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Доброго времени суток!
На форуме выложил задачку, решили! В виде макроса, От дельно хотел бы за это поблагодарить AlexM.
Работает он следующим образом удаляет заданные заранее строки по условию (подробности в образце)
Но, к сожалению, аппетит приходит во время еды. Теперь надо перед удалением заданных заказов для начало их скопировать в лист Архив с проверкой не пустых строк, а патом их удалить.
 
Ответить
СообщениеДоброго времени суток!
На форуме выложил задачку, решили! В виде макроса, От дельно хотел бы за это поблагодарить AlexM.
Работает он следующим образом удаляет заданные заранее строки по условию (подробности в образце)
Но, к сожалению, аппетит приходит во время еды. Теперь надо перед удалением заданных заказов для начало их скопировать в лист Архив с проверкой не пустых строк, а патом их удалить.
Автор - dx84
Дата добавления - 17.04.2014 в 23:22
dx84 Дата: Четверг, 17.04.2014, 23:26 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
Извиняюсь, забыл прикрепить файл.
К сообщению приложен файл: 9196530.xls (32.0 Kb)
 
Ответить
СообщениеИзвиняюсь, забыл прикрепить файл.
Автор - dx84
Дата добавления - 17.04.2014 в 23:26
AlexM Дата: Пятница, 18.04.2014, 01:06 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Посмотрите решение. В код добавилось две строки[vba]
Код
iRow = Sheets("Архив").Range("B" & Rows.Count).End(xlUp).Row + 2
Rows(i).Resize(4).Copy (Sheets("Архив").Rows(iRow))
[/vba]Первая определяет строку, в которую копировать. Вторая - копирует заказ
К сообщению приложен файл: 9196530_new.xls (41.0 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеПосмотрите решение. В код добавилось две строки[vba]
Код
iRow = Sheets("Архив").Range("B" & Rows.Count).End(xlUp).Row + 2
Rows(i).Resize(4).Copy (Sheets("Архив").Rows(iRow))
[/vba]Первая определяет строку, в которую копировать. Вторая - копирует заказ
Автор - AlexM
Дата добавления - 18.04.2014 в 01:06
dx84 Дата: Пятница, 18.04.2014, 01:15 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: -8 ±
Замечаний: 80% ±

Excel 2010
AlexM, Вы Гений hands ! Огромное вам Спасибо! То что надо! yahoo
 
Ответить
СообщениеAlexM, Вы Гений hands ! Огромное вам Спасибо! То что надо! yahoo
Автор - dx84
Дата добавления - 18.04.2014 в 01:15
AlexM Дата: Пятница, 18.04.2014, 01:19 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Вторую строку макроса сделайте так[vba]
Код
Dim zakaz, i As Long, j As Long, iRow As Long
[/vba] Забыл одну переменную объявить.


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеВторую строку макроса сделайте так[vba]
Код
Dim zakaz, i As Long, j As Long, iRow As Long
[/vba] Забыл одну переменную объявить.
Автор - AlexM
Дата добавления - 18.04.2014 в 01:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перед тем как удалить скопировать (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!