surfingmaster
Gebruiker
- Lid geworden
- 5 mei 2010
- Berichten
- 88
Ik heb de volgende macro gemaakt. Als ik deze uitvoer geeft hij een foutmelding aan het eind van de macro. Hij geeft de foutmelding dat 'End With wordt verwacht'. Wat is er fout aan de macro
De macro moet het aantal rijen van de tabblad 'begroting' tellen en dat aantal moet vanaf rij 20 van tabblad 'Kosten uitg. in tijd' ingevoegd worden voor de laatste 3 regels van tabblad 'Kosten uitg. in tijd'. De ingevoegde regels moeten een kopie zijn van regel 18 van tabblad 'Kosten uitg. in tijd'.
De macro moet het aantal rijen van de tabblad 'begroting' tellen en dat aantal moet vanaf rij 20 van tabblad 'Kosten uitg. in tijd' ingevoegd worden voor de laatste 3 regels van tabblad 'Kosten uitg. in tijd'. De ingevoegde regels moeten een kopie zijn van regel 18 van tabblad 'Kosten uitg. in tijd'.
Code:
Sub Rijenaanpassen()
Application.ScreenUpdating = False
With Sheets("Kosten uitg. in tijd")
.Unprotect Password:=""
With Sheets("Begroting")
UsedRange.Rows.Count
With Sheets("Kosten uitg. in tijd")
For i = 1 To [Value] + 20 - .UsedRange.Columns.Count
.Rows(18).Copy
.Cells(1, .UsedRange.Columns.Count - 3).Insert
Next
.Protect Password:=""
End With
Application.ScreenUpdating = True
End Sub
Laatst bewerkt:
