Удаление значения со строкой.

[Вадим12091965]

Здравствуйте. Подскажите как удалить на листе текст и строку, на которой он находится, при выборе этого текста в TextBox2 на форме?

[IgorGO]

подсказываю:

Rows(r).Delete

[Вадим12091965]

Я насобирал такой код:

Private Sub CommandButton4_Click()
  Set RowBlank = [A2:A100] 'задаем диапазон в котором отслежываем ячейки
        For Each i In RowBlank
            If i = TextBox2.Value Then i.EntireRow.Delete 'Задаем условие в каком случае удалить
      Next
  TextBox2.Text = "" 'Удаляем текст из TextBox2 после удаления из диапазона
End Sub

Но он работает, если диапазон находится на этом-же листе. У меня диапазон на Листе3. Как переписать код? Помогите доделать.

[Ves67]

я использую цикл с i, т.к. мне так удобнее.

Private Sub CommandButton4_Click()
  Dim sh3 As Worksheet
  Set sh3 = Worksheets(3)
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 100 To 2 Step -1
    If sh3.Cells(i, 1) = TextBox2.Value Then sh3.Rows(i).Delete 'Задаем условие в каком случае удалить
  Next
  Application.ScreenUpdating = True
  TextBox2.Text = "" 'Удаляем текст из TextBox2 после удаления из диапазона
End Sub

[Вадим12091965]

Спасибо, что ответили. Поменял код, но вышла ошибка "индекс вне диапазона". Я вложил файл. Посмотрите, пожалуйста, в чем ошибка.

[IgorGO]

в файле 2 листа, или добавте 3-й, или поправте здесь

  Set sh3 = Worksheets(3)

причем sh3 можно оставить с 3, а вот Worksheets(3) - нужно уменьшить до 2.

[Вадим12091965]

IgorGO, Ves67! Спасибо обоим.

[Вадим12091965]

Начал делать дальше, родилась новая проблема. Создал еще диапазон и не знаю как прописать удаление из него. Если не трудно, то помогите.