Telefonszámunk: 1-472-0679

[Resolved] Egy változó lekérdezés tartalmának másolása

Kezdőlap Fórumok Excel témák [Resolved] Egy változó lekérdezés tartalmának másolása

Topic Resolution: Resolved

Ennek a témakörnek tartalma 5 hozzászólás, 3 résztvevő. Utolsó frissítés:  delila 1 hét, 3 napja telt el.

6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • #7602

    mendre
    Felhasználó

    Sziasztok!

    Az alábbi feladatmegoldásban szeretném a segítségeteket kérni.
    Egy lekérdezéssel létrehozott adathalmazt szeretnék, lehetőleg egy kattintással átmásolni egy másik munkalapra, mindig a legelső üres sorba téve az adatokat. Gyakorlatilag egy össesítést szeretnék készíteni a lekérdezésekből. Aki egyszer lekérdezésre került, az kerüljön másolásra egy listába.
    Köszi a segítséget
    Endre

    • A témakör módosításra került: 2 hete, 1 nap telt el- mendre.
    • A témakör módosításra került: 1 hét, 3 napja telt el- horvimi.
    #7606

    horvimi
    Adminisztrátor

    Szia!

    Mivel készül a lekérdezés?
    van fejléce?

    Amit szeretnél, az makróval oldható meg.
    A lekérdezés eredményének aktuális adatait kijelöli fejléc nélkül, Copy, majd átvált az eredmény munkalapra, ahová hozzá szeretnéd fűzni. megkeresi a végét, és az alá beilleszti.

    Ha ezt a műveletsort felveszed makrórögzítővel, akkor “csak” módosítani kell a felvett VBA kódot, hogy jó legyen.
    A módosításban szívesen segítek, ha töltesz fel majd minta munkafüzetet, amiben benne van a rögzített makró is.
    Makrós fájlt csak ZIP-elve lehet feltölteni.

    Imre

    #7627

    mendre
    Felhasználó

    Kedves Imre!
    Bocs a kései reakcióért!
    Szóval. Megcsináltam amit leírtál, és működik is. Ami nem megy, az eredmény munkalap utolsó üres sorának a megkeresése. Az lenne a cél, hogy az első üres sorba másolja át. Illetve amit még nem tettem be, hogy a másolás után az ismétlődéséeket távolítsa el.
    Mellékelve egy mintafájl. Ez egy egyszerűsített munkafüzet, nincsenek benne a korábban jelzett lekérdezések.
    Köszönöm
    Endre

    Attachments:
    You must be logged in to view attached files.
    #7629

    delila
    Felhasználó

    Szia Endre!

    Az utolsó sort a Range(“A” & Rows.Count).End(xlUp).Row adja meg. Ez annak a műveletnek a megfelelője, mikor az A oszlop legalsó során állsz, majd Ctrl+fel nyilat nyomsz. Az első üres sor meghatározásához az előbbi értéket növelned kell 1-gyel.
    A másolás ennek a felhasználásával

    Sheets("user").Range("Táblázat1").Copy
    Sheets("user_copy").Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues
    Application.CutCopyMode = False

    Kati

    #7630

    mendre
    Felhasználó

    Kedves Kati!

    Köszönöm! Működik!!!

    üdv

    Endre

    #7631

    delila
    Felhasználó

    Örülök neki, szívesen.

6 bejegyzés megtekintése - 1-6 / 6

Be kell jelentkezni a hozzászóláshoz.