Nowoczesny formularz do wprowadzania danych bez użycia UserForm w Excel VBA

No video

Nowoczesny formularz do wprowadzania danych bez użycia UserForm w Excel VBA

Рет қаралды 29,728

Жыл бұрын

#excel #vba #userform
Oglądając film dowiesz się jak za pomocą odpowiednich narzędzi w Excelu oraz VBA dla Excela utworzyć nowoczesny formularz do wprowadzania danych.
W filmie wykorzystam narzędzie jakim jest "Formatowanie warunkowe" w celu wyróżniania wartości, które zostały wprowadzone lub też czekają na wprowadzenie. Narzędzie to będzie również przydatne do stworzenia paska postępu (StatusBar/Progress Bar), który będzie informował ile danych zostało już wprowadzonych. Po utworzeniu formularza napiszemy kilka procedur, które będą przenosić dane do nowego arkusza (wiersz po wierszu). Wszystkie podane dane przed przeniesieniem będą jeszcze sprawdzane czy zostały faktycznie uzupełnione.
ZAPRASZAM NA KAWĘ!
Jeżeli film ci się podobał i uważasz ten materiał za wartościowy, możesz postawić mi kawę :)
buycoffee.to/smartexcel
Link do strony "wiedza za grosze" poniżej:
smartexcel.pl/wiedza-za-grosze/
Na stronie znajdziesz film, w którym dowiesz się jak zarządzać wpisami dodanymi do bazy danych za pomocą nowoczesnego formularza.
Link do moich kursów online:
smartexcel.pl/lista-kursow/
Poniżej link do pobrania pliku, który został użyty w filmie:
smartexcel.pl/download/nowocz...

Пікірлер: 69

@michagodlewski5433 7 ай бұрын

Świetny film. Wszystko, co w tytule znalazło się w filmie - przedstawione krok po kroku. Proste elementy w przyspieszony sposób natomiast to, nad czym trzeba się chwilę pochylić zostało precyzyjnie wyjaśnione. Dawno nie widziałem tak dobrego tutorialu na YT. Great Job!!!

@krzysztofbugno1968 5 ай бұрын

Film jak zwykle rozwiązujący praktyczne zagadnienie i do tego świetnie zrobiony metodycznie. To duża przyjemność oglądać go i robić wszystko obok. Jest jednak pewien błąd: Jak oglądałem film, to zabrakło mi do pełni sprawdzenia działania: czy wszystkie okna są wypełnione, ale podczas już wprowadzania danych. Gdy wprowadzamy dane, a nie są one wszystkie wypełnione, to pokazuje się MsgBox, że należy uzupełnić dane, a następnie te dane, a za nim, że dane zostały dodane do bazy. To nie zmienia świetnej wartości całego filmu - pokazuje jednak, iż ma Pan grono osób, które Pana Filmy ogląda do końca i je testuje👍Nota bene - świetne są te odnośniki, że np MsgBox jest oddzielny odcinek - to wartościowa uwaga pozwalająca przypomnieć sobie, jeśli ktoś zapomniał, bardziej szczegółowo to zagadnienie..

@bartoszklepacki713 6 ай бұрын

Wszystko wyjaśnione na najwyższym poziomie. Co ważne, to nie zapominasz o banalnych rzeczach, które dla laika mogą być niezrozumiałe.

@ivonaw-k9463 Жыл бұрын

Extra film. Tego mi właśnie brakowało. Krok po kroku szczególnie VBA. Bardzo dziękuję

@smartexcel-s.godziszewski Жыл бұрын

Dziękuje za komentarz i miłe słowa :)

@mim6133 4 ай бұрын

MEGA, świetne dzielenie się wiedzą. Pozdrawiam

@Wenzon123 Жыл бұрын

Wspaniałe rozwiązanie, gratuluje wiedzy i umiejętności jej przekazania

@smartexcel-s.godziszewski Жыл бұрын

Dziękuję za komentarz i za miłe słowa :) Pozdrawiam

