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

• #42095 Richard őstag

  Új Válasz 2019-11-03 10:04:30 #42095

  Ú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

  

  Richard

  őstag

  Sziasztok!

  Kezdő vagyok nagyon VBA-ban és elakadtam. Ebben kérnék segítséget, mert hiába túrom a netet egyszerűen nem áll össze amit szeretnék megvalósítani.

  A szituáció:

  Adott több táblázatként formázott tábla.
  A forrás táblákban rengeteg oszlop van (80)
  A cél táblában 8 oszlop van.
  Az összes forrás táblából adott 8 oszlopot (nem egymás mellett levőket) szeretnék a cél táblába másolni úgy, hogy a fejléc ne, de az összes érték átkerüljön.
  Az első táblánál még csak rendben is van, hogy egyenként bemásoltatom az oszlopokat, de a második táblánál meg kellene kerestetni a céltábla adott oszlopának utolsó adatot tartalmazó celláját, hogy az alá tegye a következő oszlopot.

  Eddig jutottam:

  Private Sub CommandButton6_Click()    

  Worksheets("Munka_forras").ListObjects("Tbl_forras_1").ListColumns("Név").DataBodyRange.Copy
Worksheets("Munka_cel").ListObjects("Tbl_cel").Range(2, 1).PasteSpecial xlPasteValues
Worksheets("Munka_forras").ListObjects("Tbl_forras_1").ListColumns("Cim").DataBodyRange.Copy
Worksheets("Munka_cel").ListObjects("Tbl_cel").Range(2, 2).PasteSpecial xlPasteValues

  End Sub

  Kérdés:

  Nem lehet valahogy össze vonni, hogy ezeket a másolásokat egyszerre végezze? Tehát kijelöli az összes oszlop adatát amit szeretnék és egyszerre bemásolja?!

  Hogy tudom megoldnai, hogy ne a Range(2,2) -vel monjam meg hova tegye, hanem mondjuk az oszlop nevét adjam meg ?!

  A második táblánál hogy fogom megmondani, hogy a már létező adatok alá másoljon?

  Ezt találtam:

  With ActiveSheet         LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row     End With

  Csak sehogy nem bírom beilleszteni.

  Valaki tudna ebben segíteni?

  Köszönöm

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