Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

VBA Excel - Wyszukiwanie wartości w arkuszu + kopiowanie do nowego arkusza

kwitu86 31 Dec 2013 22:16 3678 10
  • #1
    kwitu86
    Level 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 ?
  • #2
    JRV
    VBA, Excel specialist
    kwitu86 wrote:
    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ę?
  • #3
    kwitu86
    Level 10  
    zapomniałem dodać, że np od B5 - jedno pod drugim, zwykłe wklejenie danych.
  • #5
    kwitu86
    Level 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ć
  • #6
    adamas_nt
    Moderator of Programming
    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
    Code: vb
    Log in, to see the code
    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).
  • #7
    kwitu86
    Level 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ą.
  • #9
    kwitu86
    Level 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.
  • #10
    kwitu86
    Level 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

    Code: vb
    Log in, to see the code

    End Sub
    Code: vb
    Log in, to see the code


    czy jakoś ineczej ?
  • #11
    adamas_nt
    Moderator of Programming
    kwitu86 wrote:
    czy jakoś inaczej
    Code: vb
    Log in, to see the code
    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] ;)