plakken speciaal over meer werkbladen

[arafy]

ik zoek een manier om de waardes te plakken ipv de formules. het zijn echter verschillende bestanden met verschillende bladen. vandaar wou ik in mijn personal.xls volgende macro zetten:

Sub wsplakken()

Dim ws As Worksheet

    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Sheets
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Next
    
    Application.ScreenUpdating = True

End Sub

Alleen het blad dat actief is, wordt gewijzigd. ik denk dat het maar een klein foutje is, maar ik zie het niet.

steven

 

[Wigi]

Ik vermoed dat deze beter gaat lukken:

Sub wsplakken()

    Dim ws As Worksheet

    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    For Each ws In ActiveWorkbook.Sheets
        ws.Cells.Copy
        ws.Cells.PasteSpecial xlValues
    Next
    
    On Error GoTo 0
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

End Sub

Wigi

 

[arafy]

die "ws." was het dus. hartelijk dank.

steven

 

[Wigi]

die "ws." was het dus. hartelijk dank.

Ik heb nog wel wat meer veranderd

Leg beide codes maar eens naast elkaar.

Wigi

 

[Finch]

Ik zou de volgende constructie eerder gebruiken:

For Each ws in ActiveWorkbook.WorkSheets

ipv

For Each ws in ActiveWorkbook.Sheets