Fråga : RunTime fel 424 för VBA anmärker Required Excel

Hi har grabbar,

I haft någon UTMÄRKT hjälp med ett sakkunnigt härefter få min userform som går, och precis en liten småsak händer, I-förmiddagen som får ett runtime fel 424, anmärker required, och det är viktign som detta fodrar

If c.Value & ””& c.Offset (0, 1). Värdera = cmbnames. Text och c.Offset (0, 5). Värdera = txtTrainSessionNo.Text Then


Here är den nedanföra kodifiera: wb för
Dim för btnSubmitStats_Click för
Private under() som Workbook
dunkel ws som Worksheet
dunkel rng1 som Range
dunkel rng2 som Range
dunkelt c som Range
dunkelt s som uppsättningen för Integer

wb = ActiveWorkbook
uppsättning ws = ActiveSheet
uppsättning rng1 = ws. Spänna (”G2: G” & (spänna (”G65536”). Avsluta .Row (för xlUp))),
för
för varje c i rng1
om c.Value &” ”& c.Offset (0, 1). Värdera = cmbnames. Text och c.Offset (0, 5). Värdera = txtTrainSessionNo.Text Then
c.Offset (0, 6). Värdera = txtWrittenAssess.Text
c.Offset (0, 7). Värdera = cboGrade.Text
avslutar If
Next
cmbnames.SetFocus
om cmbnames.ListCount-<> 0 Then
för I = 0 till cmbnames.LineCount - 1
om cmbnames. Lista (I) = cmbnames. TextThen
cmbnames.RemoveItem (I)
avslutar If
Next
avslutar If
cmbnames. Värdera = ""
End Sub

I faktiskt kan inte se att något orätt med den, därför att detta startade endast att hända når det har ändrat en txt för att sätta in till ett combo, boxas på userformen.

File är fäst nedanfört: hjälp för

Any ska är appreciated
cheers Attachments: för >