Введение данных с формы по трем условиям

[esterny]

Здравствуйте,
есть код и в нем выполняются только два условия. Никак не могу найти решение, чтобы выполнялся и по третьему условию. Три комбобокса: 1 и 2 выполняются (условие по строке в заголовке), а вот по условию значения в колонке комбобокса 3 никак не получается. Данные должны вноситься в строку при условии Nm = определенное имя (строка заголовков), Pr = определенное число (колонка чисел).
Я пыталась создать переменную Pr, но она так и осталась не задействована.

Private Sub cmdAdd_Click()
Dim Pr, Nm As Range, R&, c, k, s$, d$, J&
Dim i As Integer
     
Application.ScreenUpdating = False
If Me.CmbBx1 = "" And Me.CmbBx2 = "" Then
MsgBox "Недостаточно данных. Пожалуйста, заполните все поля"
Exit Sub
End If

Set Pr = Columns(2).Find(CmbBx3, , xlValues, xlPart)
Set Nm = Rows(5).Find(CmbBx2, , xlValues, xlWhole): R = 9


If Nm Is Nothing Then
    Set Nm = Cells(7, Columns.Count).End(xlToLeft).Offset(-2, 1)
    Cells(5, 3).Resize(3, 17).Copy Nm:  Nm = CmbBx2
    
  End If

  Do While WorksheetFunction.Sum(Cells(R, Nm.Column).Resize(1, 17)) > 0
    R = R + 1
  Loop

     For Each c In Me.Controls
    If InStr(c.Name, "ch") = 1 Then
      s = c.Name
      If c.Value Then Cells(R, Nm.Column + (Val(Right(s, 1)) - 1) * 3 + _
      IIf(Left(s, 3) = "chN", 1, IIf(Left(s, 3) = "chV", 2, 0))) = 1
    End If
  Next
 
MsgBox "Данные успешно добавлены"

End Sub

[Serge_Bliznykov]

Вы бы лучше выложили файлик с формой и данными, чтобы можно было посмотреть, что и как.

[IgorGO]

часть из этого писал где-то я и писал совсем недавно...
это были результаты голосований)

[esterny]

Игорь, совершенно, верно)

[esterny]

Игорь, совершенно, верно) Это писали Вы. Я Вам написала с этой просьбой, но Вы не ответили( Помогите, пожалуйста)