Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Rozwiązano] Exel (makro) lista rozwijana z danymi z innego pliku

IzabelaObieglo 21 Lut 2018 10:57 525 8
  • #1 21 Lut 2018 10:57
    IzabelaObieglo
    Poziom 3  

    Witam,
    proszę o pomoc w utworzeniu listy rozwijanej w pliku (Protokół), której dane są w innym pliku (Baza Kliientów), a jeśli tego Klienta nie ma, to żeby go tam dopisał.

    0 8
  • Pomocny post
    #2 22 Lut 2018 22:18
    adamas_nt
    Moderator Programowanie

    Zbyt dużo niewiadomych. Np "żeby go tam dopisał". Jeśli nie mam Twoich danych w mojej Bazie Klientów, to skąd biedny Excel ma je wziąć? No tak to zrozumiałem :)

    Przydałyby się oba przykładowe pliki w załączeniu + dokładniejsze wskazówki...

    0
  • #3 02 Mar 2018 08:14
    IzabelaObieglo
    Poziom 3  

    Witam, mam dwa pliki, jeden to baza klientów, drugi to protokół, w którym muszę wpisywać dane klienta, za każdym razem innego (nazwa, adres itp. w oddzielnych kolumnach- nazwa, ulica, kod), w protokole chcę mieć listę rozwijaną z klientami (nazwa, adres), ale, jeżeli danego klienta nie ma w mojej bazie, to po wpisaniu go w protokole, żeby był przycisk "dopisz do bazy", i żeby go tam dopisał.
    Mam różnych protokołów kilkanaście, dlatego nie chcę robić bazy w kolejnym arkuszu protokołu, bo musiałabym kilkanaście razy wpisywać nowe dane klienta, do każdego protokołu oddzielnie.
    Łatwiej dopasować makro do tych kilkunastu protokołów. Przynajmniej tak mi się wydaje.

    Przepraszam, że po tak długim czasie, ale choroba dziecka, nie pozwoliła mi na żadną aktywność.

    0
  • Pomocny post
    #4 02 Mar 2018 09:33
    adamas_nt
    Moderator Programowanie

    Tak w wielkim skrócie, widziałbym to mniej więcej tak (załącznik).
    Czy arkusz "Baza" jest w tym, czy innym pliku - nie ma w tej chwili znaczenia.

    0
  • #5 02 Mar 2018 10:15
    IzabelaObieglo
    Poziom 3  

    Właśnie o to, mi chodziło. Baaardzo dziękuję.

    Dodano po 9 [minuty]:

    Nie mogę otworzyć makra, żebym mogła teraz to dopasować do swojego dokumentu.

    Dodano po 2 [minuty]:

    Mam już. Uff.

    0
  • Pomocny post
    #6 02 Mar 2018 10:18
    adamas_nt
    Moderator Programowanie

    Krótko przed 10:00 podmieniłem załącznik (wyłączenie zdarzeń przy odświeżaniu list). Zerknij, czy masz aktualną wersję...

    Trzeba tam jeszcze to i owo dołożyć. Np sprawdzenie, czy nie dublujesz klienta przy [Dodaj], etc.

    0
  • #7 02 Mar 2018 13:32
    IzabelaObieglo
    Poziom 3  

    Ok. Dzięki.

    Dodano po 2 [godziny] 45 [minuty]:

    Jednak, nie umiem tego dopasować. Możesz zobaczyć mój załącznik, co tak po...., poplątałam? Proszę.

    W protokole (E27-nazwa; E28-ulica; E29 kod) i to żeby się dopisywało do bazy.
    Takich protokołów na różne przyrządy mam wiele, dlatego chciałam w oddzielnym pliku jedną bazę, a nie tyle baz ile protokołów, ale takie rozwiązanie chyba wystarczy.

    Załącznik usunąłem (dane osobowe) - adamas_nt
    Jest w następnym poście - uzupełniony w poprawione makra

    0
  • #8 03 Mar 2018 09:54
    adamas_nt
    Moderator Programowanie

    Uwzględniłem chyba wszystko. Dołożyłem:
    -zabezpieczenie przed wpisaniem pustego rekordu
    -przed zdublowaniem

    Miałaś prawie gotowe. Należało tylko zmienić nazwy Combo oraz Command ;)

    Dołożyłem arkusz "Przykład", żeby przedstawić działanie z wartościami opcjonalnymi (tel, osoba, e-mail). Reszta w komentarzach.

    Edit: 16:34
    Och, zapomniałem o danych opcjonalnych w 'zapisz' ;)
    załącznik podmieniłem...

    0
  • #9 05 Mar 2018 09:12
    IzabelaObieglo
    Poziom 3  

    Exel (makro) lista rozwijana z danymi z innego pliku
    'sprawdzimy, czy istnieje
    If WorksheetFunction.CountIf(.Columns(1), Range(ar(0))) > 0 Then
    MsgBox Range(ar(0)) & " jest już w bazie...", vbInformation, ""
    Exit Sub
    End If

    Tutaj wyskakuje błąd, nie wiem czemu?

    Dodano po 20 [minuty]:

    Exel (makro) lista rozwijana z danymi z innego pliku
    a to na dzień dobry wyskakuje.

    Dodano po 8 [minuty]:

    Już wiem. Działa.
    Chyba coś zaczynam rozumieć.
    Baaaaardzo dziękuję za pomoc.

    Dodano po 10 [minuty]:

    Wasza pomoc okazała się nieoceniona, ponieważ jestem laikiem w VBA.

    0