[Rozwiązano] [VBA] Combobox z dynamicznym zakresem - gdy Range = 0 błąd Run-time error''1004'

Dzień dobry,

Przy wykorzystaniu Userform wprowadzane są dane da arkusza. Arkusz traktowany jest jako swego rodzaju baza danych. Jedna z kolumn tworzy nazwany dynamiczny zakres: "PESELW" [ =PRZESUNIĘCIE(DaneOsobowe!$B$2;0;0;ILE.NIEPUSTYCH(DaneOsobowe!$B:$B)-1;1) ].

Następnie ten zakres wykorzystany jest do wygenerowania listy w combobox:



Kod znajduje się w: Private Sub UserForm_Activate()

Problem 1: jeżeli w danym momencie zakres jest pusty (w tabeli nie wprowadzono jeszcze żadnych rekordów), w trakcie uruchamiania Userform zwracany jest błąd: Run-time error'1004': Method 'Range' of object '_Worksheet' failed. Zakres jest pusty, zwracany jest błąd wartości.

Problem nie będzie występował jeżeli ręcznie wprowadzimy pierwszy rekord (dane pierwszej osoby) i dopiero wtedy uruchomimy Userform (formuła z nazwy zakresu wtedy nie zwróci błędu #ADR!).

Problem 2: Jeżeli podczas jednej sesji wprowadzimy nowe rekordy, lista w combobox nie zaktualizuje się o nowe pozycje. Konieczne jest ponowne załadowanie Userform aby do tego doszło. W jaki sposób wymusić "odświeżenie" listy bez ponownego włączania Userform?

Oprogramowanie: Excel 2016

2. Odświeżenie polega na usunięciu pozycji z listy i ponownym dodaniu.
Musisz to odświeżenie wpleść w jakieś zdarzenie formularza.
1. PESELW pewnie tworzysz po uruchomieniu formularza, a powinieneś przed.

PRL napisał:

2. Odświeżenie polega na usunięciu pozycji z listy i ponownym dodaniu.
Musisz to odświeżenie wpleść w jakieś zdarzenie formularza.
1. PESELW pewnie tworzysz po uruchomieniu formularza, a powinieneś przed.

1. Wcześniejsze zdefiniowanie zmiennej, która będzie zawierać zakres PESELW nie pomaga. Błąd nadal występuje. Problem leży w pustym zakresie. Zastanawiam się nad rozwiązaniem:



Nie wiem jeszcze jak to ugryźć.

Cytat:

zdefiniowanie zmiennej

Jakiej zmiennej. Przecież PESELW, to zakres.
Jak to logika, że wypełniasz kombo pustym zakresem?

PRL napisał:

Cytat:

zdefiniowanie zmiennej

Jakiej zmiennej. Przecież PESELW, to zakres.
Jak to logika, że wypełniasz kombo pustym zakresem?

Taka logika, że przy pierwszym użyciu formularza tabela jest pusta (brak rekordów, to jest ta jedna wyjątkowa sytuacja, w której zakres jest pusty).

To dlaczego nie ładujesz do kombo danych, gdy takie dane masz?

fafik86 napisał:

Taka logika, że przy pierwszym użyciu formularza tabela jest pusta

Tak jak kolega @PRL napisał trochę to dziwnie robisz no ale.
Wyłącz na chwile błędy i będzie ok
On Error Resume Next daj przed pętlą.

Wg wiadomości PRL.