@twysopalify 6 ай бұрын

Pozdrawiam :) i dziękuję

@totinek100 Жыл бұрын

Fajny formularz super film😊

@smartexcel-s.godziszewski Жыл бұрын

Dziękuję za komentarz :)

@andrzejnalepa7995 Жыл бұрын

DOBRE :)

@piotrhamowski3952 5 ай бұрын

zgadzam się z przedmówcami. na nowo zainspirowany do działania

@diabediabelny5274 5 ай бұрын

Dzięki za świetny content, mam pytanie: czy bez użycia VBA forms można zablokować pola w formularzu tak by edycja była możliwa tylko w tych wskazanych? Zeby pozostałe pola były krótko mówiąc nieklikalne :) jeszcze raz dziękuję i gratuluję dobrej roboty!

@user-vj9su9pv6y Жыл бұрын

DZIĘKI, MEGA FILM :)

@smartexcel-s.godziszewski Жыл бұрын

Dzięki za komentarz :) Pozdrawiam

@user-vj9su9pv6y Жыл бұрын

@@smartexcel-s.godziszewski A masz może materiał jak zrobić w takim formularzu oprócz wprowadzania danych, również ich wyszukiwanie i edytowanie ?

@Inztetrus Жыл бұрын

@@user-vj9su9pv6y Też bym taki film obejrzał

@smartexcel-s.godziszewski Жыл бұрын

@@user-vj9su9pv6y Zarządzanie wpisami jest dostępne na mojej stronie smatexcel.pl Materiał jest płatny a jego koszt to 4 zł Link dostępny poniżej: smartexcel.pl/wiedza-za-grosze/ Jeśli chodzi o wyszukiwanie to takie materiały są dostępne na moim kanale :) Pozdrawiam

@tomaszurban70 9 ай бұрын

Klasa.

@marcin8810 Жыл бұрын

A ja dziś skończyłem podobny formularz i wiele elementów zastosowałem, które pokazałeś. Musiałem jednak utworzyć formularz bez użycia VBA.

@smartexcel-s.godziszewski Жыл бұрын

Dzięki za komentarz i super, że udało się stworzyć własny formularz.

@sebastiankrys7407 2 ай бұрын

Cześć. Pobawiłem sie i poszło. Możesz wrzucić tu całość kodu? Byłoby łatwiej szukać ewentualnych błędów u siebie. Mam u siebie mankament: - gdy nie wszystkie pola są wypełnione to dane i tak dodawane są do bazy danych (te niepełne), i pojawiają się po sobie 2 komunikaty; pierwszy, że dane są niepełne i nalezy je uzupelnic a po kliknieciu OK na msgbox ze dane zostaly dopisane do bazy

@djjackaction Жыл бұрын

Bardzo wartościowa wiedza. Od kilku zastanawiam się czy istnieje możliwość utworzenia tabeli przestawnej która będzie wyświetlać dane ale tylko na podstawie danego warunku (słowa). Jeśli znasz jakiś „patent” aby tego dokonać to chętnie wysłucham ;) Wesołych Świąt ;)

@smartexcel-s.godziszewski Жыл бұрын

Dzięki za komentarz. Tworząc tabele przestawną w VBA przekazujemy informację do PIVOT CACHE z jakiego źródła korzystamy. Rozwiązaniem będzie wówczas wykorzystanie pętli (FOR NEXT, FOR EACH NEXT), aby przygotowała nowy zestaw danych, który będzie zawierał dany warunek (nasze słowo) i na podstawie takiego zestawu danych zasilić Pivot Cache a następnie utworzyć TP. Mam nadzieję, że o takie rozwiązanie chodzi? Zrozumiałem, że warunek (czyli "słowo") to jakaś wartość, która znajduje się w zestawie danych i tylko dane zawierające taki warunek mają zostać przeniesione do TP. Pozdrawiam

@MrPrzemoc Жыл бұрын

