Werkbladen kopiëren naar andere werkmap lukt maar gedeeltelijk

[samabert]

Hallo,

Bij het sluiten van werkmap FD moeten de werkbladen, JAN, FEB, MRT, tot en met DEC, gekopieerd worden naar werkmap Backup3. Dit zijn de zichtbare werkbladen in de werkmap FD
Dit gebeurt met volgende code:

Option Explicit

Sub Kopie()
    Dim wbDst As Workbook
    Dim Br
    On Error Resume Next
    Application.ScreenUpdating = False

    
    'Set wbDst = Workbooks.Open("C:\FD\Backup1.xlsm", Password:="1111", WriteResPassword:="1111")
    Set wbDst = Workbooks.Open("C:\Users\dispatching\Music\Test\Backup3.xlsm")

    For Each Br In Application.GetCustomListContents(3)
        With wbDst.Sheets(Br)

                '.Unprotect Password:="1111"
           
            
            ThisWorkbook.Sheets(Br).Range("A1:AL29").Copy .Range("A" & Rows.Count).End(xlUp).Offset(3)

                
                '.Protect Password:="1111"


        End With
    Next
    Application.ScreenUpdating = True

    wbDst.Close True

End Sub

Situatie: Open van Backup3, kopie plaatsen en terug sluiten van het bestand en vervolgens sluiten van FD.
Tot zover werkt alles normaal zonder fouten.

Probleem: De maanden maart, mei en oktober worden echter niet gekopieerd.
Ik heb het bestand geprobeerd zonder wachtwoorden, de beide bestanden terug opgebouwd, doch het lukt mij niet om het op te lossen zodanig dat ook maart, mei en oktober worden gekopieerd.

Iemand een uitleg waarom dit maar gedeeltelijk lukt?

Alvast bedankt.
Marc

 

[Ginger]

Waarschijnlijk krijg je bij customlists Engelstalige maanden... Dus die betreffende sheets kunnen in jouw workbook niet worden gevonden.

 

[gast0660]

Haal eerst maar wat beveiliging uit het FD bestand, ik word er rapper uitgebonjourd dan dat ik de foutmelding kan lezen.

 

[samabert]

@ Ginger

Bedankt voor uw reactie.

Dat klopt, maar ik heb het ook op een nederlandstalige versie getest en zijn de custom list namen in het nederlands en heb ik dat probleem ook.
Waarom worden die andere sheets dan wel gevonden?
Is er misschien een mogelijkheid om de code Kopie te wijzigen dat de zichtbare sheets gekopieerd worden?

 

[samabert]

@gast0660

Bestand is aangepast.
Het zou nu moet werken zonder die login.

 

[Ginger]

Zet in je procedure deze regel eens als tekst: On Error Resume Next
Dan kan je variabelen checken als die vastloopt...

 

[samabert]

@ Ginger

Ondertussen het probleem kunnen oplossen.

Wou een nieuwe custom list aanmaken, maar ik gebruikte de verkeerd spatie en daarom werd de nieuwe lijst niet opgeslagen.
Daarna heb ik ook nog het verkeerde nummer toegewezen in de code.
Maar nu worden alle maanden netjes gecopieerd.

Bedankt om mij op weg te helpen, jouw hint was juist.
Marc