Ú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

  

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