Диапазон 100 строк

[Вадим12091965]

Здравствуйте. Мне помогли, написали код:

Private Sub CommandButton4_Click()
 Dim sh3 As Worksheet
  Set sh3 = Worksheets(2)
  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

Строка с необходимым текстом удаляется, но и уменьшается диапазон. Что добавить в код, чтобы диапазон не менялся (был 100 строк) или как добавить пустую строку под последней заполненной ячейкой в диапазоне?

[ShAM66]

If sh3.Cells(i, 1) = TextBox2.Value Then sh3.Rows(i).Delete: sh3.Rows(100).Insert

[EducatedFool]

но и уменьшается диапазон

какой диапазон?
надо файл смотреть


попробуйте так:

Private Sub CommandButton4_Click()
 Dim sh3 As Worksheet
  Set sh3 = Worksheets(2)
  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
       sh3.rows(100).insert ' добавляем пустую строку
    END IF
  Next
  Application.ScreenUpdating = True
  TextBox2.Text = "" 'Удаляем текст из TextBox2 после удаления из диапазона
End Sub

PS: если не там вставлять будет - поменяйте 100 на 99 или 101

[Вадим12091965]

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

[IgorGO]

господа, а если ничего не удалять и не вставлять а просто

If sh3.Cells(i, 1) = TextBox2.Value Then  sh3.Rows(i).clearcontents

[ShAM66]

Сообщение от Вадим12091965

перестало работать удаление.

Посмотрите внимательнее какая кнопка с каким листом и каким диапазоном работает. Я, например, не понял: что, когда, где должно удаляться.

[ShAM66]

Сообщение от IgorGO

господа, а если ничего не удалять и не вставлять а просто

If sh3.Cells(i, 1) = TextBox2.Value Then  sh3.Rows(i).clearcontents

Тогда образуются "дыры" (пустые строки внутри диапазона). ИМХО, такого ТС не нужно.

[Вадим12091965]

Спасибо. Все работает, но остается пустая строка, которая не нужна.

В предыдущем коде работает первое удаление как должно быть, а следующее удаление происходит только на листе, на форме удаленное наименование присутствует. Возможно как-то прописать обновление формы. И еще: на листе количество строк пополняется (так как нужно), а в диспетчере имен список все равно сокращается.

Во вложении последний вариант - ххх.
Предыдущий - хх.

[Вадим12091965]

Порылся как обновить форму. Может сделал колхозно, но работает:

Private Sub CommandButton4_Click()
 Dim sh3 As Worksheet
  Set sh3 = Worksheets(2)
  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
       sh3.Rows(99).Insert 
    End If
  Next
  Application.ScreenUpdating = True
     TextBox2.Text = ""
   Unload UserForm1
   UserForm1.Show
End Sub