Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
отбор уникальных записей в ComboBox
 
Чего-то такого "нацитировал", жаль не могу отредактировать :(  
 
Юрий М спасибо за предложеное решение  
правда при запуске выдает    
Run-time error '1004':    
Method 'Range' of object '_Global' failed  
надо разбираться, но попозже - пока сил нету - бегу к стоматологу...
Удаление пустых строк
 
согласен, решение совершенно не универсально, но я им пользуюсь и оно меня пока устраивает, Вы же можете предложить более грамотный подход - может и я возьму его на вооружение :-)
отбор уникальных записей в ComboBox
 
Спасибо всем, кто ответил.  
{quote}{login=Igor67}{date=17.12.2010 09:44}{thema=}{post}drinck, скажите честно - Вам просто надо решение?  
В Вашей форме    
1 - нет функции от ZVI;  
2 - Вы просто прописали источники данных для комбобоксов  
{/post}{/quote}  
Отвечу честно - я не халявщик, хотя от халявы откажется только дурак. В данном конкретном случае я долго пытался найти решение, для меня ПОНЯТЬ важнее чем ПОЛУЧИТЬ, поскольку назидает, а функцию от ZVI я пытался вставить непосредственно в эту конструкцию:  
iIndex = ComboBox1.ListIndex  
For iCount = 2 To 7  
   Controls("ComboBox" & iCount).ListIndex = iIndex  
Next  
не меняя ее логики - все время вылазили какие-то ошибки. Прикреплять файл с нерабочими модулями - или народ смешить или сбивать с толку своей корявой логикой. Разумнее было приложить то, что у меня было в самом начале - как пример, как это работает.  
 
{quote}{login=Юрий М}{date=17.12.2010 09:53}{thema=}{post} я вот самым бессовестным образом примитивно размножил функцию ZVI :-){/post}{/quote}  
Подобная мысль тоже была, но поскольку у меня все мои рабочие макросы запихнуты в одну надстройку, которая и так уже разрослась, что черт ногу сломает - не хотел ее захламлять (а если ко-во комбобоксов нужно будет увеличить вдвое, втрое...?).  
 
{quote}{login=Юрий М}{date=17.12.2010 10:22}{thema=}{post}Игорь, я мысль уловил - выбор в одном комбо, а в других отобразить соответствующие значения. {/post}{/quote}  
Совершенно верно - при выборе в первом комбо - остальные заполняются из той же строки - это удобно, если редактировать нужно значение всего одного-двух комбо, но иногда редко попадающееся значение выбрать из выпавшего списка неудобно - для этого и возникло желание его фильтровать. А первый ComboBox я действительно не трогаю - там просто порядковые номера записей.
Удаление пустых строк
 
Я этот код включаю внутри другого кода, и эта "история" исключается сама собой, а проверку вначале поставить как бы не проблема...
Удаление пустых строк
 
Я делаю так:  
 
Private Sub pust_stroki()  
 
Dim iRange As Range, iRangeDelete As Range  
source.Activate  
For Each iRange In Worksheets(1).UsedRange.Rows  
If iRange.Text = "" Then  
Set iRangeDelete = Union(iRange, _  
IIf(iRangeDelete Is Nothing, iRange, iRangeDelete))  
End If  
Next  
If Not iRangeDelete Is Nothing Then iRangeDelete.EntireRow.Delete  
 
End Sub
отбор уникальных записей в ComboBox
 
Спасибо добрым людям, дали сюда ссылку. Я вот долго вертел, но так и не смог к себе применить. Прошу помощи.  
Думаю на прикрепленном примере будет яснее. Вопрос тоже сюда перенесу:  
С помощью формы редактирую или добавляю таблицу. Для редактирования каждой колонки - свой комбобокс. В первом выбираю или пишу порядковый номер, если эта строка уже чем-то заполнена, остальные комбобоксы заполняются из этой строки автоматом, а дальше я редактирую - или вписывая в комбобоксы новое, или выбирая в выпадающих списках готовое. Так вот, у меня проблема - как сделать, чтобы во всех комбобоксах были уже профильтрованые списки - т.е. чтобы они заполнялись не содержимым всего столбца, а только уникальными значениями из него?  
Все попытки применить выложенную здесь функцию привели только к унынию.
Автофильтр в Combobox
 
{quote}{login=Юрий М}{date=03.12.2010 12:36}{thema=}{post}http://www.planetaexcel.ru/forum.php?thread_id=10602 И с Правилами ознакомьтесь.{/post}{/quote}  
 
Спасибо за подсказку. попробую применить.
Автофильтр в Combobox
 
да вот не понял, откуда 200 кило...  
заархивировал.
Автофильтр в Combobox
 
извините, файлик глючный вышел.    
вот правильный  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Автофильтр в Combobox
 
У меня вопрос тоже касается автофильтра, и тоже в комбобокс, только задачи немножко другие.  
Для наглядности - прикрепил файл. С помощью формы редактирую или добавляю таблицу. Для редактирования каждой колонки - свой комбобокс. В первом выбираю или пишу порядковый номер, если эта строка уже чем-то заполнена, остальные комбобоксы заполняются из этой строки, а дальше я редактирую - или вписывая в комбобоксы новое, или выбирая в выпадающих списках готовое. Так вот, у меня проблема - как сделать, чтобы в комбобоксах были уже профильтрованые списки - т.е. чтобы они заполнялись не содержимым всего столбца, а только уникальными значениями из него?  
И при этом не применять стандартный автофильтр для самого листа с таблицей...  
Кто-нибудь может помочь?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Страницы: 1
Наверх