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
  • #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: 3 years, 6 months telt el-mendre.
      • A témakör módosításra került: 3 years, 6 months 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.