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

• #40460 Delila_1 veterán tgumis #40459

  Új Válasz 2019-03-20 06:53:58 #40460

  Ú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 tgumis #40459 üzenetére

  Sub keplet_helyett_ertek()
Dim lap As Integer, akt_range As Range

For lap = 1 To Sheets.Count
Sheets(lap).Activate 'Lap aktívvá tétele

'Képleteket tartalmazó tartományok kijelölése
On Error Resume Next 'Hibakezelés, ha nincs képlet
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
On Error GoTo 0
Next
End Sub

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