Opslaan na uitvoeren van deze macro lukt niet meer

[Richard7410]

Beste Vrienden van Helpmij,

Allereerst wil ik jullie de compimenten :thumb: maken over dit forum. Heel veel vragen waar ik tegenaanloop in Visual Basic kan ik al oplossen en ik ben eigenlijk maar een knutselaar in VBA. Ik heb daarom ook een vraag voor jullie. Ik heb een macro geschreven maar na uitvoeren van de macro wil het bestand niet meer opslaan (ook niet opslaan als bij mij) Weet iemand wat ik fout doe :shocked: Ik kan zelf de fout in mijn macro nog niet vinden. Alvast heel veel dank voor diegene die mij wil helpen :thumb:

Hier volgt de macro:

Sub importbeginsaldidebcred()
'
' importbeginsaldidebcred Macro
'
MsgBox "Het importeren word gestart"
Application.ScreenUpdating = False
'leegmaken de sheet import beginsaldi

Sheets("Import beginsaldi").Select
Range("A1:Q2500").ClearContents

'Import eindsaldi kolommenbalans

Sheets("Import beginsaldi").Select
Range("J9").FormulaR1C1 = "='" & Range("AA1") & "Beginbalans'!R9C10"
Range("J9").Select
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("J9").Copy
Range("J10:J45").PasteSpecial xlPasteFormulas
Range("J9:J45").Copy
Range("J9").PasteSpecial xlPasteValues
Range("J9:J45").Copy
Sheets("Beginbalans").Select
ActiveSheet.Unprotect Password:="99AZFCT100"
Sheets("Import beginsaldi").Select
Range("j9:j45").Copy
Sheets("Beginbalans").Select
Range("C9").PasteSpecial xlPasteValues
ActiveSheet.Protect Password:="99AZFCT100"
Sheets("Import beginsaldi").Select
Range("J9:J45").ClearContents

'import saldi inkoopfacturen uit lopende jaar die per jaareinde openstaan

Range("A12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C1"
Range("B12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C2"
Range("C12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C3"
Range("D12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C4"
Range("E12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C5"
Range("F12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C6"
Range("G12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C7"
Range("H12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C8"
Range("I12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C9"
Range("J12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C10"
Range("K12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C11"
Range("L12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C12"
Range("M12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C13"
Range("N12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C14"
Range("O12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C15"
Range("P12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C16"
Range("Q12").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R12C17"
Range("A12:Q12").Select
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A12:Q12").Copy
Range("A13:Q1009").PasteSpecial xlPasteFormulas
Range("A12:Q1009").Copy
Range("A12").PasteSpecial xlPasteValues

'import beginsaldi inkoopfacturen

Range("A1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C1"
Range("B1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C2"
Range("C1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C3"
Range("D1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C4"
Range("E1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C5"
Range("F1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C6"
Range("G1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C7"
Range("H1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C8"
Range("I1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C9"
Range("J1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C10"
Range("K1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C11"
Range("L1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C12"
Range("M1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C13"
Range("N1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C14"
Range("O1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C15"
Range("P1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C16"
Range("Q1010").FormulaR1C1 = "='" & Range("AA1") & "Inkoopfacturen'!R1023C17"
Range("A1010:Q1010").Select
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1010:Q1010").Copy
Range("A1011:Q2007").PasteSpecial xlPasteFormulas
Range("A1010:Q2007").Copy
Range("A1010").PasteSpecial xlPasteValues

'Saldi inkoopfacturen eruitfilteren en in de juiste sheet plakken

Sheets("Inkoopfacturen").Select
ActiveSheet.Unprotect Password:="99AZFCT100"
Sheets("Import beginsaldi").Select
ActiveSheet.Range("$A$11:$Q$2007").AutoFilter Field:=15, Criteria1:="<>0"
Range("A12:I2007").Copy
Sheets("Inkoopfacturen").Select
Range("A1023").PasteSpecial xlPasteValues
Sheets("Import beginsaldi").Select
Range("L12:L2007").Copy
Sheets("Inkoopfacturen").Select
Range("L1023").PasteSpecial xlPasteValues
Sheets("Import beginsaldi").Select
Range("Q12:Q2007").Copy
Sheets("Inkoopfacturen").Select
Range("Q1023").PasteSpecial xlPasteValues
ActiveSheet.Protect Password:="99AZFCT100"
Sheets("Import beginsaldi").Select
ActiveSheet.Range("$A$11:$Q$2007").AutoFilter Field:=15
Range("A12:Q2007").ClearContents


'Opestaande saldi verkoopfacturen lopende jaar importeren

Sheets("Import beginsaldi").Select
Range("A12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C1"
Range("B12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C2"
Range("C12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C3"
Range("D12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C4"
Range("E12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C5"
Range("F12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C6"
Range("G12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C7"
Range("H12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C8"
Range("I12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C9"
Range("J12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C10"
Range("K12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C11"
Range("L12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C12"
Range("M12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C13"
Range("N12").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R12C14"
Range("A12:N12").Select
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A12:N12").Copy
Range("A13:N1009").PasteSpecial xlPasteFormulas
Range("A12:N1009").Copy
Range("A12").PasteSpecial xlPasteValues

'Beginsaldi verkoopfacturen importeren

Range("A1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C1"
Range("B1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C2"
Range("C1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C3"
Range("D1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C4"
Range("E1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C5"
Range("F1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C6"
Range("G1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C7"
Range("H1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C8"
Range("I1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C9"
Range("J1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C10"
Range("K1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C11"
Range("L1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C12"
Range("M1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C13"
Range("N1010").FormulaR1C1 = "='" & Range("AA1") & "Verkoopfacturen'!R1023C14"
Range("A1010:N1010").Select
Selection.Replace What:="$", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1010:N1010").Copy
Range("A1011:N2007").PasteSpecial xlPasteFormulas
Range("A1010:N2007").Copy
Range("A1010").PasteSpecial xlPasteValues

'Juiste saldi eruitfilteren en naar sheet verkoopfacturen

Sheets("Verkoopfacturen").Select
ActiveSheet.Unprotect Password:="99AZFCT100"
Sheets("Import beginsaldi").Select
ActiveSheet.Range("$A$11:$n$2007").AutoFilter Field:=13, Criteria1:="<>0"
Range("a12:I2007").Copy
Sheets("Verkoopfacturen").Select
Range("A1023").PasteSpecial xlPasteValues
Sheets("Import beginsaldi").Select
Range("L12:L2007").Copy
Sheets("Verkoopfacturen").Select
Range("L1023").PasteSpecial xlPasteValues
Sheets("Import beginsaldi").Select
Range("Q12:Q2007").Copy
Sheets("Verkoopfacturen").Select
Range("Q1023").PasteSpecial xlPasteValues
ActiveSheet.Protect Password:="99AZFCT100"
Sheets("Import beginsaldi").Select
ActiveSheet.Range("$A$11:$Q$2007").AutoFilter Field:=13
Range("A12:Q2007").ClearContents

Sheets("Algemene gegevens").Select

Application.ScreenUpdating = True
MsgBox "Het importeren is gereed"
'
End Sub

 

[Richard7410]

Vraag niet hoe het kan maar profiteer ervan

Vraag niet hoe het kan maar profiteer ervan. Ik heb net na de import beginsaldi. De code activeworkbook.save toegevoegd. Dit deed ik in eerste instantie om te te testen waar de fout zat. Maar dit lost ook gelijkt het probleem op, want na het uitvoeren van de macro kan ik nu gewoon weer opslaan. Geen idee hoe dit kan, maar het is opgeslot :thumb: