2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    IT café

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #42096 Fferi50 őstag Richard #42095
    Új Válasz #42096
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fferi50

    őstag

    válasz Richard #42095 üzenetére

    Szia!

    1. Amennyiben a cél táblába egymás mellé kerülnek az oszlopok, akkor az Union függvény használatával egyben átmásolható a kívánt oszlopszám:
    Az értékek átmásolásához célszerű a céltáblát változóba tenni:
    Dim celtabla As Listobject, usor As Long
    Set celtabla =Worksheets("Munka_cel").Listobjects("Tbl_cel")
    With Worksheets("Munka_forras").Listobjects("Tbl_forras_1").
    Union(.Listcolumns("Név").Databodyrange,.Listcolumns("Cím").Databodyrange…..).Copy
    End With
    2. A céltábla utolsó sor után a bemásolás:
    celtabla.Databodyrange.Listcolumns(1).Cells(1).End(xlDown).Offset(1,0).Paste Paste:=xlPasteValues

    Az első másolásnál még maradhat a Range(2,1), de ne feledd ekkor egyben jön a 8 oszlop adata már.
    Természetesen a sok tábla másolását csinálhatod ciklussal és akkor a forrás tábla neve helyett az indexét használhatod.
    Ha kérdésed lenne, csak írj.

    Üdv.

    [ Szerkesztve ]

Új hozzászólás Aktív témák