wat doe ik fout??
met ondestaande kopier ik de header van een aantal tabbladen nara een verzamelblad. het principe werkt maar.......
velden in de tabbladen die zijn gevuld door een formule of celverwijzing worden niet overnomen. de formule en celverwijzing worden geplakt.
Ik dacht te begrijpen door het toevogen van Paste:=xlPasteValues of alleen xlpastevalues dit te ondervangen. Maar beide werken niet of geven hetzelfde resultaat.
doel is om de exacte inhoud van de cellen te kopieren vanuit tabblad 1 - x en dit onder elkaar in het blad totals te plakken.
Sub Combine()
Dim ws As Worksheet, _
LR1 As Long, _
LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "sheet1" And ws.Name <> "sheet2" Then
LR1 = Sheets("totals").Range("A" & Rows.Count).End(xlUp).Row + 1
LR2 = ws.Range("D" & Rows.Count).End(xlUp).Row
ws.Range("A1:J6").Copy
Sheets("totals").Range("A" & LR1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
met ondestaande kopier ik de header van een aantal tabbladen nara een verzamelblad. het principe werkt maar.......
velden in de tabbladen die zijn gevuld door een formule of celverwijzing worden niet overnomen. de formule en celverwijzing worden geplakt.
Ik dacht te begrijpen door het toevogen van Paste:=xlPasteValues of alleen xlpastevalues dit te ondervangen. Maar beide werken niet of geven hetzelfde resultaat.
doel is om de exacte inhoud van de cellen te kopieren vanuit tabblad 1 - x en dit onder elkaar in het blad totals te plakken.
Sub Combine()
Dim ws As Worksheet, _
LR1 As Long, _
LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "sheet1" And ws.Name <> "sheet2" Then
LR1 = Sheets("totals").Range("A" & Rows.Count).End(xlUp).Row + 1
LR2 = ws.Range("D" & Rows.Count).End(xlUp).Row
ws.Range("A1:J6").Copy
Sheets("totals").Range("A" & LR1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Zie:
