codes lopen vast als hij moet opslaan met gegevens uit een cel

[davylenders123]

Ginger

Ik kan het bestand nog gewoon handmatig opslaan.

En de G schijf is een netwerkschijf

 

[Ginger]

Neem de SaveAs actie 'ns op met de macro recorder en kijk wat er dan staat?

 

[davylenders123]

Krijg ik het onderstaande.

Sub Macro3()
'
' Macro3 Macro
'

'
    ChDir "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte"
    ActiveWorkbook.SaveAs Filename:= _
        "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\1 Dagrapport PC Sortering.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Als ik deze macro dan laat draaien dan slaat hij ook netjes het bestand op.

Het probleem is er vanaf je opneemt dat hij gegevens moet ophalen uit een cel dan werkt het niet.

 

[Ginger]

Is je sheet wellicht beveiligd met een password?

 

[HSV]

Anders nog een ander optie.

[COLOR=#ff0000]with Sheets("Data Aanmaak")[/COLOR]
pad = "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\" [COLOR=#ff0000]& year(.[a10]) & " " & format(month(.[a10]),"00") [/COLOR] & "\"
naam = "Dagrapport PC Sortering " & [COLOR="#FF0000"].[a10] [/COLOR]& ".xlsm"
msgbox pad & naam
[COLOR=#ff0000]end with[/COLOR]
ActiveWorkbook.SaveAs pad & naam , 52

 

[davylenders123]

Ginger

De sheets zijn niet beveiligd met een paswoord.

 

[davylenders123]

HSV

Laatste optie geeft hetzelfde probleem

 

[Ginger]

De sheets zijn niet beveiligd met een paswoord.

Hmmm.... fout door mij geformuleerd... Ik had moeten vragen "is die sheet beveiligd"... (want dat kan natuurlijk ook zónder password, maar is dan voor VBA nog net zo niet toegankelijk).

 

[HSV]

Ik had het net aangepast om 23:05 uur.
Probeer het nog eens.

 

[davylenders123]

HSV

Die van 23:05 doet het ook niet loopt op hetzelfde vast.

Ginger

Kan aan mij liggen maar ben niet meer mee , je vraag in #24 en #28 komen toch op het zelfde neer volgens mij.
Zowel op de tabbladen als in de vba staat geen wachtwoord ingesteld.
Heb nergens in dit bestand een wachtwoord ingesteld.

 

[HSV]

En met vaste waarden?

pad = "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\2016 03\"
naam = "Dagrapport PC Sortering 2016 03.xlsm"


ActiveWorkbook.SaveAs pad & naam , 52

 

[Ginger]

Kan aan mij liggen maar ben niet meer mee , je vraag in #24 en #28 komen toch op het zelfde neer volgens mij

Nee, is niet hetzelfde. Je kan je sheet óók beveiligen ZONDER password. Maar goed, als je dus totaal géén beveiliging op die sheet hebt staan (IS dat dus zo???), is dat helaas ook niet de goede weg.

 

[HSV]

Naar aanleiding van je vorige vraag.
Misschien?

with Sheets("Data Aanmaak")
  pad = "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\" & format(cdate(.[a10]),"yyyy mm") & "\"
  naam = "Dagrapport PC Sortering " & format(cdate(.[a10]),"dd-mm-yyyy") & ".xlsm"
end with
ActiveWorkbook.SaveAs pad & naam , 52

 

[davylenders123]

HSV

De laatste werkt wel .
Maar hier moet hij niets uit een bepaald cel halen .

 

[davylenders123]

Mijn #34 was bedoeld op #31.
# 33 is gepost als ik #34 aan het schrijven was.

# 33 is hem helemaal , deze doet terug wat hij moet doen.:thumb:

B E D A N K T voor jullie hulp nog maar eens :thumb: super !!!!

 

[Cobbe]

Zet eens een unprotect in de code van Harry (alleen al om een beveilgd blad uit te sluiten)

with Sheets("Data Aanmaak")
[COLOR="#FF0000"][B] .Unprotect[/B][/COLOR]
  pad = "G:\Pakketten\Mag-Data\Aanmaak blad ops\aangemaakte\" & year(.[a10]) & " " & format(month(.[a10]),"00")  & "\"
  naam = "Dagrapport PC Sortering " & .[a10] & ".xlsm"
  msgbox pad & naam
end with
ActiveWorkbook.SaveAs pad & naam , 52

 

[HSV]

# 33 is hem helemaal , deze doet terug wat hij moet doen.:thumb:

B E D A N K T voor jullie hulp nog maar eens :thumb: super !!!!

Nou dat werd ook tijd. :d

Graag gedaan hoor.