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 Excel - Wyszukiwanie wartości w arkuszu + kopiowanie do nowego arkusza

kwitu86 31 Gru 2013 22:16 3186 10
  • #1 31 Gru 2013 22:16
    kwitu86
    Poziom 10  

    cześć,

    może sprawa dla wielu jest łatwa ale dla początkującego nie.

    Mam następującą sytuację w Arkusz1 w komórce A3 mam listę rozwijaną wybieram dane miasto i wciskam przycisk, który ma za zadanie odnaleźć w Arkusz2 dane miasto w wiersz1 i skopiować wszystkie dane poniżej nazwy miasta i wkleić je do arkusza3 w komóce np B5. Przykładowy plik w załaczniku.
    Pomożecie ?

    0 10
  • #2 01 Sty 2014 00:42
    JRV
    Specjalista - VBA, Excel

    kwitu86 napisał:
    wszystkie dane poniżej nazwy miasta i wkleić je do arkusza3 w komóce np B5

    wszystkie dane muszą być w B5? Co oddziela? szpacia lub nowy linię?

    0
  • #3 01 Sty 2014 08:24
    kwitu86
    Poziom 10  

    zapomniałem dodać, że np od B5 - jedno pod drugim, zwykłe wklejenie danych.

    0
  • #5 01 Sty 2014 10:44
    kwitu86
    Poziom 10  

    ok fajnie bardzo fajny pomysł - dziękuję za to.


    Jednak nie ukrywam, będe potrzebował to mieć jeszcze pokazana za pomocą makra. Czy byłbyś mi w stanie takie coś pokazać ? bo jednak chciałbym coś się z pisania makr dowiedzieć i podszkolić

    0
  • #6 01 Sty 2014 11:02
    adamas_nt
    Moderator Programowanie

    Nie powinno sprawić Ci problemu.
    Po pierwsze: trzeba znaleźć Nr kolumny. Najprościej przy pomocy metody 'Find'. Opis w helpie pod hasłem "Range.Find". Potrzebna jest wartość liczbowa, więc będzie to mniej więcej

    Kod: vb
    Zaloguj się, aby zobaczyć kod
    I następnie przepisanie w pętli, Np 'Do While' gdzie warunkiem będzie sheets("Arkusz2").cells(wrs, nrKol)<>""

    P.S. Przyjrzyj się (w moim przykładzie) definiowaniu dynamicznej listy przez nazwę. Przyda się, ponieważ zawsze znajdziemy Nr kolumny (Find nie zakończy się błędem).

    0
  • #7 01 Sty 2014 11:40
    kwitu86
    Poziom 10  

    Czy mógłbyś mi pokazać ten kod w całości w pliku excel ?

    Nie ukrywam, że to jeszcze dla mnie magia z pętlą.

    0
  • #9 01 Sty 2014 22:58
    kwitu86
    Poziom 10  

    Na początku jednak dla mnie to i tak magia.

    Dziękuję za pomoc - przydatna lekcja do powiększania zasobów obsługi VBA.

    0
  • #10 02 Sty 2014 23:23
    kwitu86
    Poziom 10  

    mam jeszcze jedno pytanie odnośnie tego kodu.
    gdybym chciał ograniczyć obszar poszukiwania tylko do kilku komórek to kod powinien być taki jak poniżej

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    End Sub
    Kod: vb
    Zaloguj się, aby zobaczyć kod


    czy jakoś ineczej ?

    0
  • #11 02 Sty 2014 23:36
    adamas_nt
    Moderator Programowanie

    kwitu86 napisał:
    czy jakoś inaczej
    Kod: vb
    Zaloguj się, aby zobaczyć kod
    Bo Ci się odwołania w bloku 'With' rozjadą...

    P.S. Od moda:
    1. Zdanie w j.polskim rozpoczynamy z wielkiej litery.
    2. Zaprzyjaźnij się z przyciskiem [pisownia] ;)

    0