• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Probleempje met macro

Status
Niet open voor verdere reacties.
peter59

peter59

Terugkerende gebruiker
Lid geworden
21 mei 2007
Berichten
1.711
Besturingssysteem
Windows 11
Office versie
Office versie 365
Hallo,

Ik heb een probleempje met een macro.
Op de "huis" computer werkt deze als een tierelier maar op de laptop van het werk loopt deze vast.
Zie onderstaand, de rode tekst.
Wat kan hier de reden van zijn?

Dank alvast voor jullie hulp.

Code: 
Sub save_file()

Application.ScreenUpdating = False

    Dim path As String
    Dim filename1 As String
    Dim s As Shape, rng As Range
    Set rng = Range("Q1")

    path = ThisWorkbook.path & "\"
    filename1 = Format(Now(), "yyyymm") & " " & Range("B3")
    
    For Each s In ActiveSheet.Shapes
        If Intersect(rng, s.TopLeftCell) Is Nothing Then
        Else
            s.Delete
        End If
    Next s

    Application.DisplayAlerts = False
    
[COLOR="#008000"]'Sub bladenverbergen[/COLOR]
    Worksheets("Dtb").Visible = xlSheetVeryHidden
    Worksheets("Invulsheet").Visible = xlSheetVeryHidden
    Worksheets("17").Visible = xlSheetVeryHidden
    Worksheets("10a").Visible = xlSheetVeryHidden
    Worksheets("08a").Visible = xlSheetVeryHidden
    Worksheets("Tbl tbv Listbox").Visible = xlSheetVeryHidden
    Worksheets("Tekst Email").Visible = xlSheetVeryHidden
    Worksheets("Mailadressen").Visible = xlSheetVeryHidden

 [COLOR="#FF0000"]ActiveWorkbook.SaveCopyAs Filename:=path & filename1 & ".xlsb"[/COLOR]
    
    Password = "xyz"
    ActiveSheet.Unprotect Password:=Password
    Range("A:B,E:E,G:G,I:I,L:M,R:AA").EntireColumn.Hidden = False
    
[COLOR="#008000"]'Sub bladenzichtbaar[/COLOR]
    Worksheets("Dtb").Visible = True
        ActiveSheet.Delete
    Worksheets("Invulsheet").Visible = True
    Worksheets("17").Visible = True
    Worksheets("10a").Visible = True
    Worksheets("08a").Visible = True
    Worksheets("Tbl tbv Listbox").Visible = True
    Worksheets("Tekst Email").Visible = True
    Worksheets("Mailadressen").Visible = True

    Application.DisplayAlerts = True
        Sheets("Dtb").Activate
Application.ScreenUpdating = True
        
    
End Sub
 
Misschien handig om ook even de foutmelding er bij te vertellen.
 
Hallo Edmoor

Zie onderstaande afbeeldingen.
Afbeelding1.jpg

Afbeelding2.jpg
 
Aan die foutmelding (1) kan je al zien dat het pad helemaal fout is, die staat er 2x vermeld.
Kijk dus eens in het Direct venster naar:
Code: 
?path
 
Laatst bewerkt:
Edmoor,

Ja, klopt. Deze aangepast op de laptop van het werk.
Maar helaas.
Ik vind het maar vreemd dat de code wel werkt op mijn computer en niet op die van het werk.
Ik werk met office 365 terwijl wij op het werk dit ook gebruiken.

Nu krijg ik onderstaand.

Afbeelding3.jpg

Afbeelding4.jpg
 
Dat pad is een web adres, dat zal niet gaan.
Op je thuis computer zal dat anders zijn.
 
Ah, oké Edmoor. Duidelijk.

Dan zal ik een andere code (voor de werklaptop) moeten verzinnen om het actieve blad rechtstreeks in de desbetreffende werkmap te kunnen opslaan.
 
Kijk of er een pad voor die sharepoint locatie is die je met de Verkenner kan bereiken.
Dat pad kan je dan gebruiken.
 
Een combinatie van "/" en "" in een pad lijkt me dodelijk.

Je kunt eenvoudig testen of een lokaal pad ( met "" separatoren) bestaat met de instruktie 'Dir'
Als die niet bestaat moet je het alternatieve web pad ( met "/" separatoren) gebruiken.

Terzijde: waarom zou je afbeeldingen verwijderen ?
En waarom dan niet zo ? : vermijd overbodige (objekt)-variabelen

Code: 
For Each it In Sheet1.Shapes
  if it.TopLeftCell = sheet1.range("Q1") Then it.delete
Next
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan