Добавление или удаление строк из базы.

[KOSTIK1]

Доброго времени суток Уважаемые форумчане! Прошу Вашей помощи в написании кода для добавления или удаления данных через combobox по условию. Почитав на форуме много тем, к сожалению подходящего не нашёл, поэтому прикладываю файл, там немного подробнее. Заранее спасибо за помощь, а также за возможную оптимизацию уже существующих макросов.

P.S. Имею Офис 2007. А так же все "персонажи в примере вымышленные".

[Dophin]

Private Sub CommandButton2_Click()
Dim i As Long, iLastRow As Long
Dim sh As Worksheet
Set sh = Sheets("Структура")
iLastRow = sh.Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To iLastRow
If sh.Cells(i, 1) = UserForm1.ComboBox1 And sh.Cells(i, 2) = UserForm1.ComboBox2 Then
sh.Range(sh.Cells(i, 1), sh.Cells(i, 2)).Delete (xlShiftUp)
Exit For
End If
Next i
End Sub

ну так можно. топорно, но надежно)

[KOSTIK1]

Спасибо Dophin! Быстро и то что нужно, только не могу дапетрить как теперь сделать "добавление" должности.

[Dophin]

макродекодером запишите

[KOSTIK1]

Прошу прошения, но я только учусь, и у меня что-то не получается. Прошу помощи.

[Dophin]

ну например так

чуть поправил

[KOSTIK1]

Огромное спасибо! И если возможно, подскажите по поводу второй формы, если возможно с записью макрорекордера(для повышения "образованности"), как в последнем случае. Спасибо!

[Dophin]

вот эдак можно

[KOSTIK1]

И ещё раз ОГРОМНОЕ СПАСИБО Dophin!!!
Тут выложил что получилось. Может кому надо!