Pergunta : Objeto Excel Required do erro RunTime 424 de VBA

Olá! os indivíduos,

I tiveram alguma ajuda EXCELENTE com um perito aqui sobre de começ meu userform que vai e apenas uma coisa pequena pequena está acontecendo, mim está começ um objeto do erro runtime 424 exigido e é destaque esta linha

If c.Value & ““& c.Offset (0, 1). Valor = cmbnames. Texto e c.Offset (0, 5). O valor = txtTrainSessionNo.Text Then


Here são o código abaixo: a WB secundária do
Dim do btnSubmitStats_Click do
Private () como Workbook
escurece a WS como Worksheet
rng1 não ofuscante como Range
rng2 não ofuscante como Range
c não ofuscante como Range
s não ofuscante como o
de Integer
ajustado WB = ActiveWorkbook
ajustado WS = ActiveSheet
ajustado rng1 = WS. Escala (“G2: G” & (escala (“G65536”). .Row da extremidade (xlUp)))
do
para cada c em rng1
se c.Value &” “& c.Offset (0, 1). Valor = cmbnames. Texto e c.Offset (0, 5). Valor = txtTrainSessionNo.Text Then
c.Offset (0, 6). Valor = txtWrittenAssess.Text
c.Offset (0, 7). Valor = extremidade If
Next
cmbnames.SetFocus
de cboGrade.Text
se <> 0 Then
de cmbnames.ListCount para i = 0 a cmbnames.LineCount - 1
se cmbnames. Lista (i) = cmbnames. Cmbnames de If
do fim de If
Next
do fim de Then
cmbnames.RemoveItem (i)
. O
End Sub

I do valor = do "" realmente não pode considerar qualquer coisa erradamente com ele porque este começou somente acontecer após ter mudado um campo do txt a uma caixa combinado no userform. o

File é unido abaixo: a ajuda do

Any será o appreciated
cheers class= do " lastRow do

>Attachments do " nome " do class= do class= " valor " do

>