Code wat opschonen

[willema]

Dag allemaal,

Nu een Excel-bestand met heel wat VBA-code al enkele maanden goed draait, wil ik de code voor mezelf nog wat inkorten/opschonen. Om zo wat bij te leren om in de toekomst korter te programmeren.

Ik begin daarbij om zoveel mogelijk de combinatie .Select en Selection. aan te passen. Met succes alle Sort-commando's zo al telkens één regel kunnen inkorten.

Nu wil ik vervolgens meerdere Selects om tot een bepaalde cel op een ander blad te komen inkorten.
Dat gaat nu ook in twee regels:

Sheets(1).Select
Cells(2, 2).Select

Hoe moet dat ? Ik heb geprobeerd met:

Worksheets(1).Cells(2, 2).Select

en

Sheets(1).Cells(2, 2).Select

maar beiden geven een foutmelding (400).

 

[Leotaxi]

voor eerste werkblad in boek

with worksheets(1)
.cells(2,2).en hier wat je ermee wilt doen
end with

mvg
Leo

 

[Warme bakkertje]

Vaak is het niet nodig om naar een bepaald werkblad te gaan om een bepaalde bewerking uit te voeren.
Wil je toch ergens heen gebruik je bij voorkeur

Application.goto sheets(1).cells(2,2)

 

[willema]

Dankjewel Leo en Rudi,

deze regel dient om op het einde van een procedure een bepaalde cel op een bepaald blad te selecteren. In de meeste gevallen volgt er dan nog één regel: ActiveWorkbook.Save

De oplossing van Rudi is met één regel de kortste. Alhoewel de oplossing van Leo drie regels heeft, vermoed ik dat die toch nog sneller werkt dan mijn oorspronkelijke code waarin twee maal een object werd geselecteerd.