Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub FormulesNaarWaarden()
For Each sh In ThisWorkbook.Sheets
For Each cl In sh.UsedRange
cl.Value = cl.Value
Next cl
Next sh
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'code Ed
Application.EnableEvents = False
For Each Sh In ThisWorkbook.Sheets
For Each cl In Sh.UsedRange
cl.Value = cl.Value
Next cl
Next Sh
Application.EnableEvents = True
'toegevoegd door mezelf
ActiveWorkbook.SaveAs "c:\data\beurs\beurs2.xlsx", FileFormat:=xlWorkbookNormal
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'code Ed
Application.EnableEvents = False
For Each Sh In ThisWorkbook.Sheets
For Each cl In Sh.UsedRange
cl.Value = cl.Value
Next cl
Next Sh
Application.EnableEvents = True
'toegevoegd door mezelf
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "c:\data\beurs\beurs2.xlsx", FileFormat:=xlWorkbookNormal
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'code om formules om te zetten in waarden
Application.EnableEvents = False
For Each Sh In ThisWorkbook.Sheets
For Each cl In Sh.UsedRange
cl.Value = cl.Value
Next cl
Next Sh
'code om bestand met waarden weg te schrijven als nieuw bestand op server
Application.EnableEvents = True
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs "\\SVRMID001\DATA\INFRONT2SAP\beurs.xlsx", FileFormat:=51
' ActiveWorkbook.SaveAs "\\SVRMID001\DATA\INFRONT2SAP\beurs.xlsx", FileFormat:=51
Application.DisplayAlerts = True
Workbook.Close "\\SVRMID001\DATA\INFRONT2SAP\beurs.xlsx"
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Beurs As Workbook
Dim SavePath As String
'code om formules om te zetten in waarden
Application.EnableEvents = False
For Each Sh In ThisWorkbook.Sheets
For Each cl In Sh.UsedRange
cl.Value = cl.Value
Next cl
Next Sh
Application.EnableEvents = True
'code om bestand met waarden weg te schrijven als nieuw bestand op server
SavePath = "\\SVRMID001\DATA\INFRONT2SAP"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveWorkbook.SaveCopyAs SavePath & "\beurs.xlsm"
Set Beurs = Workbooks.Open(SavePath & "\beurs.xlsm")
Beurs.SaveAs SavePath & "\beurs.xlsx", 51
Beurs.Close False
Kill SavePath & "\beurs.xlsm"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Beurs As Workbook
Dim SavePath As String
'code om formules om te zetten in waarden
Application.EnableEvents = False
For Each Sh In ThisWorkbook.Sheets
For Each cl In Sh.UsedRange
cl.Value = cl.Value
Next cl
Next Sh
Application.EnableEvents = True
'code om bestand met waarden weg te schrijven als nieuw bestand op server
SavePath = "\\SVRMID001\DATA\INFRONT2SAP"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
==> ActiveWorkbook.SaveCopyAs SavePath & "\beurs.xlsm"
Set Beurs = Workbooks.Open(SavePath & "\beurs.xlsm")
Beurs.SaveAs SavePath & "\beurs.xlsx", 51
Beurs.Close False
Kill SavePath & "\beurs.xlsm"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.