Indexof

[Cpluser]

мне нада чтоб в стороке нашло то что в текстбоксе есть метод IndexOf?

Dim a As String

For i = 1 To 65536
a = Cells(i, ComboBox1.ListIndex + 1).Value
If a.IndexOf(TextBox1.Text) >= 0 Then 'error
Rows("" + CStr(i) + ":" + CStr(i) + "").Delete
End If
If Cells(i, ComboBox1.ListIndex + 1).Value = TextBox1.Text Then
Rows("" + CStr(i) + ":" + CStr(i) + "").Delete
End If
Next i

[SAS888]

1. Вы лучше объясните, что Вам нужно. Зачем перебирать и сравнивать каждую ячейку столбца, да еще и в таком диапазоне?
2. Рациональнее использовать метод Find с опцией xlPart. Расскажите подробнее, какие строки требуется удалить.
3. При удалении строк с использованием цикла For...Next, для корректной работы строки необходимо перебирать снизу вверх.
4. Лучше сначала получить диапазон строк, которые требуется удалить, а затем сделать это "оптом". Так быстрее.