Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - UserForm - Error 91

arturpl · Wysłany: 25-01-2023, 22:54 **UserForm - Error 91**

Chciałem sobie ułatwić życie znalazłem na Youtube film 'https://www.youtube.com/watch?v=m-mMYtIjOA8&t=198s jak zrobić procedurę która buduje dane do comboboxa, ale u mnie coś nie pyka, nie wiem czego zapomniałem, co zgubiłem ale kod wskazuje na błąd " Run-time Error '91' Object-variable or With block variable not set", możecie zerknąć ?

dodatkowo chciałbym aby procedura zwracała w cboWOJ.value to co jest w 1 kolumnie, a w Comboboxie wyświetlała nazwę województwa (2 kolumnę) Jak to zrobić?

test.xlsb

Pobierz Plik ściągnięto 7 raz(y) 30.38 KB

Tajan · **Pomógł:** 5234 razy Posty: 11412

Mocno tu namieszane. Nie sprawdzałem całości, ale na początek widać że w funkcji turnRangeIntoColtn brakuje na końcu linii przypisującej jej wartość:

Kod:

Set turnRangeIntoColtn = coltn

Dalej, w procedurze AddRangeToCbo, brakuje pętli nadającej liście combobox wartości:

Kod:

For i = 1 To coltn.Count
cbo.AddItem coltn(i)
Next i

Dalej nie sprawdzałem, bo moim zdaniem, ten kod jest zbyt skomplikowany do twoich zamierzeń.
Tu wystarczy procedurę UserForm_Initialize skonstruować w taki sposób:

Kod:

Private Sub UserForm_Initialize()

With cboWOJ
.ColumnCount = 2
.TextColumn = 2
.BoundColumn = 1
.ColumnWidths = Int(.Width * 0.2) & ";" & Int(.Width * 0.7)
.List = shWOJ.ListObjects("tbWOJ").DataBodyRange.Value
End With

End Sub

i będzie działać jak tego oczekujesz...

arturpl · Wysłany: 26-01-2023, 04:57

Dziękuję nie wiem jak mogłem to przeoczyć :( cytując klasyka "oczywista, oczywistość" :)
Tak zgadzam w tym przypadku to jest pójście z przysłowiową armatą na muchę, i tu twoje rozwiązanie jest prostsze, ale już przy kilku(nastu) comboboxach w jednym userformie robi różnice, i chyba trudniej o pomyłkę :) Dlatego stwierdziłem że wykorzystam to przy czynnościach powtarzalnych. W przykładzie był jeden combobox ale właśnie zamierzam to wykorzystać przy userformie z wieloma comboboxami, do tego jakby się udało zależnymi od siebie :)
Nadal jednak nie wiem jak w tych 'moich' procedurach i funkcji uzyskać to co chciałem finalnie czyli żeby w cbo TextColumn było 2 kolumną a BoundColumn pierwszą kolumną (w tym przypadku z tbWOJ).

arturpl · Wysłany: 26-01-2023, 06:30

W przypadku zależnych comboboxów na zdarzeniu _change() tego wyżej będę chciał najpierw przefiltrować dane z kolejnego zakresu i skopiować wynik w inne miejsce a potem użyje w procedurze AddRangeToCbo() jako parametry: zakresu skopiowanego i tego comboboxa niżej.

Do tego mi potrzebne value z innej kolumny niż to co się wyświetla, bo w kolejnym zakresie (powiaty), mam kolumny woj, pow, i nazwa. będę filtrował po kolumnie "woj" a ona jest wypełniona wartościami 02, 04, 06, 08, 10 itd.

Nie wiem czy dobrze kombinuje?

master_mix · Wysłany: 26-01-2023, 09:47

niezależnie jak ustawisz widok listy w combobox,
nie sprawdzaj własności.Value combo tylko element listy
np.

Kod:

Private Sub cboWOJ_Change()
Debug.Print Me.cboWOJ.List(Me.cboWOJ.ListIndex, 0)
Debug.Print Me.cboWOJ.List(Me.cboWOJ.ListIndex, 1)
End Sub

Private Sub UserForm_Initialize()
Me.cboWOJ.List = [tbWOJ].Value
End Sub

Tajan · **Pomógł:** 5234 razy Posty: 11412

J_B · Wysłany: 26-01-2023, 10:35

arturpl · Wysłany: 26-01-2023, 20:24

J_B · Wysłany: 26-01-2023, 20:58