-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
őstag
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
NextMá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.
[ Szerkesztve ]
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen