VBA code aanpassen (Excel 2003)

[ROSO]

Ik gebruik de volgende code om kolommen op te tellen, op iedere lege rij.
De groep wordt op de lege cel, onder de groep opgeteld.

Ik zou graag de volgen willen;
1. groep dat opgeteld wordt, de gevens van de bovenliggende cellen A.t/m.Z eerst kopieert naar de lege rij waar de
som komt. Uitgezonderd de cel waar de som komt.
2. in kolom D tekst "Totaal"(vet gedrukt) geplaatsen worden (Rij waar de Som komt)
3. in alle cellen die in de groep opgeteld worden de leter "T" .

Kan iemand mij ermee helpen. Ben een leek op VBA gebied maar ik doe mijn best.

For Each ar In Columns(8).SpecialCells(2).Areas
    With ar.Resize(1).Offset(ar.Cells.Count)
      .Value = "=sum(" & ar.Address(, False) & ")"
      .Resize(, 2).FillRight
    End With

 

[ROSO]

Is er dan niemand die mij kan helpen.

Ik weet dat het ongeveer zomoet;

With ThisWorkbook.Sheets(2)
  For Each ar In Columns(3).SpecialCells(xlCellTypeConstants).Areas
        ar.Copy
   
    '??????????????.CurrentRegion.Rows.Count).PasteSpecial , , , True
 
  Next
End With

:shocked:

 

[snb]

Begin bij het begin met VBA.(een cursus, een boek)
Ik ken iemand die het ook zo gedaan heeft.

PS. En een vraag zonder type-, stijl- en taalfouten leest een stuk prettiger voor potentiële helpers. Lees je vraag daarop nog een door en breng svp wat verbeteringen aan.

 

[ROSO]

Daar ben ik meer bezig SnB, ik ben na 30 jaar weer in prog. wereld begonnen om mijn coll te helpen. Wat betreft type- taal- fouten, ik denk niet dat, dat zo belangrijk is. Ik denk dat het erom gaat of iemand je kan of wil helpen. En mocht er iets niet duidelijk zijn dan kan de verzoeker nog altijd verduidelijken.Ik geloof er nog steeds in, een ieder is goed op zijn of haar gebied.
WAAR EEN WIL IS, IS OOK EEN WEG.

Met vriendelijke groet,

RoSo.

Ps. tekst heb ik een beetje aangepast. Ik hoop dat het nu een beetje duidelijk is.

 

[Antonisse40]

reactie

Roso goedemiddag,

je geeft hier aan dat je met vba-code werkt, maar kun je het resultaat (met subtotalen etc.) niet bereiken met een draaitabel? Ben je op de hoogte van de werking van een draaitabel?

Groetjes,

D.Antonisse

 

[ROSO]

Goedemiddag Antonisse,

Bedankt voor reageren.

Ik probeer zoveel mogelijk VBA te gebruiken omdat mijn coll. geen kennis van Excel hebben. Daarom probeer ik dat alles zoveel mogelijk automatisch gaat.

Wat betreft de code hierboven vermeld heb ik de meest kunnen op vangen in een form.

Er is een ding waar ik nog mee zit, Ik heb een nieuwe topic van gemaakt maar hier nog een keer: Als je me kan helpen heel graag. Mijn coll zullen wel blij zijn.

Mijn nieuwe topic:

Kan iemand mij helpen met het volgende.

Ik gebruik de onderstaande code om kolommen te totaliseren.
Code werkt goed, ik zou, graag aan toe willen voegen.
Op de Rij waar de som (Kolom F) komt, (op de zelfde Rij) in Kolom A , de letter "S" geplaatst wordt.

vb:
A ------------------------------------------------------------------------------F
---------------------------------------------------------------------------------1
-------------------------------------------------------------------------------- 2
"S" --------------------------------------------------------------------------- (som)

Ik hoop dat ik een beetje duidelijk ben, anders hoor ik wel van jullie.

Alvast bedankt.


Code:
For Each ar In Columns(6).SpecialCells(2).Areas
With ar.Resize(1).Offset(ar.Cells.Count)
.Value = "=sum(" & ar.Address(, False) & ")"
End With

 

[kuilman]

Hallo ROSO,

Het is niet helemaal ontopic maar het lijkt mij niet handig om alles in VBA te gaan maken voor je collega's.
De reden hiervan is als jij weg gaat of ontslagen word is er niemand meer met die kennis en kan alles zo de prullenbak in.
de basis van excel heb je zo onder de knie om de basis van VBA onder de knie te krijgen kost heel wat mee moeite.
ik zou het simpel houden en niet met VBA gaan werken om die reden.

Maar toch Succes met uitzoeken :thumb:.

 

[Warme bakkertje]

For Each ar In Columns(6).SpecialCells(2).Areas
With ar.Resize(1).Offset(ar.Cells.Count)
.Value = "=sum(" & ar.Address(, False) & ")"
.Offset(, -5).Value = """S"""
End With
Next

 

[ROSO]

Bedankt Rudi,

Ik heb je code nog niet kunnen testen maar ik ga ervan uit dat het werkt.

Nogmaals bedankt.:thumb:

Ik zal deze topic op afgehandeld zetten.

Groeten,

RoSo