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
6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • 2020-09-03-15:46 #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: 4 years, 3 months telt el-mendre.
      • A témakör módosításra került: 4 years, 3 months telt el-horvimi.
      2020-09-03-17:11 #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

        2020-09-08-10:23 #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.
          2020-09-08-11:38 #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

            2020-09-08-15:58 #7630
            mendre
            Felhasználó

              Kedves Kati!

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

              üdv

              Endre

              2020-09-08-18:50 #7631
              delila
              Felhasználó

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

              • Szerző
                Bejegyzés
              6 bejegyzés megtekintése - 1-6 / 6
              • Be kell jelentkezni a hozzászóláshoz.