To jest super! Wpadł mi pomysł że takim formularzem możemy zarządzać jakimś towarem na zasadzie dodawania go i zdejmowania ze stanu czy kiedyś zrobisz taki poradnik?

@smartexcel-s.godziszewski Жыл бұрын

Dzięki za komentarz. Jak najbardziej jest to pomysł na kolejny film, który mogę w przyszłości wziąć pod uwagę. Formularz, o którym wspominam w filmie może mieć wiele zastosowań. Jednym z nich jest jak najbardziej zarządzanie towarem. Wystarczy rozbudować taki formularz o możliwość wczytywania ponownie danych do formularza z dodatkowym przyciskiem np. "Aktualizuj dane". Można "rzucić" sobie również wyzwanie i spróbować taki formularz przygotować samodzielnie :) Pozdrawiam

@PeePoo1983 Жыл бұрын

Super, wykonane. Jak zrobić przyciski poprzedni (formularz wyświetli już dodany wcześniej wpis) i przycisk możliwości wykasowania....

@smartexcel-s.godziszewski Жыл бұрын

Dzięki za komentarz. Możliwości wykonania takich przycisków w VBA jest wiele. Należy w pierwszej kolejności ustalić po jakim parametrze chcielibyśmy wyszukiwać takie dane. Kolejny krok to wpisywanie takiej wartości do formularza w konkretnym miejscu, inny sposób to wykorzystanie funkcji InputBox do pobrania tej wartości lub własny UserForm. Po pobraniu informacji (ten parametr) za pomocą przycisku "Wczytaj lub Wyszukaj" przeszukiwałby dane po tym parametrze i zwracałby dane do formularza. Informacje o zapisywaniu danych do formularza są podane w tym filmie, jeżeli zrobimy odwrotny zapis to będziemy mogli je pobierać. Rodzaje wyszukiwać danych można znaleźć również na moim kanale. Inne rozwiązanie to skorzystanie z dostępu do filmu, w którym pokazuje jak zarządzać danymi po ich wprowadzeniu. Link do płatnego materiału poniżej: smartexcel.pl/produkty/nowoczesny-formularz-do-wprowadzania-danych-zarzadzanie-wpisami/ Pozdrawiam

@PeePoo1983 Жыл бұрын

@@smartexcel-s.godziszewski skorzystam z gotowego filmu... Nie jestem programista , a samoukiem, potrzebuje coś zrobić żeby ułatwić sobie w pracy, poruszam się jakoś w Excel i co nieco wiem. Skorzystam że ściągi 😁

@Sikorkiwpodrozy 7 ай бұрын

Super! A jest taka opcja, żeby po otwarciu arkusza form zaznaczała się pierwsza komórka, w której należy wprowadzić dane, a później po ich wprowadzeniu, zaznaczała się kolejna komórka do wypełnienia?

@nin9beat749 2 ай бұрын

Jeżeli ja chcę zacząć korzystać z tego user form od wiersza 197 ,co trzeba zmienić w kodzie? bo nie chcą mi dane iść do dołu po kolei czyli dane z user form zostają i zmieniają się wyłącznie w wierszu 197,nie przeskakuję na wiersz 198 i tak dalej Jak wpisuję w kodzie zamiast +3 ,+197,również nie działa, dane zostają w wierszu 197 ,nie przeskakuję na kolejny wiersz

@user-dv6dp6eb7n 7 ай бұрын

Super nagranie. Mam jedno pytanie, jak powinien wyglądać kod, jeżeli BAZA DANYCH pobierająca dane z formularza, znajduje się w innym pliku?

@rafais_84 Жыл бұрын

Przydałaby się jeszcze edycja wprowadzonego już wpisu PS. materiał super

@smartexcel-s.godziszewski Жыл бұрын

Dziękuję za komentarz. Edycja wprowadzonych danych to fajny pomysł na kolejny film :) Pozdrawiam

@dupowlaz1980 3 ай бұрын

