Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Wypełnianie ComboBox

Tadek · Wysłany: 18-01-2007, 10:47 **Wypełnianie ComboBox**

Do tabeli w kolumny od B do H za pomocą ComboBox wprowadzam pewne wartości. W kolumnie B nazwisko i imię, w kolumnie C datę zatrudnienia itd. Co dopisać do makra, aby po wpisaniu do ComboBox1 nazwiska i imienia przeszukiwana była tabela z danymi już wpisanymi i w ComboBox2 pojawiły się dane odpowiadające temu nazwisku - jeśli już takie nazwisko jest w tabeli, jeśli nie ma to wpis np. "Podaj datę zatrudnienia". :-(

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Co to są za comboboxy (w jaki sposób utworzone)?
Jeśli należy wyszukać pojedynczą wartość ( zawartość combobox1) to w jakim celu wpiswać to do drugiego combo a nie np. wprost do komórki czy textbox. Chyba że zakładasz zdublowane nazwiska.

Pozdrawiam

Tadek · Wysłany: 18-01-2007, 14:31

Chodzi o elementy formularza do wprowadzania danych: UserForm1.ComboBox1, UserForm1.ComboBox2 itp. Do wywołanego formularza wpisuję dane, które przenoszone są do tabeli instrukcją:
Cells(nrwie,"B")= UserForm1.ComboBox1,
Cells(nrwie,"C")= UserForm1.ComboBox2 itd.
To samo nazwisko może być wprowadzane kilka razy z innymi danymi w poszczególnych kolumnach (np. różne ukończone kursy), ale data zatrudnienia ta sama. Obecnie przy nowym wpisie tej samej osoby, ale nowego kursu, w formularzu muszę wpisywać nazwisko i datę zatrudnienia od nowa. Chodzi mi o to, aby po wpisaniu do formularza nazwiska, data zatrudnienia została wprowadzona do drugiej pozycji formularza automatycznie - po odpowiednim wyszukaniu z wypełnionej wcześniej tabeli - a do formularza wprowadzałbym dalsze inne nowe dane tej samej osoby.

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Tadek · Wysłany: 22-01-2007, 09:25

Trebor - dzięki, działa jeśli wpisuję nazwisko takie, które już jest w tabeli - ale przestaje działać, kiedy wpisywanego nazwiska nie ma w tabeli. Chyba trzeba coś dodać do makra ?

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Spróbuj tak:

Kod:

Private Sub ComboBox1_Change()
On Error GoTo koniec
ComboBox2.Text = ""
With Sheets("Arkusz1")
ComboBox2.Text = Format(WorksheetFunction.VLookup(ComboBox1.Text, .Range("B1:C100"), 2, False), "dd/MM/yyyy")
End With
If ComboBox2.Text = "" Then ComboBox2.Text = "Brak daty."
On Error GoTo 0
Exit Sub
koniec:
ComboBox2.Text = "Brak nazwiska"
End Sub

Pozdrawiam

Tadek · Wysłany: 22-01-2007, 13:48

Dzięki - wszystko działa ! Pozdrawiam :-)