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

• #17615 Delila_1 veterán alfa20 #17611

  Új Válasz 2013-04-05 12:41:31 #17615

  Ú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

  

  Delila_1

  veterán

  válasz alfa20 #17611 üzenetére

  2. kérdés

  Sub Keplet()
  Dim usor%
  usor% = Range("F2").End(xlDown).Row
  Range("G2:G" & usor%).FormulaR1C1 = "=RC[1]/RC[-1]"
  Range("G:G").Select: Selection.Copy
  Selection.PasteSpecial Paste:=xlValues
  
  Range("H2:H" & usor%).FormulaR1C1 = "=RC[-2]*RC[-1]"
  '********************************************
  Range("H:H").Select: Selection.Copy
  Selection.PasteSpecial Paste:=xlValues
  '********************************************
  
  Application.CutCopyMode = False
  End Sub

  A csillagos sorok közötti rész nem kell, ha a H oszlop képleteit nem kell felülírni az értékeivel.

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