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

• #24490 m.zmrzlina senior tag tombar #24488

  Új Válasz 2014-12-05 06:07:38 #24490

  Ú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

  

  m.zmrzlina

  senior tag

  válasz tombar #24488 üzenetére

  Sub masol()
  Range("A1:G1").Copy
  elsoures = Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
  Worksheets("Munka2").Range("A" & elsoures).PasteSpecial Paste:=xlPasteAll
  End Sub

  Az első sor kijelöli a másolni kívánt tartományt (ez nyilván nálad teljesen más)
  A második megadja, hogy a Munka2 munkalap A oszlopának melyik az első üres cellája
  A harmadik odamásolja a kijelölt tartományt.

  Meg lehet csinálni egy utasításban is:

  Worksheets("Munka2").Range("A" & Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll

  Ugyanaz az eredmény csak az első valamennyivel átláthatóbb.

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