Beste helpers,
Op basis van kolom C (zal nooit lager dan regel 10 komen) wil ik naar een andere sheet saven. Om dit te doen heb ik in de module 3 aparte sub's gemaakt. Helaas voor mij werkt het wel op 2 opties, maar met de derde accepteerd hij het niet.
Bovenstaande werkt goed, maar onderstaande krijg ik melding, geen If command ?
Kunnen jullie mij hiermee helpen ?
Op basis van kolom C (zal nooit lager dan regel 10 komen) wil ik naar een andere sheet saven. Om dit te doen heb ik in de module 3 aparte sub's gemaakt. Helaas voor mij werkt het wel op 2 opties, maar met de derde accepteerd hij het niet.
Code:
With Sheets("basis")
For Each cl In .Range("C2:C10")
If cl = "alpha" Then Run "alpha"
Next
If cl = "mot" Then Run "mot"
End With
Bovenstaande werkt goed, maar onderstaande krijg ik melding, geen If command ?
Code:
With Sheets("basis")
For Each cl In .Range("C2:C10")
If cl = "alpha" Then Run "alpha"
ElseIf cl = "brava" Then Run "bravo"
Next
If cl = "mot" Then Run "mot"
End With
Kunnen jullie mij hiermee helpen ?