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 Opslaan_copy()
If Not ThisWorkbook.ReadOnly Then
Select Case MsgBox("Bestand opslaan?", vbYesNo, "Vraagske") '2 keuze box openen, "Ja/Nee "
Case Is = vbYes 'Wanneer "Ja", opslaan op de locatie hieronder
Dim Origname As String
Application.DisplayAlerts = False
With Sheets("Blad2")
.Range("A1").Value = .Range("A1").Value + 1
If .Range("A1").Value >= 500 Then
.Range("A1").Value = 1
End If
ActiveWorkbook.Save
End With
ActiveWorkbook.SaveAs "W:\AS_ONDH\9. Mappen van WVB-IBT-WM\Ron\Up2DateCopyPoPlanfile\" & Sheets("Blad2").Range("A1") & " " & Replace(Environ("username"), ".", " ")
Application.DisplayAlerts = True
Exit Sub 'Afsluiten bestand na het opslaan
'Case Is = vbCancel 'Wanneer "Annuleren", terug naar bestand
'Cancel = True
Case Is = vbNo 'Wanneer "Nee", afsluiten zonder opslaan
ThisWorkbook.Saved = True
Exit Sub 'Afsluiten
End Select
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.