|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2019, 19:40 | #1 |
Пользователь
Регистрация: 10.12.2018
Сообщений: 23
|
Поиск конца БД
Уважаемые пользователи Excel и VBA, окажите помощь!
Раньше для поиска конца БД использовал код ...Range("G9:H9").Select Range(Selection, Selection.End(xlDown)).Select..., далее копирование и вставка куда укажу (для таблиц без заранее написанных формул). В данный момент есть таблица в которую заносятся данные выборки из БД по определенному критерию, и в каждой ячейке таблицы прописаны формулы, при использовании данного кода выделяются все ячейки таблицы. Подскажите пожалуйста, как сделать чтобы выделялись ячейки только с видимыми реальными данными, а не вместе с пустыми ячейками где прописаны формулы? Заранее благодарен, файл аналога базы прилагается. Последний раз редактировалось Vladimir_Der; 29.05.2019 в 19:54. |
30.05.2019, 12:28 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
01.06.2019, 21:36 | #3 |
Пользователь
Регистрация: 10.12.2018
Сообщений: 23
|
Александр огромное спасибо! Опять меня выручили здорово, все работает как надо.
На эту же тему есть еще вопрос " Выборка данных из базы с помощью автофильтров", при нахождении в БД по заданным параметрам автофильтров более одной строки копирование проходит без проблем. Но если находится только одна строка с данным или ни одной, происходит выделение и копирование всех строк ниже заголовков таблицы до конца возможностей Excel, вот используемый код: имя листа.Visible = True имя листа.Select ActiveSheet.Unprotect Password:="123" Range("F20").Value = ComboBox1.Text Selection.AutoFilter Field:=6, Operator:=xlFilterValues, Criteria1:="=" & Range("F20").Value Selection.AutoFilter Field:=14, Criteria1:= _ Array("доски", "арматура", "и т.д."), Operator:=xlFilterValues Selection.AutoFilter Field:=22, Criteria1:= _ "пятница" Selection.AutoFilter Field:=28, Criteria1:= _ "<>" Selection.AutoFilter Field:=32, Criteria1:= _ "=" Range("AE40").Select Range(Selection, Selection.End(xlDown)).Select 'выбор конца бд Selection.Copy Sheets("имя листа другого").Select Range("B6").Select ActiveSheet.Paste Заранее благодарен! |
03.06.2019, 10:34 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не до конца доходит dt,dd,dl | AnweeKey | HTML и CSS | 4 | 19.09.2018 22:35 |
Искать до конца | exivmaks | C# (си шарп) | 1 | 13.04.2015 10:45 |
Поиск начала и конца слова в Паскале | Iliyabond | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 12.03.2014 17:42 |
поиск конца слова... C# | Odyssey | C# (си шарп) | 5 | 01.04.2012 20:26 |