Chciałbym przy pomocy podobnego formularza zasilić arkusz, ale w innym pliku. Tylko nie za bardzo wiem jak zmienić kod. Czy muszę zdefiniować zmienną odwołując się w niej do pliku zewnętrznego?

@pixell8157 6 ай бұрын

Czy jest możliwe aby do funkcji podkładać wartość wielkości tej tablicy i w 'BAZA DANYCH' w kolumnie A ( 20:30 tzn zamiast przeciągać do którejś wartości dynamicznie będzie się ta funkcja dostosowywać do tylu komórek w dół ile sami wpiszemy?)

@andrzejjedraszczak Жыл бұрын

Wpisałem wszystko co do przecinka dodawanie do bazy danych działa głównie to tylko na tym mi zależało! Dzieki super Materiał!👍 Ale przy okazji mam dwa błedy ciężko powiedzieć co jest nie tak 1. Błąd: komunikat "uzupełnij brakujące pola" pojawia sie tylko gdy brakuje danych w jednej komurce jezeli dana komurka jest wypelniona a pozostale obojetnie które nie to nie pojawia sie komunikat 2 błąd: mam jakieś komplikacje z wyskakującym komunikatem "uzupełnij brakujące pola" jeśli wcisnę przyciski OK lub X to zaraz po nim wyskakuje komunikat o sukcesie dodania danych mimo że nie zdążyłem nawet sprawdzić w której komórce brakuje danych. nie rozumiem jak to naprawić.

@smartexcel-s.godziszewski Жыл бұрын

Dziękuję za komentarz. Więc sprawa wygląda tak, jeżeli chcemy, aby makro sprawdzało wszystkie komórki i przy okazji poprawiło problem z wyskakującymi oknami należy w procedurze "Sub wprowadzamyDaneDoForm()" w miejscu instrukcji "Call sprawdamyCzyPelne" (czyli usuwamy całą linijkę) wstawiamy przykładowe poniższe polecenie: With Arkusz4 If .Range("C3") = Empty Or .Range("C5") = Empty Or .Range("C7") = Empty Or .Range("C9") = Empty _ Or .Range("C11") = Empty Or .Range("C13") = Empty Or .Range("C15") = Empty Or .Range("G3") = Empty _ Or .Range("G5") = Empty Or .Range("G7") = Empty Or .Range("G9") = Empty Or .Range("G11") = Empty Then MsgBox "Należy uzupełnić wszystkie dane formularza", vbExclamation + vbOKOnly, "informacja" Exit Sub End If End With Reasumując, tak jest aktualnie w kodzie: Sub wprowadzamyDaneDoForm() Call sprawdamyCzyPelne Dim ileW As Long ileW = Arkusz5.Range("A1").Value '... dalasza część kodu A tak powinno być: Sub wprowadzamyDaneDoForm() With Arkusz4 If .Range("C3") = Empty Or .Range("C5") = Empty Or .Range("C7") = Empty Or .Range("C9") = Empty _ Or .Range("C11") = Empty Or .Range("C13") = Empty Or .Range("C15") = Empty Or .Range("G3") = Empty _ Or .Range("G5") = Empty Or .Range("G7") = Empty Or .Range("G9") = Empty Or .Range("G11") = Empty Then MsgBox "Należy uzupełnić wszystkie dane formularza", vbExclamation + vbOKOnly, "informacja" Exit Sub End If End With Dim ileW As Long ileW = Arkusz5.Range("A1").Value '... dalasza część kodu Powyższy kod będzie sprawdzał każdą komórkę oraz rozwiąże problem z wyświetlaniem dwóch MsgBox-ów. Pozdrawiam serdecznie

@jacekjacek7645 7 ай бұрын

A czy jest możliwość dodania dwóch przycisków przycisk 1, przycisk 2 i jak kliknę w przycisk jeden, to żeby zapisało dane w arkuszu x, a jak w przycisk 2 to żeby zapisało w arkuszu y?

@TheMuszekOkruszek 5 ай бұрын

