Как узнать адрес ячейки, заполненной по определенному правилу? Excell VBA

[SerialKilla]

Как узнать адрес ячейки, заполненной по определенному правилу, для передачи данных в comboBox?
Допустим есть столбец с записями 2х типов t1,t2,gst1,t3,gst2,gst3. Все записи типа gst... надо поместить в comboBox.
Запись всех ячеек из столбца подряд я вел следующим образом:

i = 1
Do While IsEmpty(Worksheets("Лист2").Cells(i, 1)) = False
cbxStill.AddItem (Worksheets("Лист2").Cells(i, 1))
i = i + 1
Loop

Как бы это теперь дополнить чтобы записывались только ячейки которые записаны по правилу gst... Наверняка это просто делается. Но нигде не получается найти как анализировать содержимое ячеек.

[HandKot]

а что значит
Все записи типа gst
?

[SerialKilla]

а что значит
Все записи типа gst
?

все записи начинающиеся с букв gst

[SerialKilla]

Карочи дал я дупля как это сделать Всем спасибо за внимание! А кому интересно смотрите:

i = 1
Do While IsEmpty(Worksheets("Лист2").Cells(i, 1)) = False   ' проверяем не пуста ли ячейка
If InStr(1, Worksheets("Лист2").Cells(i, 1), "gst") <> 0 Then ' проверяем содержит ли она набор букв gst
cbxGst.AddItem (Worksheets("Лист2").Cells(i, 1))                 ' добавляем значение в combo box                     
End If
i = i + 1
Loop

Корявенько, однако работает Если у кого есть иные предложения, буду рад ознакомиться.

[HandKot]

Решение хорошее
вот еще вариант

Код:

Public Sub test()
    Dim r As Range
    
    Set r = ThisWorkbook.Worksheets(1).Columns("A:A")
    
    With r
        Set c = .Find("gst", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            cbxGst.AddItem c.Value
            Do
                Set c = .FindNext(c)
                cbxGst.AddItem c.Value
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
End Sub

[SerialKilla]

Спасиб HandKot... Только вот мои познания в VBA еще слабовты, чтобы понять как это работает .  Я так понял этот код полностью просмотрит столбец A и не прервет программу если встретит пустую ячейку, верно? То чего я совсем не понял- это строка "Not c Is Nothing" Это что? И с функцией "Set" чё т тоже не знаком. Ну ладно не буду много глупых вопросов задавть...Хорошо бы справку на VBA на русском найти.

[Sla]

SerialKilla,
>>Я так понял этот код полностью просмотрит столбец A и не прервет программу если встретит пустую ячейку, верно?
верно.

>>То чего я совсем не понял- это строка "Not c Is Nothing"
ты получаешь список (с) найденных строк. здесь просто неудачное определение переменной результата,
например
Set ListFinding = .Find("gst", LookIn:=xlValues)
if Not ListFinding Is Nothing - проверка на пустой результат
Так понятнее? Nothing (ничего, пусто )

Set - создание нового экземпляра объекта

Это что? И с функцией "Set" чё т тоже не знаком. Ну ладно не буду много глупых вопросов задавть...Хорошо бы справку на VBA на русском найти.
[/quote]

[HandKot]

Спасиб HandKot... Только вот мои познания в VBA еще слабовты, чтобы понять как это работает .  Я так понял этот код полностью просмотрит столбец A и не прервет программу если встретит пустую ячейку, верно? То чего я совсем не понял- это строка "Not c Is Nothing" Это что? И с функцией "Set" чё т тоже не знаком. Ну ладно не буду много глупых вопросов задавть...Хорошо бы справку на VBA на русском найти.

это макрос из хелпа, с доавлением одной строки - добавление элемента в комбо
если у Вас значений не очень много, где надо искать, то используйте свой код
если же много, то с Find лучше