Макрос на Поиск по определенным условиям

[ren23rus]

Доброго времени суток. Помогите пожалуйста доработать макрос. Необходимо осуществить поиск по столбцу "С" и вывести все возможные варианты в окно поиска, но вывести только те варианты где столбец "G"=v. Например, ищем букву "а" во всех строках, их там 3, но выведет в окно поиска только две, т.к в этих строках в столбце "G" стоит буква v. Вроде не сложно, но что-то не могу додумать, не хочет работать корректно. Вот такой макрос у меня получился.

Public stolb As Integer
Public stolbV As Integer
Public strokaFirst As Integer

Private Sub UserForm_Initialize()
     stolb = 3      
     stolbV = 3    
     strokaFirst = 2 
End Sub


Private Sub TextBox1_Change()
     ListBox1.Clear
     If Len(TextBox1.Value) = 0 Then Exit Sub
     strokaLast = Cells(Rows.Count, stolb).End(xlUp).Row
     j = 0
     textS = UCase(TextBox1.Value)

  For i = strokaFirst To strokaLast
      If Len(TextBox1.Value) = 1 Then
         If UCase(Left(Cells(i, stolb), 1)) = textS Then
            ListBox1.AddItem i
            ListBox1.List(j, 1) = Cells(i, stolb)
            j = j + 1
         End If
      Else
         If InStr(1, UCase(Cells(i, stolb)), textS) > 0 Then
            ListBox1.AddItem i
            ListBox1.List(j, 1) = Cells(i, stolb)
            j = j + 1
         End If
      End If
  Next
      If j = 1 Then Cells(ListBox1.List(0, 0), stolbV).Select
End Sub