Q Super materiał, a jak zmienić z automatu wprowadzane teksty na wszystkie wielkimi literami ? oraz jak ograniczyć np. ilość wprowadzanych znaków do komórki np. do 20 cyfr i nie wiecej ?

@grzegorzkoodziej3477 10 ай бұрын

Witam A jak postępować ze scalonymi komórkami. mam komunikat o błędzie 400 a w testowaniu informację że tego ze scalonymi komórkami nie można zastosować.

@robertsitarek1063 Жыл бұрын

Cześć, czegoś takiego szukałem. Nie mam pojęcia o VBA, ale może spróbuję się podjąć stworzenia formularza pod swoje dane. Czy masz wiedzę, czy Twoje rozwiązanie będzie działało w Arkuszach Google?

@smartexcel-s.godziszewski Жыл бұрын

Cześć, dzięki za komentarz. Z tego co wiem to Google Sheets używa Google Apps Script do nagrywania makr. Nie zmienia to faktu, że są tzw. "Macro Converter" :) Kod VBA zostaje zamieniony na Java Script. Pozdrawiam

@lczajewski 6 ай бұрын

A jak zrobić aby można było przeglądać tym formularzem dane zapisane w bazie danych oraz je modyfikować?

@Arlekeen1977 Жыл бұрын

