Opslaan foutgevoelig

[Hunuloeloe]

Ik kan de vraag denk ik beter anders stellen,

Is het mogelijk om het bestand op te slaan waarbij de vba codes die gebruikt zijn gewist worden? dan geeft die ook niet die foutmelding lijkt me

Mocht dit niet lukken dan kan ik hem idd beter als xlsm in de code zetten.

 

[Cobbe]

.......".xlsm", fileformat:=52

 

[Hunuloeloe]

Cobbe,

Even voor me eigen kennisverrijking. waar staat de fileformat:=52 voor?

 

[Cobbe]

These are the main file formats in Windows Excel 2007-2016:

51 = xlOpenXMLWorkbook (without macro's in 2007-2016, xlsx)
52 = xlOpenXMLWorkbookMacroEnabled (with or without macro's in 2007-2016, xlsm)
50 = xlExcel12 (Excel Binary Workbook in 2007-2016 with or without macro's, xlsb)
56 = xlExcel8 (97-2003 format in Excel 2007-2016, xls)

 

[Hunuloeloe]

Desondanks,

Beide hartelijk dank het is opgelost :thumb:

 

[Haije]

Ik kan de vraag denk ik beter anders stellen,

Is het mogelijk om het bestand op te slaan waarbij de vba codes die gebruikt zijn gewist worden? dan geeft die ook niet die foutmelding lijkt me

Mocht dit niet lukken dan kan ik hem idd beter als xlsm in de code zetten.

Als je in je macro vlak vóór het opslaan toevoegt

Application.DisplayAlerts = false

en direct daarna

Application.DisplayAlerts = true

wordt de melding onderdrukt en kun je het bestand opslaan als xlsx, dus zonder macro-code

 

[Cobbe]

Dan is de code ook weg en niet meer beschikbaar voor de verdere planning.

 

[Hunuloeloe]

Haije wordt die dan zo?

Sub Kopie_Dagplanning_Expeditie()
[COLOR="#FF0000"]Application.DisplayAlerts = False[/COLOR]
c00 = "H:\Stage\Expeditie\Resource Planning\Macro bestand\Dagproductie test\"
    Sheets("Dagplanning Expeditie").Copy
    ActiveWorkbook.SaveAs c00 & "Dagplanning " & Format([b1], "yyyy-mm-dd") & ".xlsx", 51
    ActiveWindow.Close
    [COLOR="#FF0000"]Application.DisplayAlerts = True[/COLOR]
    Range("B1").ClearContents
End Sub

 

[Haije]

Zo zou het m.i.moeten werken...

 

[Hunuloeloe]

Idd het werkte, maar d8 vraag toch maar even of die zo goed staat

Hartelijk dank

 

[snb]

of

Sub Kopie_Dagplanning_Expeditie()
  Sheets("Dagplanning Expeditie").Copy
  with ActiveWorkbook
    .SaveAs "H:\Stage\Expeditie\Resource Planning\Macro_bestand\Dagproductie_test\Dagplanning " & Format(date, "yyyy-mm-dd") & ".xlsx", 51
    .Close 0
  end with
End Sub

Je hebt cel B1 helegaar niet nodig.
Vermijd spaties in namen van folders.
De variabele c00 lijkt ook 'over de top'.
Displayalerts=false is nu ook overbodig.
Maaak wat meer gebruik van With ... End With

 

[Hunuloeloe]

Ik krijg toch nog een foutcode helaas :s
De planner meldde het net dat die ineens de volgende foutcode kreeg: 424

in deze code

Private Sub Worksheet_Activate()
Dim D As String
D = Date
  If Range("B1").Value = D Then Exit Sub
    Range("B1,C8:L59").ClearContents
     [COLOR="#FF0000"]UserForm1.Show[/COLOR]
End Sub

Waarin userform1 de fout is.

Deze fout treedt op als ik op exporteer druk

Sub Kopie_Dagplanning_Expeditie()
Application.DisplayAlerts = False
c00 = "I:\expeditie Holland\Dagplanning\Personeelsplanning\Dagproductie\Expeditie\"
    Sheets("Dagplanning Expeditie").Copy
    ActiveWorkbook.SaveAs c00 & "Dagplanning " & Format([b1], "yyyy-mm-dd") & ".xlsm", FileFormat:=52
    ActiveWindow.Close
    Application.DisplayAlerts = True
Range("B1").ClearContents
End Sub

 

[ExcelAmateur]

Heb je de code van "snb" al getest?

 

[snb]

Al naar post #31 gekeken ?


Hoe bedenk je het ???

Private Sub Worksheet_Activate()
Dim D As String
D = Date
If Range("B1").Value = D Then Exit Sub
Range("B1,C8:L59").ClearContents
UserForm1.Show
End Sub

Private Sub Worksheet_Activate()
  If cells(1,2)<>date Then
     Userform1.show
     Range("B1,C8:L59").ClearContents
  end if
End Sub

 

[Hunuloeloe]

Hoi snb,

dank voor het meedenken maar cel b1 is wel nodig aangezien de planning van bijv. zaterdag ook wel eens op maandag wordt ingevuld. de code die jij schrijft bij #31 slaat hem op als datum vandaag als ik hem goed ontcijferd heb?


PS
Om verdere moeilijkheden te voorkomen zal ik hier het bestand even toevoegen
Bekijk bijlage Resource planning.xlsm

 

[Hunuloeloe]

hoe zou ik bovenstaand probleem moeten oplossen? :shocked:
Hoop dat ik de planning namelijk maandag weer in gebruik kan nemen

 

[Cobbe]

Kan het zo?

 

[Hunuloeloe]

Hoi cobbe,

Nee niet helemaal want als ik de userform in heb gevuld en vervolgens voor een aantal medewerkers de uren invul en ik sla het bestand op, ben ik de volgende keer dat ik het bestand open de gegevens kwijt.
Hij wordt gedurende de dag een aantal keer ingevuld en opgeslagen voordat die daadwerkelijk geëxporteerd wordt

Daarnaast zie ik dat cellen E62 t/m L62 de horiz zoeken functie niet meer naar behoren werkt. komt dat door de userform of?

 

[Cobbe]

Kijk een sof deze aanpassing beter werkt,
de invoer wordt pas gewist als je op de button Expediteren drukt.

Waarom die Hor. Zoekenformule niet meer werkt weet ik niet heeft niets met dit userform te maken.

PS: Wel geen beveiligde bestanden meer posten want daar kun je niet veel mee.

 

[Hunuloeloe]

Het opslaan probleem is hiermee opgelost maar als ik op exporteren klik krijg ik een foutcode

Private Sub Worksheet_Activate()
  Cells(1, 2) = ""
     [COLOR="#FF0000"]UserForm1.Show[/COLOR]
     
End Sub

Bij userofrm1.show