Отбор по колонкам

[Romuald]

SAS888 !
пытаюсь поставить дополн. отбор по периоду, а он не хочет и обрабатывает 65 тысяч строк , хотя поставил до трех пустых
посмотрите, пожалуйста

[Pavel55]

да меня всё устраивает) я про спросил) Главное, чтобы автора темы всё устраивало )
Просто мне показалось, что там не обрабатываются другие TextBox'ы, если ввели название. Вот код

    x = LCase(Trim(TextBox1.Text))
    If x <> "" Then
        Stolb = 4
        Call Poisk
    End If

т.е. мы берём значение из TextBox1 (т.е. название товара) и сразу уходим в процедуру поиск, не беря значения из текстовых полей "поиск по фирме" и "поиск по фамилии".
Ну, это так...

[SAS888]

Pavel55, Да, это так, но вернувшись из подпрограммы поиска - продолжаем дальше.


Romuald, Не экономьте слова. Я понял так:
Нужно задать начальную и конечную дату, сформировать новый лист с результатами отбора и ....?
Что значит до трех пустых? И нужно ли учитывать при поиске по периоду критерии поиска (если они заданы) по другим параметрам?

[Romuald]

Автоматом там стоит месяц назад т.е 30 дней
Да, надо что-бы он работал совместно со всеми отборами
Просто в другом месте у меня этот код не дебажит но там в колонке нет пустых строк и Вы мне раньше подсказали как сделать цикл перебора ,пока машина не найдет подряд три пустых строки
А по "статус бару" показывает ,что обработал много тысяч строк и начинает кричать

[Romuald]

Автоматом там стоит месяц назад т.е 30 дней
Да, надо что-бы он работал совместно со всеми отборами
Просто в другом месте у меня этот код не дебажит но там в колонке нет пустых строк и Вы мне раньше подсказали как сделать цикл перебора ,пока машина не найдет подряд три пустых строки
А по "статус бару" показывает ,что обработал много тысяч строк и начинает кричать

[SAS888]

Еще вопрос. Что нужно делать при закрытии книги? Или деактивации листа?
Про три подряд пустых строки все равно не понятно:
Если они встретились - прекращать отбор, или нет?

[Romuald]

после закрытия листа Otcet - лист стереть
Я думаю, чтобы быстрее происходил отбор надо :
задать ей диапазон и пусть она работает(отбирает) в этом диапазоне
т.е
машина выбирает диапазон с первой строки до подряд трех или к примеру десять пустых строчек в этом Sheet-e

[SAS888]

Вот, что у меня "родилось". Может устроит.
Так как результат формируется на отдельном листе, кнопка (и процедура) "показать все строки" удалена за ненадобностью.
Контролируются строки со 2 до последней заполненной (не нужно условие пустых строк).
Так как работаем в пределах одного модуля - переменные Public удалены (подпрограмму вызываем с параметрами).
При каждом новом поиске лист "Otcet" обновляется, и удаляется только при закрытии книги.
Чтобы не "париться" с шириной столбцов, применен метод копирования листа с последующим удалением всего лишнего (это эффективнее, чем вставлять новый лист).

Все ли так, как Вы хотели?
Замечания, пожелания, изменения, добавление чего-либо - обращайтесь.

[rexec]

Добрый день! Я вижу тут ребята серьезные собрались! К сожалению не могу похвастать такими знаниями программирования операций, но будем стараться.
У меня вот такая проблема: в колонке данные отличаются тем, что в них текст начинается после определенного количества пробелов. Необходимо отсортировать так, чтобы остались записи, в которых текст начинается после одного пробела. Например, такая запись:
" Иванов",
а уже
" Сидоров" не должна подпадать под условия фильтра.
Можно это дело как-нибудь без макросов. Я в них не силен.
P.S. чтобы постичь искусство написания макросов на вашем уровне много это займет времени? У меня опыт программирования только на учебном Бейсике.
Заранее спасибо! Ребята, помогите, прошу!

[rexec]

Где Сидоров должно быть два пробела перед фамилией, вот так:
" Сидоров"