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..
Ś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!!!
Ja robiąc podobny formularz dodałem makro, które czyściło dane po kliknięciu guzika i dodaniu do tabeli z jednoczesnym zabezpieczeniem że jeżeli jedno lub więcej wymaganych okienek było pustych to makro się nie wykonało Można w tym konkretnym przypadku usunąć po dodaniu np. Imię i nazwisko, które to zazwyczaj się nie powtarza i zrobić właśnie takie zabezpieczenie że jeżeli okienka są puste to makro „dodaj” nie ruszy
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!
@@mateuszw-o5y 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
Cześć. Mam problem. Kiedy komórki nie są wypełnione i próbuje dodać "pracownika" pojawia mi sie komunikat "Należy wypełnić wszystkie dane formularza" jednak po zatwierdzeniu "ok" i tak wyskakuje komunikat że dane zostały dodane do bazy danych. Masz na to lekarstwo??
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?)
Taką funkcjonalność zapewnia forma Tabeli w Excelu czyli na zakresie komórek klikamy ctrl+t bądź dodajemy z opcji na wstążce i jeżeli mamy zaszyte w niej formuły to dodają się one automatycznie wraz z dodawanymi danymi w kolejnym wierszu
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?
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
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)
@@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 :-)
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 ?
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 ;)
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
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?
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
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
hej, okazuje się, że w tym kodzie z filmiku jest pewien błąd. Komenda "Exit Sub" nie przerywa wykonywania wszystkich procedur, a jedynie tej procedury, w której siedzi ta komenda. Potem procedura nadrzędna wykonuje pozostałe kroki, stąd masz 2 komunikaty i efekt dodania niepełnego rekordu do bazy pomimo niespełnionych warunków. Rozwiązaniem jest albo zrobienie procedury typu "spaghetti", czyli bez procedury wywoływanej, albo zrobić to inaczej, np. poprzez stworzenie 3 procedur (sprawdzenie, a potem call procedura "a" if sukces i call procedura "b" if porażka).
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ć.
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?
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.
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
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ć.
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
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
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?
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
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?
Możesz zastosować to rozwiązanie z filmu natomiast w pliku docelowym połączyć się z tabelą za pomocą tabeli przestawnej bądź power query Bo jeżeli dobrze myślę to musiałbyś w kodzie dodać również część, która uruchamiałaby tamten plik i podać wtedy elementy do wklejania w pełnej ścieżce czyli plik, arkusz i komórki
Ś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.
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 )
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?
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
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?
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
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 ?
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.
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
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
@@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
@@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
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
@@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 😁
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..
Ś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!!!
Wszystko wyjaśnione na najwyższym poziomie. Co ważne, to nie zapominasz o banalnych rzeczach, które dla laika mogą być niezrozumiałe.
MEGA, świetne dzielenie się wiedzą. Pozdrawiam
Extra film. Tego mi właśnie brakowało. Krok po kroku szczególnie VBA. Bardzo dziękuję
Dziękuje za komentarz i miłe słowa :)
Wspaniałe rozwiązanie, gratuluje wiedzy i umiejętności jej przekazania
Dziękuję za komentarz i za miłe słowa :) Pozdrawiam
zgadzam się z przedmówcami. na nowo zainspirowany do działania
Materiał świetny, pozostaje jeszcze zabezpieczyć formularz przed podwójnym klinięciem w przycisk "Dodaj"
Ja robiąc podobny formularz dodałem makro, które czyściło dane po kliknięciu guzika i dodaniu do tabeli z jednoczesnym zabezpieczeniem że jeżeli jedno lub więcej wymaganych okienek było pustych to makro się nie wykonało
Można w tym konkretnym przypadku usunąć po dodaniu np. Imię i nazwisko, które to zazwyczaj się nie powtarza i zrobić właśnie takie zabezpieczenie że jeżeli okienka są puste to makro „dodaj” nie ruszy
Bardzo fajny filmik. Delete wymawia się "dylit" a nie "dilejt" bo delayed to jest pociąg albo samolot 🙂
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.
Dzięki za komentarz i super, że udało się stworzyć własny formularz.
Pozdrawiam :) i dziękuję
Fajny formularz super film😊
Dziękuję za komentarz :)
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!
DZIĘKI, MEGA FILM :)
Dzięki za komentarz :) Pozdrawiam
@@smartexcel-s.godziszewski A masz może materiał jak zrobić w takim formularzu oprócz wprowadzania danych, również ich wyszukiwanie i edytowanie ?
@@mateuszw-o5y Też bym taki film obejrzał
@@mateuszw-o5y 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
Cześć. Mam problem. Kiedy komórki nie są wypełnione i próbuje dodać "pracownika" pojawia mi sie komunikat "Należy wypełnić wszystkie dane formularza" jednak po zatwierdzeniu "ok" i tak wyskakuje komunikat że dane zostały dodane do bazy danych. Masz na to lekarstwo??
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?)
Taką funkcjonalność zapewnia forma Tabeli w Excelu czyli na zakresie komórek klikamy ctrl+t bądź dodajemy z opcji na wstążce i jeżeli mamy zaszyte w niej formuły to dodają się one automatycznie wraz z dodawanymi danymi w kolejnym wierszu
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?
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
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)
@@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 :-)
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 ?
Super nagranie. Mam jedno pytanie, jak powinien wyglądać kod, jeżeli BAZA DANYCH pobierająca dane z formularza, znajduje się w innym pliku?
Klasa.
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 ;)
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
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?
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
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
hej, okazuje się, że w tym kodzie z filmiku jest pewien błąd. Komenda "Exit Sub" nie przerywa wykonywania wszystkich procedur, a jedynie tej procedury, w której siedzi ta komenda. Potem procedura nadrzędna wykonuje pozostałe kroki, stąd masz 2 komunikaty i efekt dodania niepełnego rekordu do bazy pomimo niespełnionych warunków. Rozwiązaniem jest albo zrobienie procedury typu "spaghetti", czyli bez procedury wywoływanej, albo zrobić to inaczej, np. poprzez stworzenie 3 procedur (sprawdzenie, a potem call procedura "a" if sukces i call procedura "b" if porażka).
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ć.
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?
Bardzo przydatny materiał. Dobrzeby było przechodzić mięzy komurkami enterem. Czy jest taka opcja?
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.
DOBRE :)
A jak zrobić aby można było przeglądać tym formularzem dane zapisane w bazie danych oraz je modyfikować?
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
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ć.
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
Przydałaby się jeszcze edycja wprowadzonego już wpisu
PS. materiał super
Dziękuję za komentarz. Edycja wprowadzonych danych to fajny pomysł na kolejny film :) Pozdrawiam
Po przycisku dodaj, moje dane nie wpisują się pokolei od A2 a dopiero A400. Czy masz pomysł dlaczego tak się dzieje?
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
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?
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
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?
Możesz zastosować to rozwiązanie z filmu natomiast w pliku docelowym połączyć się z tabelą za pomocą tabeli przestawnej bądź power query
Bo jeżeli dobrze myślę to musiałbyś w kodzie dodać również część, która uruchamiałaby tamten plik i podać wtedy elementy do wklejania w pełnej ścieżce czyli plik, arkusz i komórki
Ś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.
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 )
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?
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
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?
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
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 ?
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.
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
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
@@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
@@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
Od 30:07 zaczęło szumić.
Chyba obserwujemy tego samego gościa. Bo zrobił wcześniej identyczny film co Ty.
th-cam.com/video/Kce7vhK7fG8/w-d-xo.htmlsi=yZSOGs0mKNj8VVxG
Super, wykonane. Jak zrobić przyciski poprzedni (formularz wyświetli już dodany wcześniej wpis) i przycisk możliwości wykasowania....
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
@@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 😁
dzięki
Arkusz4.Range("C3,C5,C7,C9,C11,C13,C15,G3,G5,G7,G9,G11").Value = Empty jest nieprawidłowy.