Opmaak Herstellen

[Jack Nouws]

Jack , het is maar een veronderstelling maar is dat = teken wel nodig ?

.Range("sorteerplanten").Sort key1:[E3], order1:=xlAscending, key2:[F3], order2:=xlAscending, key3:[G3], order3:=xlAscending

Hallo

Ik weet het niet
Ik zal het eens uit proberen

Ik zat net nog met je code te spelen

Sub celkleur()
Application.ScreenUpdating = False
Dim intI As Integer, intj As Integer
    For intI = 3 To 150 Step 1 ' maak je hier een stap 2 van dan is het om de rij
        For intj = 1 To 11 Step 1
            ActiveSheet.Cells(intI, intj).Interior.Color = vbGreen
        Next
    Next
    For intI = 3 To 150 Step 2 ' maak je hier een stap 2 van dan is het om de rij
        For intj = 1 To 11 Step 1
            ActiveSheet.Cells(intI, intj).Interior.Color = vbRed
        Next
    Next
Application.ScreenUpdating = True
End Sub

Met vr gr
Jack

 

[trucker10]

Hallo

Ik weet het niet
Ik zal het eens uit proberen

Ik zat net nog met je code te spelen

Sub celkleur()
Application.ScreenUpdating = False
Dim intI As Integer, intj As Integer
    For intI = 3 To 150 Step 1 ' maak je hier een stap 2 van dan is het om de rij
        For intj = 1 To 11 Step 1
            ActiveSheet.Cells(intI, intj).Interior.Color = vbGreen
        Next
    Next
    For intI = 3 To 150 Step 2 ' maak je hier een stap 2 van dan is het om de rij
        For intj = 1 To 11 Step 1
            ActiveSheet.Cells(intI, intj).Interior.Color = vbRed
        Next
    Next
Application.ScreenUpdating = True
End Sub

Met vr gr
Jack

Van welke voetbal ploeg zijn die kleuren Ik duik in mijn bed

 

[Jack Nouws]

Hallo, trucker10

Ik heb zojuist de code laten lopen zonder de = tekens en ik krijg deze foutmelding "Onjuist aantal argumenten of ongeldige eigenschappentoewijzing" dus ik denk dat we ze weer maar terug gaan plaatsen. Of Roncancio moet nog met een oplossing komen.

Ik ga nog effe pitten
en droom jij maar over Nijmegen

Met vr gr
Jack