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

• Delila_1 veterán

  #9717

  #9705 Imu

  2011-03-20 15:08:33

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #9705 Imu

  Nagy baj, ha 1 gombnyomásra csinálja meg a két másolást? Ha nem, akkor az alábbi makró elintézi.

  Sub copyz()
  Sheets("Munka3").Select
  Range("A8:A73").EntireRow.Insert
  Sheets("Munka2").Range("A8:G38").Copy
  Range("A8").Select
  Selection.PasteSpecial Paste:=xlPasteValues
  Selection.PasteSpecial Paste:=xlPasteFormats
  Range("A8:G38").Copy Range("A43")
  Cells(1).Select
  End Sub

  VIGYÁZAT! Nem lehetnek összevont cellák a 2-es lap A8:G38 tartományában, mert az értékmásolás nem tekinti azonos méretűnek a másolt-, és a beillesztési területet. Meg lehet másképp is oldani. Pl. a 31-32 sor C:E összegeit tedd a 32. sorba. Nem annyira látványos, mint most, de legalább működik.
  A vízszintesen egyesített cellák helyett kiválóan lehet alkalmazni a következő formátumot: kijelölöd az A28:B28 cellákat, Cellaformázás, Igazítás fül, a Vízszintesen listából "A kijelölés közepére".

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