Vraag : RunTime VBA Fout 424 Voorwerp Vereist Excel

Hallo hebben de Kerels,

I één of andere UITSTEKENDE hulp met een deskundige van hier bij het krijgen van mijn userform gaand gehad en enkel één klein klein ding gebeurt, krijg ik een runtime fout 424 vereist voorwerp en het is hoogtepunt deze lijn

If c.Value & „„& c.Offset (0, 1). Waarde = cmbnames. Tekst en c.Offset (0, 5). De waarde = txtTrainSessionNo.Text Then


Here is de code hieronder:
Private SubbtnSubmitStats_Click () wb
Dim als Workbook
Schemerige ws als Worksheet
Schemerige rng1 als Range
Schemerige rng2 als Range
Schemerig c als Range
Schemerig s als Vastgestelde Integer

wb = Vastgestelde ActiveWorkbook
ws = ActiveSheet
Vastgestelde rng1 = ws. Waaier („G2: G“ & (Waaier („G65536“). Eind (xlUp) .Row))

voor Elk c in rng1
als c.Value &“ „& c.Offset (0, 1). Waarde = cmbnames. Tekst en c.Offset (0, 5). Waarde = txtTrainSessionNo.Text Then
c.Offset (0, 6). Waarde = txtWrittenAssess.Text
c.Offset (0, 7). Waarde = cboGrade.Text
Eind If
Next
cmbnames.SetFocus
als cmbnames.ListCount <> 0 Then
voor I = 0 aan cmbnames.LineCount - 1
als cmbnames. Lijst (I) = cmbnames. Het Eind van If
Next
cmbnames.RemoveItem van de tekst (i)
/> If
cmbnames. De waarde = ""
End Sub

I kan niet echt om het even wat zien verkeerd met het omdat dit slechts begon na het veranderen van een txtgebied in een combodoos op userform te gebeuren.

File is hieronder in bijlage: de Hulp

Any appreciated
cheers zijn

Attachments:

van

Copy-of-Samplex-4.xls (56 KB)  (de Details van het Type van Dossier)  

steekproef dossier met proefdata

Antwoord : RunTime VBA Fout 424 Voorwerp Vereist Excel

Vervang „txtTrainSessionNo“ in dit koord met „cmbTrainSessionNo“, d.w.z. aan de naam van Combobox.

Alex