ComboBox lista - Pole ComboBox a odczyt wartości

Question

Witam wszystkich serdecznieMam malutki problem z polem combobox od kilku dni próbuję wczytać wartość do ComboBox-a.Pole działa prawidłowo jeżeli c...

clubs · Answer

zobacz toCode: vbscriptLog in, to see the code

KrzyMol · Answer

Może źle wpisałem bo jestem raczkującym w VBA

Przy takim wpisie otrzymuję błąd Run-Time error 2147467259
Unspecified error

A dodatkowo odczytana wartość jest pokazana ciągiem 2x

Log in, to see the code

clubs · Answer

w kodzie userform-a umieśćCode: vbscriptLog in, to see the code

KrzyMol · Answer

Nie mam pojęcia co robię źle bo nie działaCode: vbscriptLog in, to see the codei nie działa mogę natomiast ręcznie poprawić wartość ale z listy combobox nic nie mogę zmienić

clubs · Answer

heh teraz to już całkiem namieszałeś w tym kodzie

jeżeli masz userform-a w nim combobox1 i w kodzie to co podałem wyżej to
przy uruchomieniu userform-a w combobox1

1 czyści go
2 wyświetla nagłówek to co masz od aktywnej komórki 5 kolumn dalej
3 ładuje listę z zakresu d2:d7

no chyba że chodzi ci o coś innego

jeżeli combo ma ci dodatkowo zmienić tą komórkę to w userformie wklej tylko te dwa kody

Log in, to see the code

KrzyMol · Answer

Zgadza się a chcę zrobić tak
1 przy uruchomieniu combobox
- odczytuje wartość z ActiveCell.Offset(0, 5)
2 wartość widoczna i kliknięcie Combobox-a rozwija listę z której można wybrać nową wartość

I tu jest problem bo punkt 2 nie działa - muszę np. wpisać nową wartość ręcznie bo przy rozwinięciu listy nie mogę wprowadzić nowej wartości.

A może .Clear uruchomić w momencie kliknięcia Combobox-a tylko nie mam pojęcia jak.

Dodano po 34 [minuty]:

Udało się jeżeli możesz podpowiedzieć czy tak może być to będę wdzięczny

Zmieniłem

Private sub ComboBox1_Click()
na
Private sub ComboBox1_Load()

widzę, że działa więc pewnie będzie ok

clubs · Answer

pokaż ten cały kod

KrzyMol · Answer

Code: vbscriptLog in, to see the codePrzy takim zapisie wszystko jest OK