Minder handelingen

[DeArie]

Om de kolommen uit te lijnen heb ik wat anders gevonden:

sh.Range("C:C,F:F").HorizontalAlignment = xlCenter

Alleen centreert hij alleen kolom C en F maar dus dat staat nog niet helemaal goed, deze heb ik geplaatst onder : End with.
Wat doe ik hier dan fout mee?

 

[HSV]

Proberen maar dan.

For Each sh In Sheets
t1=0
t2=0
t3=0
    With sh.Cells(10, 1).CurrentRegion

Of:

.Resize(UBound(ar)) = ar
t1=0
t2=0
t3=0
    End With

Of de iets onoverzichtelijke manier:

.Resize(UBound(ar)) = ar
t1=0: t2=0: t3=0
    End With

Of net boven de next.

 sh.Cells(j + 10, 7).Resize(, 3).NumberFormat = "$ #,##0.00"
t1=0: t2=0: t3=0
  Next sh

 

[DeArie]

Beste HSV,

Dank voor de oplossing, ik heb eest goed gekeken wat je aangeboden had en ik koos de gelijk de juiste. De eerste leek me onlogisch want volgens mij moet daar t1 t2 t3 nog benoemd worden.
de middelste twee zijn volgens mij hetzelfde alleen anders geschreven. en in mijn ogen zet hij ze dan voor dat hij ze wegschrijft alweer op 0.

De onderste leek mij het best, deze kwam na "End with" en na dat hij alle andere handelingen al verricht had.

Nog een klein vraagje, om de kolommen te centreren heb ik het volgende gedaan

sh.Range("C:C,D:D,E:E,F:F").HorizontalAlignment = xlCenter

nu lijkt me dat je ook kan opgeven van kolom C t/m F
alleen zou ik niet weten wat je dan tussen de C:C en F:F moet zetten. Overigens werkt bovenstaande prima, is pure nieuwsgierigheid.

 

[HSV]

Jammer dat je de code niet begrijpt.

Alle 4 doen ze hetzelfde en evengoed.

Je vraag:

sh.columns("C:F")[COLOR=#3E3E3E].HorizontalAlignment = xlCenter[/COLOR]

 

[DeArie]

Beste HSV,

Dank, inderdaad ik begrijp niet alles ervan (ik denk maar een klein gedeelte). als ik er naar kijk snap ik wat hij doet maar hoe het geschreven moet worden is soms een raadsel.
Meestal zoek ik iets wat lijkt op het geen ik gedaan wil hebben en kijk ik vanuit daar verder. En als het niet lukt ben ik vanzelf hier weer te vinden voor hulp.

Maar nogmaals :thumb::thumb: voor alle hulp iedereen

 

[HSV]

De 'for each sh in sheets' begrijp je toch wel?

Laat de code zo vaak lopen als het aantal bladen in je werkboek.
Elke keer de code voorbij t1=0 komt staat t1 op 0.
In de code verderop wordt t1 weer veranderd; t1+t1 = ?

Hier wordt het weggeschreven.

.Resize(UBound(ar)) = ar

Dat staat boven de 'Next sh'.

Dus direct onder for each of na het wegschrijven en net boven 'Next' maakt geen verschil in deze.

 

[DeArie]

'for each sh in sheets' dat begreep ik inderdaad wel ja, maar ik wist dus niet dat dit

.Resize(UBound(ar)) = ar

het weg schreef. Top weer wat geleerd!

 

[VenA]

Blijkbaar was ik vergeten de tellers op 0 te zetten.:d Getallen gecentreerd neerzetten vind ik lelijk en onprofessioneel staan.

 

[HSV]

Hoeveelheden rechts uitgelijnd geven mij een indicatie dat het getallen zijn.
Staan ze links, dan betekent dat voor mij dat het iets anders is.
Zo hoef je nooit met een omweg formules verzinnen.