Macro uitvoeren op elke sheet tot sheetnaam "Summary"

[maartenmars]

Ik zou graag een macro willen waarbij de macro in alle sheets range A1:C6 kopierd en plakt in sheet Summary en dat voor alle sheets. Alleen werkt die macro wel, maar dan pakt hij Summary zelf ook mee. En daar moet hij stoppen. Iemand een code voor me dat hij de sheet Summary niet meepakt met de macro?

Sub Mymacro()
Dim wSheet As Worksheet

For Each wSheet In Worksheets
wSheet.Range("A1:C6").Copy
Sheets("Summary").Range("A65536").End _
(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next wSheet


End Sub

 

[wampier]

je kunt makkelijk een

if wsheet.name = "Summary" then

toevoegen om de summary sheet uit te sluiten. Of name<>"summary" is mogelijk beter in dit geval

 

[maartenmars]

Zou je dat in de code kunnen verwerken? Want bij mij werkt dat nog niet eigenlijk

 

[wampier]

Sub Mymacro()
Dim wSheet As Worksheet

For Each wSheet In Worksheets
if wSheet.Name<>"Summary" then
wSheet.Range("A1:C6").Copy
Sheets("Summary").Range("A65536").End _
(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
end if
Next wSheet

End Sub

Let wel, Summary en summary zijn verschillende sheets, dus kijk goed naar hoofdletters.

 

[maartenmars]

Je bent geweldig!