vba code uitbreiden

bowlingman · 19 jul 2018

Hallo,
Ik heb in mijn file een btn staan om op het einde van het seizoen alle scores te wissen en met onderstaande code werkt dat perfect

Code:

Sub Wissen()
    If MsgBox("Alle scores worden gewist! Wilt U doorgaan,", vbYesNo) = vbYes Then
        With Sheets("Speeldagen")
            Intersect(.Range("A:B,G:L,R:S,X:AC"), .Range("5:8,16:19,27:30,38:41,49:52,94:97,enz.............")).ClearContents 
        End With
    End If
End Sub

Nu heb ik dat geprobeerd om uit te breiden als volgt

Code:

Sub Wissen()
    If MsgBox("Alle scores worden gewist! Wilt U doorgaan,", vbYesNo) = vbYes Then
        With Sheets("Speeldagen")
            [COLOR="#FF0000"]Intersect(.Range("A:H,R:AA"), .Range("3,14,15")).ClearContents[/COLOR]
            Intersect(.Range("A:B,G:L,R:S,X:AC"), .Range("5:8,16:19,27:30,38:41,49:52,94:97,enz.............")).ClearContents
        End With
    End If
End Sub

Maar op de rode lijn krijg ik een foutmelding
Hoe kan ik de eerste code dan wel aanpassen

wampier · 19 jul 2018

De intersect moet een extended range zijn. 3:3,14:14,15:15 ?

bowlingman · 19 jul 2018

Hallo Wampier,
Had ik ook al geprobeerd en dat lukte eerst niet.
Tot ik de foutmelding serieus gelezen heb. Er waren samengevoegde cellen bij.
Nu dan deze code en werkt nu perfect

Code:

With Sheets("Speeldagen")
Intersect (.Range("A:B,C:D,E:J,R:S,T:U,V:AA"), .Range("3:3,14:14,25:25")).ClearContents
end with

Nu heb ik nog even een idee.
Omdat dit over ongeveer 60 rijen gaat en het verschil is telkens "11", kan deze regel misschien aangepast worden met ergens "+11" te zetten, zodat de "Range" geen lange lijst wordt.

Bedankt voor de hulp
Grtjs.
Armand

Ginger · 19 jul 2018

Selecteer alle betreffende bereiken en koppel er dan een naam aan. Met een Named Range ben je in 1x klaar.

vba code uitbreiden

bowlingman

Gebruiker

wampier

Meubilair

bowlingman

Gebruiker

Ginger

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy