Wat doet deze macro?

[hanskiers]

Beste forum bezoekers,

Ik heb een bestaande excelfile en deze bevat een macro. Alleen snap ik niet waarom deze doet wat hij doet. Kan iemand me hierbij helpen?

Sub Reset_geconsolideerd()
'
' Reset_geconsolideerd Macro
' De macro is opgenomen op dd door x.
'

'
Application.Goto Reference:="Reset_gebied_geconsolideerd"
Selection.Copy
Range("AN35").Select
ActiveSheet.Paste
Range("F35:X35").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("AN35:BF35").Select
Selection.Copy
Range("F35").Select
ActiveSheet.Paste
Range("AN35:BG35").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A35").Select
End Sub

 

[Joske2000]

Hallo Hans,

Welkom op het forum.

Uitleg erbij geschreven in groene tekst. De macro kan een stuk korter geschreven worden (zonder al de select erin).

Joske

Sub Reset_geconsolideerd()
'
' Reset_geconsolideerd Macro
' De macro is opgenomen op dd door x.
'

'
Application.Goto Reference:="Reset_gebied_geconsolideerd"  [COLOR="Lime"]'gaat naar een gedefinieerd gebied[/COLOR]
Selection.Copy   [COLOR="Lime"]'kopieert dit gebied[/COLOR]
Range("AN35").Select  [COLOR="lime"]'select cel AN35[/COLOR]
ActiveSheet.Paste   [COLOR="lime"]'plakt de selectie in cel AN35[/COLOR]
Range("F35:X35").Select  [COLOR="lime"]'kopieert het gebied van F35 tot X35[/COLOR]
Application.CutCopyMode = False
Selection.ClearContents  [COLOR="lime"]'delete de gegevens in het gebied F35 - X35[/COLOR]
Range("AN35:BF35").Select  [COLOR="lime"]'selecteert het gebied AN35 tot BF35[/COLOR]
Selection.Copy  [COLOR="lime"]'kopieert dit gebied[/COLOR]
Range("F35").Select  [COLOR="lime"]'select cel F35[/COLOR]
ActiveSheet.Paste  
Range("AN35:BG35").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A35").Select
End Sub

 

[hanskiers]

Wat kan er weg?

Ok dankjewel Joske. Maar wat kan er volgens jou uit de code verwijderd worden zonder dat de uitvoering veranderd?

 

[richard1970]

Beste Hans,

Regels zoals:

Range("AN35:BF35").Select  'selecteert het gebied AN35 tot BF35
Selection.Copy

kun je ook schrijven als:

Range("AN35:BF35").Copy

Richard

 

[hanskiers]

Laatste vragen dan...

je zegt:

Range("F35:X35").Select 'kopieert het gebied van F35 tot X35
Maar dit is toch geen kopier commando?

En volgens mij is:
Application.CutCopyMode = False een commando om het clipboard leeg te maken dus wat heeft het voor zin om te kopieren dan?

Ik heb zojuist het antwoord om mijn vragen zelf uitgevonden.

toch bedankt.

ik sluit het topic

 

[Wigi]

Samengevat:

Range("Reset_gebied_geconsolideerd").Copy Range("AN35")
    Range("F35:X35").ClearContents
    Range("AN35:BF35").Copy Range("F35")
    Range("AN35:BG35").ClearContents
    Application.CutCopyMode = False

ongeteste code

Wigi