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.

[VBA EXEL] - Wyszukiwanie danych w arkuszu

jezy 20 Mar 2014 16:38 1620 4
  • #1 20 Mar 2014 16:38
    jezy
    Poziom 9  

    Witam

    Poszukuje wsparcia w utworzeniu odpowiedniego makra.

    Chciał bym stworzyć makro które ułatwiło by mi wyszukiwanie danych np.: „odbiorcy” w arkuszu exel.


    Na bazie znalezionego arkusza na forum chciałem dostosować makro do własnych potrzeb, ale nie do końca mi się to udało.

    Układ miał działać w sposób następujący:
    1. Po wciśnięciu przycisku uruchamia się okno z userfrom
    2. W oknie mamy możliwość wyszukania danych po „ szukaj” lub od razu z listy poniżej
    3. Dane pobierane miały być np.: z zakresu danych w kolumnie A z arkuszu kartoteka
    4. Po wybrania danego „ odbiorcy” z listy oraz zatwierdzeniu OK. miał by skopiować jego dane do wiersza H8 i zamknąć okno
    5. Po wyborze przycisku zamknij miało by zamknąć okno

    Na chwilę obecną zamiast wybierać dane z kolumny A bierze je z kolumny B
    Nie wiem jak stworzyć przycisk do wykonania makra, zwykłego przycisku nie da się przypisać

    Opcjonalnie można by było mieć możliwość dodania nowego odbiorcy przez przycisk dodaj i wpisania go do listy i przesortowania wg a-z

    0 4
  • #2 20 Mar 2014 18:20
    adamas_nt
    Moderator Programowanie

    1. Wstaw przycisk, najlepiej ActiveX, Menu>Wyświetl kod i wklej: Magazyn.Show
    2. No, mamy.
    3. Zmień w Initialize formularza: indeksy = .Range("A2:K" & OstW).Value na B
    4 i 5 Działa przecież...

    A! sorry. Ma zwracać z kol.A, wyświetlać kol.B. Pkt.3 - zapomnij.
    Trzeba pozmieniać we właściwościach ListBox formularza.

    0
  • Pomocny post
    #3 20 Mar 2014 18:24
    JRV
    Specjalista - VBA, Excel

    Witaj
    Zmienic: tekst = tekst & ListBox1.list(w, 1) na tekst = tekst & ListBox1.list(w, 0)
    nazwa = ListBox1.list(w, 1) na nazwa = ListBox1.list(w, 0)

    Dla przycisku - nowe makro w Modulu da się przypisać

    Sub pokaz()
    Magazyn.Show
    End Sub

    0
  • Pomocny post
    #4 20 Mar 2014 18:36
    adamas_nt
    Moderator Programowanie

    O! Ktoś mnie wyprzedził :)

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    [VBA EXEL] - Wyszukiwanie danych w arkuszu

    0
  • #5 20 Mar 2014 22:39
    jezy
    Poziom 9  

    Dziękuje Panowie za pomoc o to chodziło.

    Wszystko działa tak jak powinno.

    0