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.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet, c00 As String
For Each Sh In Sheets
If Len(Sh.Name) = 10 Then
c00 = "C:\Users\tombe_000\Dropbox\EsFashionCloset\FacturenHomePartys\EH " & Format(Date, "dd-mm-yyyy") & " " & Sh.Range("F6") & " " & Sh.Range("D5") & ".pdf"
If InStr(Dir(c00, 16), Sh.Range("F6").Value) = 0 Then Sh.ExportAsFixedFormat 0, c00
End If
Next Sh
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet, c00 As String
For Each Sh In Sheets
If Len(Sh.Name) = 10 Then
msgbox sh.name
c00 = "C:\Users\tombe_000\Dropbox\EsFashionCloset\FacturenHomePartys\EH " & Format(Date, "dd-mm-yyyy") & " " & Sh.Range("F6") & " " & Sh.Range("D5") & ".pdf"
msgbox c00
msgbox Sh.Range("F6").Value
msgbox dir(c00,16)
If InStr(Dir(c00, 16), Sh.Range("F6").Value) = 0 Then Sh.ExportAsFixedFormat 0, c00
End If
Next Sh
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.