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

• #42096 Fferi50 Topikgazda Richard #42095

  Új Válasz 2019-11-03 11:35:00 #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

  Topikgazda

  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.

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