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

• #40461 Pakliman tag tgumis #40459

  Új Válasz 2019-03-20 08:04:06 #40461

  Ú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

  

  Pakliman

  tag

  válasz tgumis #40459 üzenetére

  Szia!

  Még egyszerűbben, villogtatás nélkül:

  Sub keplet_helyett_ertek()
Dim ws As Worksheet

On Error Resume Next
For Each ws In Worksheets
ws.Cells.SpecialCells(xlCellTypeFormulas, 23).Formula = ws.Cells.SpecialCells(xlCellTypeFormulas, 23).Value
Next ws
On Error GoTo 0
End Sub

  

• #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

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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