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

• #36111 Fferi50 Topikgazda Nerich #36110

  Új Válasz 2017-09-13 16:27:15 #36111

  Ú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

  

  Fferi50

  Topikgazda

  válasz Nerich #36110 üzenetére

  Szia!

  Először is:

  "For Each akt_range In Selection.Areas
  akt_range.Formula = akt_range.Value
  Next"

  helyett:
  For Each akt_range In Selection.Areas
akt_range.Value = akt_range.Value
Next

  Másrészt viszont, ha a hibás részt nem szeretnéd megváltoztatni, akkor végig kell menni a cellákon egyenként (ugyanis ha egyszer már értékké alakítottad, nem lesz belőle képlet, hacsak újra be nem írod azt):
  Dim akt_range As Range, cl As Range
For Each akt_range In Selection.Areas
For Each cl In akt_range.Cells
If Not cl.Value = CVErr(xlErrRef) Then cl.Value = cl.Value
Next
Next

  Üdv.

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