Question : Erreur d'exécution 424 Excel requis par objet de VBA

Salut les types, le

I ont eu de l'EXCELLENTE aide avec un expert d'ici en obtenir mon userform allant et juste une petite petite chose se produit, j'obtiens un objet de l'erreur d'exécution 424 exigé et c'est point culminant cette ligne le

If c.Value et « « et c.Offset (0, 1).Value = cmbnames. Texte et c.Offset (0, 5).Value = txtTrainSessionNo.Text Then


Here est le code ci-dessous : le wb secondaire du
Dim de btnSubmitStats_Click du
Private () comme Workbook
obscurcissent le WS comme Worksheet
faible rng1 comme Range
faible rng2 comme Range
faible c comme Range
faible s comme le
d'Integer
réglé wb = ActiveWorkbook
réglé le WS = l'ActiveSheet
réglé rng1 = le WS. Gamme (« G2 : G » et (gamme (« G65536 »). .Row d'extrémité (xlUp)))
du
pour chaque c dans rng1
si c.Value et » « et c.Offset (0, 1).Value = cmbnames. Texte et c.Offset (0, 5).Value = txtTrainSessionNo.Text Then
c.Offset (0, 6).Value = txtWrittenAssess.Text
c.Offset (0, extrémité If
Next
cmbnames.SetFocus
de 7).Value = de cboGrade.Text
si <> de cmbnames.ListCount 0 Then
pour I = 0 à cmbnames.LineCount - 1
si cmbnames. Liste (i) = cmbnames. Cmbnames d'If
de fin d'If
Next
de fin de Then
cmbnames.RemoveItem (i)
. Le
End Sub

I de valeur = de "" réellement ne peut voir rien mal avec lui parce que ceci a seulement commencé à se produire ensuite en changeant un txt mettre en place dans une boîte combinée sur l'userform. le

File est joint ci-dessous : l'aide du

Any sera l'appreciated
cheers class= " lastRow de

>Attachments de " nom " de class= de

class= " valeur " de

>