macro formules naar vervangen door de waarden,

Status
Niet open voor verdere reacties.
N

nancy70

Gebruiker
Lid geworden
10 jan 2012
Berichten
45
Hi

Ik ben opzoek naar macro die ongeacht het aantal sheets, kolommen of records per sheet in excel alle formules/data omzet naar resultaat.
Nu moet ik per sheet gehele sheet selecteren, kopieeren en Paste special as value doen. Dat moet makkelijker kunnen.

Mvg,
Nancy
 
Bvb

Code: 
Sub jec()
 Dim sh
 For Each sh In ThisWorkbook.Sheets
   sh.UsedRange.Value = sh.UsedRange.Value
 Next
End Sub
 
Super, alleen worden nu alle uitkomsten "plots" naar numerieke waarden omgezet. Bijv voorloopnullen verdwijnen terwijl deze met Paste Special wel werden weergegeven. Dus resultaten moeten naar vaste waarde met format. Is daar nog iets aan te doen ?
 
Welk code maakt de macrorecorder met jouw methode ?
 
Hi
Als ik bijv in een kolom 012345 heb staan is het na runnen van de macro 12345

Gr,
Nancy
 
Zo dan?

Code: 
Sub jec()
 Dim sh
 For Each sh In ThisWorkbook.Sheets
   With sh.UsedRange
     .Copy
     .PasteSpecial xlPasteValues
   End With
 Next
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan