Nie wiem jak masz u?o?one dane, wi?c poni?szy przyk?ad jest stworzony
dla danych gdzie w kolumnie A s? wojew?dztwa, w kolumnie B przypisane
do nich miasta. Dane musz? by? posortowane przynajmniej po
wojew?dztwach.
Dodatkowo w kolumnie J umie?ci?em nazwy wszystkich wojew?dztw jako
?r?d?o dla pierwszego pola kombi.

- dodaj? do arkusza dwa pola kombi, wst??ka deweloper, przycisk wstaw
i ze zbioru formanty ActiveX wybieramy pole kombi.

- W trybie projektowania kilkamy prawym klawiszem na pierwsze pole
kombi, wybieramy w?a?ciwo?ci i nadajemy nazw? (w?a?ciwo?? name) polu
"wojewodztwa", dodatkowo ustawiamy w?a?ciwo?? ListFillRange na zakres
gdzie mamy wojew?dztwa (u mnie kolumna J).

- Zamykamy w?a?ciwo?ci 1-go pola kombi i klikamy na w?a?ciwo?ci
drugiego pola kombi. nadajemy mu nazw? "miasta" i zamykamy
w?a?ciwo?ci.

- Ponownie w trybie projektowania klikamy prawym na 1-sze pole kombi i
tym razem wybieramy opcj? wy?wietl kod i wklepujemy poni?sze makro:

Private Sub wojewodztwa_Change()

Set pierwsza = Range("A:A").Find(what:=wojewodztwa)
Set wszystkie = pierwsza
Set znaleziona = pierwsza
Do
Set znaleziona = Range("A:A").Find(after:=znaleziona,
what:=wojewodztwa)
If znaleziona Is Nothing Then Exit Do
Set wszystkie = Union(znaleziona, wszystkie)
If znaleziona.Address = pierwsza.Address Then Exit Do
Loop

miasta.ListFillRange = wszystkie.Offset(0, 1).Address
Range("A1").Select
miasta.Value = pierwsza.Offset(0, 1)
End Sub

- zamykamy VBA, odklikujemy tryb projektowania i testujemy pola kombi.
U mnie dzia?a

--
Pozdr.
Cynio