VBA formule doortrekken met variabele range

[oceanrace]

Hallo forummers,

De volgende code trekt formules in een ander werkblad door naar beneden.
Als ik de macro uitvoer springt hij naar dat betreffende werkblad, trekt de formule naar beneden en springt hij weer terug.
Kan dat ook zonder dat hij dit alles laat zien? Maw op de achtergrond uitvoeren.

Sub Groepengenereren()
'
' Groepengenereren Macro
'

    MsgBox "Klik op OK om groepen te berekenen in de database!", vbInformation + vbOKOnly, "Groepen aanmaken in database"
    Sheets("blad3").Select
    ActiveSheet.Unprotect "xxx"
    Range("AR2:AX2").Select
    Selection.AutoFill Destination:=Range("AR2:AX" & Range("A65535").End(xlUp).Row)
    ActiveSheet.Protect "xxx"
    Sheets("blad1").Select
    MsgBox "De groepen zijn aangemaakt in de database!", vbInformation + vbOKOnly, "Gelukt..."
End Sub

 

[cow18]

gebruik application.screenupdating = false of true

 

[oceanrace]

Dank u!

 

[Warme bakkertje]

Of

Sub Groepengenereren()
'
' Groepengenereren Macro
'

    MsgBox "Klik op OK om groepen te berekenen in de database!", vbInformation + vbOKOnly, "Groepen aanmaken in database"
    With Sheets("blad3")
        .Unprotect "xxx"
        .Range("AR2:AX2").AutoFill Destination:=Range("AR2:AX" & Range("A65535").End(xlUp).Row)
        .Protect "xxx"
    End With
    MsgBox "De groepen zijn aangemaakt in de database!", vbInformation + vbOKOnly, "Gelukt..."
End Sub

 

[oceanrace]

Hoi Rudi,
Bedankt voor je hulp, echter ik krijg en foutmelding in deze regel:

.Range("AR2:AX2").AutoFill Destination:=Range("AR2:AX" & Range("A65535").End(xlUp).Row)

 

[Warme bakkertje]

De puntjes op de i (of toch bijna)

Sub Groepengenereren()
'
' Groepengenereren Macro
'

    MsgBox "Klik op OK om groepen te berekenen in de database!", vbInformation + vbOKOnly, "Groepen aanmaken in database"
    With Sheets("blad3")
        .Unprotect "xxx"
        .Range("AR2:AX2").AutoFill Destination:=[COLOR="red"].[/COLOR]Range("AR2:AX" & [COLOR="red"].[/COLOR]Range("A65535").End(xlUp).Row)
        .Protect "xxx"
    End With
    MsgBox "De groepen zijn aangemaakt in de database!", vbInformation + vbOKOnly, "Gelukt..."
End Sub

 

[oceanrace]

Haha het werkt!
Deze heb ik gemaakt om ze weer te wissen:

Sub Groepengenererenwissen()
'
' Groepengenererenwissen Macro
'

    MsgBox "Klik op OK om weer terug te gaan naar de originele database!", vbInformation + vbOKOnly, "Terug naar originele database"
    Sheets("blad3").Select
    ActiveSheet.Unprotect "xxx"
    Range("AR3:AX3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    ActiveSheet.Protect "xxx"
    Sheets("blad1").Select
    MsgBox "De groepen zijn gewist in de database!", vbInformation + vbOKOnly, "Gelukt..."
End Sub