Копирование и удаление пустых строк в отчете - Microsoft Office Excel

Герман13 · 02.03.2010, 19:00

Уважаемые знатоки!
Ранее пользовался Excel только для создания простых списков. Чтобы облегчить работу жене, создал маленький проект. Прошу помочь довести его до ума. Задача: на странице "Отчет" должна находиться информацмя со страницы "Взыскания", за исключением помеченных как снятые, но только без пустых строк. Благодарю за некторые идеи, подсмотренные на вашем форуме. Пожалуйста помогите!

Teslenko_EA · 02.03.2010, 21:03

Здравствуйте Герман13.
Мнение :
Ваша задача, как и любая другая работающая с табличными данными, достойна обрабатываться в СУБД (системы управления базами данных), одним из представителей является MS Access.
"Чтобы облегчить работу ..." стоит заняться изучением БД и реализацией проектов с применением СУБД.
Евгений.
P.S. зачем Вы "продемонстрировали" кнопки на листах, ведь код обслуживающий их события расположен в файле Personal.xlsb, которого в архиве нет.

Герман13 · 03.03.2010, 00:21

Уважаемый Евгений.
Выложил все что смог. Я понимаю, что проблемы индейцев шерифа не волнуют, но я просил помочь, хотя-бы советом. Спасибо. Кнопки не важны, ими можно пренебречь, нужен результат в станице "Отчет".

SAS888 · 03.03.2010, 06:31

Здравствуйте Герман13.
Для решения Вашей задачи, предлагаю макрос без всяких поисков, сравнений и циклов:

Код:

Sub Main()
    With Sheets("ВЗЫСКАНИЯ")
        .[H121] = "да"
        Intersect(.[H:H].ColumnDifferences(.[H121]).EntireRow, .[B:G]).Copy Sheets("ОТЧЕТ").[B2]
        .[H121].ClearContents
    End With
End Sub

Герман13 · 03.03.2010, 10:28

SAS888.
Спасибо, работает.
Все гениальное просто!

03.03.2010, 06:31	#4
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Здравствуйте Герман13. Для решения Вашей задачи, предлагаю макрос без всяких поисков, сравнений и циклов: Код: `Sub Main() With Sheets("ВЗЫСКАНИЯ") .[H121] = "да" Intersect(.[H:H].ColumnDifferences(.[H121]).EntireRow, .[B:G]).Copy Sheets("ОТЧЕТ").[B2] .[H121].ClearContents End With End Sub` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удаление пустых строк в таблице	Semen90	Microsoft Office Word	24	14.07.2022 12:28
Заголовок + данные + удаление пустых строк	sane4ek_d	Microsoft Office Excel	3	22.01.2010 21:37
Поиск значений и удаление пустых строк	OgE®_M@G	Microsoft Office Excel	12	16.12.2009 20:37
Удаление пустых и повторяющихся строк	Marsel737	Общие вопросы Delphi	5	03.12.2009 00:58
Заполнение пустых строк..	Balina	Microsoft Office Excel	9	02.12.2009 11:49

02.03.2010, 21:03	#2
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Здравствуйте Герман13. Мнение : Ваша задача, как и любая другая работающая с табличными данными, достойна обрабатываться в СУБД (системы управления базами данных), одним из представителей является MS Access. "Чтобы облегчить работу ..." стоит заняться изучением БД и реализацией проектов с применением СУБД. Евгений. P.S. зачем Вы "продемонстрировали" кнопки на листах, ведь код обслуживающий их события расположен в файле Personal.xlsb, которого в архиве нет.

03.03.2010, 10:28	#5
Герман13 Регистрация: 01.03.2010 Сообщений: 7	SAS888. Спасибо, работает. Все гениальное просто!