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

• #40459 tgumis tag

  Új Válasz 2019-03-19 20:05:09 #40459

  Ú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

  

  tgumis

  tag

  Sziasztok!

  Adott egy makró:
  Sub keplet_helyett_ertek()

Range("a1").Select
'Képleteket tartalmazó tartományok kijelölése
Selection.SpecialCells(xlCellTypeFormulas, 23).Select

'A keletkezett területek bejárása és képlet-érték csere
For Each akt_range In Selection.Areas
akt_range.Formula = akt_range.Value
Next

End Sub

  Hogyan tudom átírni, hogy futtatáskor a munkafüzet összes lapján hajtsa végre ne csak azon amelyiken állok?

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