ssteenvoorde
Gebruiker
- Lid geworden
- 4 mei 2018
- Berichten
- 11
Hallo,
Een tijd geleden heb ik een macro met hulp van andere gemaakt. Deze macro was gebaseerd op een klein bestand, zie bijlage. Nu werkt de macro voor dit bestand goed. Zodra ik de gegevens op sheet ''rapportage voorkeur housing reg'' uitbreid tot bijvoorbeeld regel 4000, met dezelfde gegevens qua opmaak, dan krijg ik een foutmelding. Iemand enige idee waarom ik deze foutmelding krijg?
De macro is:
Code:
Sub test2()
'
' Housing req rapportage
'
Range("A1:O1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("rapportage voorkeur housing req").Select
Range("P2:P9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("R1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Selection.Font.Bold = True
Cells.Select
Cells.EntireColumn.AutoFit
Dim sv, i As Long
sv = Sheets("rapportage voorkeur housing req").Cells(1).CurrentRegion
For i = 2 To UBound(sv) Step 8
With Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp)
.Offset(1).Resize(, 15) = Application.Index(sv, i, 0)
.Offset(1, 17).Resize(, 8) = Application.Transpose(Application.Index(sv, Evaluate("row(" & i & ":" & i + 8 & ")"), 17))
End With
Next i
End Sub
Alvast bedankt. Groet, Shin-Lee
Bijlagen
Laatst bewerkt: