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

• #16615 Mutt senior tag GoZoL #16604

  Új Válasz 2013-02-06 20:14:45 #16615

  Ú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

  

  Mutt

  senior tag

  válasz GoZoL #16604 üzenetére

  Hali,

  Plusz tartományt kellene másolni (E9:E26) ami a 9-14 sorba illesztené be és utána jönne a fent látható tartomány de a 15. sortól illesztené be. Egy kijelöléssel és egy másolással nemigen lehetséges.

  Az E9:E26-os tartomány 17 soros, nem fog beleférni a 9-14 sorok közé!

  A kódod magját kell duplikálnod az új tartomány másolásához.

  For lap = 1 To Worksheets.Count
  'az újabb tartomány másolása
  Sheets(lap).Range("E9:E26").Copy
  ActiveWindow.ActivatePrevious
  Cells(9, oszlop_gy).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  ActiveWindow.ActivateNext
  
  'a régi tartomány másolása a 15. sorba
  Sheets(lap).Range("G5:G197").Copy
  ActiveWindow.ActivatePrevious
  Cells(15, oszlop_gy).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  ActiveWindow.ActivateNext
  
  oszlop_gy = oszlop_gy + 1
  Next

  üdv

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