Pytanie : VBA Przodować Błąd 424 Przedmiot Wymagać Przodować

Cześć Facet,

I mieć niektóre ZNAKOMITY pomoc z ekspert od tutaj dalej mój userform i właśnie jeden mały mały rzecz zdarzać się, I dostawać mały błąd 424 przedmiot i ono być główna atrakcja ten kreskowy

If c.Value & ""& c.Offset ((0), 1).Value = cmbnames. Tekst I c.Offset ((0), 5).Value = txtTrainSessionNo.Text Then


Here być the kod (0):
Private Okręt podwodny btnSubmitStats_Click ()
Dim wb Jako Workbook
Ćmić ws Gdy Worksheet
Ćmić rng1 Gdy Range
Ćmić rng2 Gdy Range
Ćmić c Gdy Range
Ćmić s Jako Integer

Ustalony wb = ActiveWorkbook
Ustalony ws = ActiveSheet
Ustalony rng1 = ws. Pasmo ("G2: G" & (Pasmo ("G65536"). Końcówka (xlUp) .Row))

Dla Cmbnames c W rng1
Jeżeli c.Value &" "& c.Offset ((0), 1).Value = cmbnames. Tekst I c.Offset ((0), 5).Value = txtTrainSessionNo.Text Then
c.Offset ((0), 6).Value = txtWrittenAssess.Text
c.Offset ((0), 7).Value = cboGrade.Text
Końcówka If
Next
cmbnames.SetFocus
Jeżeli cmbnames.ListCount <> (0) Then
Dla i = (0) Cmbnames.LineCount - 1
Jeżeli cmbnames. Lista (i) = cmbnames. Tekst Then
cmbnames.RemoveItem (i)
Końcówka If
Next
Końcówka If
cmbnames. Wartość = ""
End Sub

I właściwie móc/>I źle z ono ponieważ cokolwiek tylko zaczynać po txt pole combo pudełko na the userform.

File dołączać dołączać:

Any Pomoc być appreciated
cheers

Attachments:

Copy-of-Samplex-4.xls (56 KB)  (Kartoteka Typ Szczegół)  

próbka kartoteka z atrapa data

Odpowiedź : VBA Przodować Błąd 424 Przedmiot Wymagać Przodować

Zamieniać "txtTrainSessionNo" w ten sznurek z "cmbTrainSessionNo", i.e the imię Combobox.

Alex