Świetny materiał! Mam tylko pytanie, gdyż na końcu pojawił mi się komunikat 400 :(((((( Co może być przyczyną? wszystkie komendy sprawdziłam i niby wszystko OK, przycisk Wyczyść działa. Będę wdzięczna za pomoc.

@smartexcel-s.godziszewski Жыл бұрын

Ciężko stwierdzić bez zerknięcia w kod co może być bezpośrednią przyczyną. Proszę sprawdzić na początek czy wszystkie adresy do komórek np. w obiekcie Range mają cudzysłów ( np. Range("A1").value )

@MusicRemix-hz3ss Жыл бұрын

Mam problem z formatowaniem warunkowym. Gdy chcę, żeby zamiast 1 była ikonka działa to tylko jak wpisze 1 w komórkę, ale gdy w tej komórce jest formuła jeżeli, która pokazuje 1, ikonka się nie zmienia. Jakiś pomysł co poszli źle?

@smartexcel-s.godziszewski Жыл бұрын

Formatowanie warunkowe dotyczy komórki np. A1, która sprawdza czy w komórce sąsiedniej (B1) jest wartość inna niż puste np. komórka A1 =JEŻELI(B1"";1;"*"). Kolejny krok to dodajemy formatowanie warunkowe (jako zestaw ikon) komórce A1 i ustawiamy je tak, aby pokazywała ikonę tylko dla wartości >=1. Pozostałe kryteria ustawiamy bez ikony. Na koniec używamy polecenia "pokaż tylko ikonę". Powodzenia

@lukaszsulecki Жыл бұрын

Cześć! Czy istnieje jakaś możliwość aby w trakcie wpisywania nowego pracownika a przed jego dodaniem do bazy pojawiał się komunikat sprowadzający czy taki pracownik już istnieje/został dodany?

@smartexcel-s.godziszewski Жыл бұрын

Cześć, dzięki za komentarz. Na wstępie serdecznie zapraszam do płatnego materiału (koszt to 500 groszy) , w którym pokazuję jak rozbudować funkcjonalności tego narzędzia o nowe możliwości :) Link poniżej: smartexcel.pl/produkty/nowoczesny-formularz-do-wprowadzania-danych-zarzadzanie-wpisami/ Wracając jednak do pytania, to jak najbardziej jest taka możliwość :) Wystarczy wykorzystać funkcje LICZ.JEŻELI() do sprawdzenia czy np. nazwisko/nr pracownika nie zwraca wartości >0 Dodatkowo za pomocą funkcji JEŻELI() możemy w komórce pomocniczej zwracać dowolny komunikat, jeżeli taka wartość jest > 0. Na koniec możemy dodać formatowanie warunkowe (na sprawdzanej komórce) dzięki, której możemy ją wyróżnić czerwonym wypełnieniem jeżeli w komórce pomocniczej pojawi się ten konkretny tekst (lub będzie PUSTE). Powodzenia

@GrzegorzChmielowski74 4 ай бұрын

Bardzo przydatny materiał. Dobrzeby było przechodzić mięzy komurkami enterem. Czy jest taka opcja?

@mariuszszczepaniak50 4 ай бұрын

W tej chwili wystarczy nacisnąć enter dwa razy i przejdziesz z jednego do drugiego pola formularza, niestety do przejścia do prawej kolumny z komórkami formularza trzeba użyć myszki. Jeżeli skasujesz puste wiersze między polami formularza, to jeden enter wystarczy by przejść do pola poniżej, nadal jednak przejście do prawej kolumny z polami formularza wymagać będzie użycia myszki. Po usunięciu wierszy pamiętaj by zmodyfikować kod VBA, inaczej uzupełnianie bazy nie będzie działać poprawnie.

@DanielMikoajczyk Жыл бұрын

Ja np wpisałem ten kod tak jak podpowiadasz i działa, sprawdza każda z komórek, jak któraś jest niewypełniona pokazuje się komunikat, lecz teraz po naciśnięciu "dodaj" nie dodaje danych z formularza do bazy danych. W czym może być problem ?

@smartexcel-s.godziszewski Жыл бұрын

Przyczyn może być wiele. Bez kodu ciężko będzie cokolwiek stwierdzić. Proponuje przejść za pomocą Debug - "Step into" (F8) krok po kroku przez procedurę i zobaczyć, w którym miejscu występuje problem.

@przemko7298 Ай бұрын

dzięki

@Krainabelfra Жыл бұрын

Poległem na 18:19 nie wiedziałem jakiego skrótu użyć na macu i narobiłem kilka podobnych tabel w arkuszu technicznym. Teraz jak dopisuje ręcznie tam to nie pokazuje się to w formsie. Nie wiem też, gdzie te wszystkie kopie tabel, które nazwałem

@smartexcel-s.godziszewski Жыл бұрын

Jeżeli skrót nie działa możemy też po znaku "=" wpisać odwołanie do nazwy zdefiniowanej ręcznie. Wszystkie nazwy zdefiniowane w Excelu znajdują się na karcie "Formuły" w sekcji "Nazwy zdefiniowane". Wybieramy Menedżer nazw, w którym możemy zarządzać m.in. tymi nazwami (domyślny skrót to CTRL+F3, Mac to chyba Fn+⌃+F3)

@Krainabelfra Жыл бұрын

@@smartexcel-s.godziszewski wow :-) Super, wielkie dzięki. Ja dopiero zaczynam stawiać małe kroki w exelu. Prowadzę duże forum i postanowiłem sobie, że zrobię porządną bazę danych z przyjaznym formularzem do wpisywania danych :-)

@wayllomk Жыл бұрын

witam chodzi mi o kod gdzie sprawdzamy czy komórki pełne. wydaje mi się ze tam jest coś nie tak kod widzi komórki z listami jako nie puste. Jestem noga z vba i czy jest jakieś inne rozwiązanie tego kodu

@smartexcel-s.godziszewski Жыл бұрын

Cześć, nie zrozumiałem na czym polega Twój problem. Prośba o szczegółowy opis problemu. Jeżeli dopiero zaczynasz "przygodę z VBA" zapraszam do zapoznania się z innymi filmami na moim kanale, aby zdobywać wiedzę w praktyce i rozwiewać wątpliwości :) Jeżeli jesteś z kolei zainteresowany kontynuacją filmu "Nowoczesny formularz do wprowadzania danych bez użycia UserForm w Excel VBA" to zapraszam na moją stronę internetową - dział "Wiedza za grosze". Link poniżej: smartexcel.pl/wiedza-za-grosze/ Pozdrawiam

@wayllomk Жыл бұрын

@@smartexcel-s.godziszewski ciężko całość opisać po prostu sprawdź czy działa IF z sprawdzamy czy pełne (28:42) np chodzi o komórkę C7(Płeć) w formularzu nie wybieraj nic z listy i zobaczysz że sprawdzanie przejdzie ok nie pokaże MsgBox-a

@smartexcel-s.godziszewski Жыл бұрын

@@wayllomk W jednym z komentarzy podawałem kod, który można zastosować, aby sprawdzanie odbywało się nieco inaczej (lepiej). Treść komentarza poniżej. Mam nadzieję, że będzie pomocny. Więc sprawa wygląda tak, jeżeli chcemy, aby makro sprawdzało wszystkie komórki i przy okazji poprawiło problem z wyskakującymi oknami należy w procedurze "Sub wprowadzamyDaneDoForm()" w miejscu instrukcji "Call sprawdamyCzyPelne" (czyli usuwamy całą linijkę) wstawiamy przykładowe poniższe polecenie: With Arkusz4 If .Range("C3") = Empty Or .Range("C5") = Empty Or .Range("C7") = Empty Or .Range("C9") = Empty _ Or .Range("C11") = Empty Or .Range("C13") = Empty Or .Range("C15") = Empty Or .Range("G3") = Empty _ Or .Range("G5") = Empty Or .Range("G7") = Empty Or .Range("G9") = Empty Or .Range("G11") = Empty Then MsgBox "Należy uzupełnić wszystkie dane formularza", vbExclamation + vbOKOnly, "informacja" Exit Sub End If End With Reasumując, tak jest aktualnie w kodzie: Sub wprowadzamyDaneDoForm() Call sprawdamyCzyPelne Dim ileW As Long ileW = Arkusz5.Range("A1").Value '... dalasza część kodu A tak powinno być: Sub wprowadzamyDaneDoForm() With Arkusz4 If .Range("C3") = Empty Or .Range("C5") = Empty Or .Range("C7") = Empty Or .Range("C9") = Empty _ Or .Range("C11") = Empty Or .Range("C13") = Empty Or .Range("C15") = Empty Or .Range("G3") = Empty _ Or .Range("G5") = Empty Or .Range("G7") = Empty Or .Range("G9") = Empty Or .Range("G11") = Empty Then MsgBox "Należy uzupełnić wszystkie dane formularza", vbExclamation + vbOKOnly, "informacja" Exit Sub End If End With Dim ileW As Long ileW = Arkusz5.Range("A1").Value '... dalasza część kodu Powyższy kod będzie sprawdzał każdą komórkę oraz rozwiąże problem z wyświetlaniem dwóch MsgBox-ów. Pozdrawiam serdecznie

@ddrraamma Жыл бұрын

Po przycisku dodaj, moje dane nie wpisują się pokolei od A2 a dopiero A400. Czy masz pomysł dlaczego tak się dzieje?

@smartexcel-s.godziszewski Жыл бұрын

Dzięki za komentarz, przyczyn może być wiele. Najlepiej gdy podzielisz się kodem. W innym przypadku, sprawdź czy kod nie zawiera czasami samego obiektu Range bez wskazania konkretnego arkusza. Jeżeli używamy obiektu Range i sprawdzamy np. działanie makra będąc w innym arkuszu to kod wykonuje się dla aktualnego arkusza, w którym aktualnie jesteśmy. Dlatego w takich przypadkach warto wykorzystać nazwę techniczną arkusza lub poprzedzić Range np. Worksheets("nazwa arkusza").Range... . W innym przypadku należy dodać instrukcję, która będzie uprzednio zaznaczała (aktywowała) taki arkusz przed dodaniem danych. Inny powód to błędny zapis instrukcji, która sprawdza ostatni wiersz z danymi. Tak jak wspominałem na początku, zdecydowanie lepiej będzie jak zobaczę kod z instrukcją i najlepiej z komentarzem, który opisuje co mamy zamiar zrobić. Pozdrawiam

@marcin8810 Жыл бұрын

Od 30:07 zaczęło szumić.