Вопрос : Продолжающая погрешность 424 Эксел VBA требуемое предметом

Hi ванты,

I имели некоторую ПРЕВОСХОДНУЮ помощь с специалистом отсюда на получать мое userform идя и как раз одна малая маленькая вещь случается, я получает предмет продолжающей погрешности 424 необходима и будет самым интересным эта линия

If c.Value & ««& c.Offset (0, 1).Value = cmbnames. Текст и c.Offset (0, 5).Value = txtTrainSessionNo.Text Then


Here будет Кодим ниже: wb
Dim btnSubmitStats_Click
Private Sub () как Workbook
затемняет ws как Worksheet
тусклое rng1 как Range
тусклое rng2 как Range
тусклый c как Range
тусклый s по мере того как
Integer
установленное wb = ActiveWorkbook
установленное ws = ActiveSheet
установленное rng1 = ws. Ряд («G2: G» & (ряд («G65536»). .Row конца (xlUp)))

для каждого c в rng1
если c.Value &» «& c.Offset, то (0, 1).Value = cmbnames. Текст и c.Offset (0, 5).Value = txtTrainSessionNo.Text Then
c.Offset (0, 6).Value = txtWrittenAssess.Text
c.Offset (0, конец If
Next
cmbnames.SetFocus
7).Value = cboGrade.Text
если <> 0 Then
cmbnames.ListCount для I = 0 к cmbnames.LineCount - 1
если cmbnames. Список (I) = cmbnames. Cmbnames If
конца If
Next
конца
Then
cmbnames.RemoveItem текста (I).
End Sub

I значения = "" фактическ не может увидеть что-нибыдь неправильно с им потому что это только начатый случаться после изменять поле txt к комбинированной рамке на userform.

File прикреплено ниже: помощью

Any будет appreciated
cheers class= " lastRow

>Attachments " имени " class= class= " значение "

>