Aantalen optellen, variable

[HWV]

Beste Helpmij.nl Bezoekers / Leden,

Kunnen jullie mij helpen met het volgende:

In een excel bestand heb ik mijn fotodata zitten.
Nu wil ik weten hoeveel foto`s ik heb per fotoalbum.

In bijgevoegd bestand kan je zien dat het optellen niet altijd even makkelijk gaat.

- Soms moet hij 2 cellen tellen en soms 3 enz enz.
- Als het mogelijk is met een regel er tussen na fotoalbum 1, 2, 3 enz
- Dat er dan ook Totaal nergezet word incl de streep voor de duidlijkheid.
- Ik wil deze gegevens vaker uit mijn systeem halen dus wil ik het graag in VBA script hebben

Ik heb niet zo heel veel verstand van VBA maar wil het graag begrijpen (lukt niet altijd)

Ik hoop dat iemand hier een oplossing voor weet.
Kan ik eindelijk mijn foto`s organiseren

HWV

 

[RB_online]

hallo,

ik heb nog enkele vraagjes.
Je geeft aan dat je dit vaker wilt gaan doen, betekend dit dat er regels tussengevoegd moeten worden? Of zijn dit een ander soort foto's.
Zo ja is het dan niet handiger om elk album op een nieuw tabblad te zetten?

René

 

[HWV]

Hoi,

Je moet het zo zien ik trek de gegevens uit mijn systeem die komen onder elkaar zo te staan zoals in mijn bestand.
De lijst kan dus elke keer verschillend zijn, dus de aantallen ook.
Ik gebruik deze lijst ook ( zie foto hieronder ) voor onze hobby einde van het jaar voor foto`s van onze optrede`s.
Dit zijn telkens andere foto`s ivm dat we dit telkens ergens anders doen.

Om er voor te zorgen dat er een lege rij onder elke einde moet komen heb ik de het volgende al.

Nu nog het optellen en de opmaak

Sub Opsplitsen()
For rij = 4 To 20000
If Cells(rij, 4) = Cells(rij - 1, 4) Then
ElseIf Cells(rij, 4) <> Cells(rij - 1, 4) Then
Cells(rij, 4).EntireRow.Select
Selection.Insert shift:=xlUp
rij = rij + 1
End If

Next rij
End Sub

Groet HWV

 

[RB_online]

De lijst kan dus elke keer verschillend zijn, dus de aantallen ook.

Dus het is mogelijk dat "2009 fotoalbum1 thuis " op meerdere plaatsen in de lijst gaat voorkomen en dan tussengevoegd moet worden.

Bijna niets is onmogelijk maar is het in dat geval niet handiger om voor ieder fotoalbum een apart tabblad te gebruiken en die dan aan te vullen?

eventueel kunnen dan niet bestaande bladen automatisch aangemaakt worden.


René

 

[HWV]

tussenvoegen

Nee de lijst is gesorteerd.
Maar kan wel meerde keren onder elkaar vorkomen:

2009 fotoalbum1 thuis
2009 fotoalbum1 thuis
2009 fotoalbum1 thuis

Zoals ik nu zoek, denk ik dat we kolom B als tricker moeten nemen.


Groet HWV

Code van hierboven nog even op de juiste kolom gezet B

Sub Opsplitsen()
For rij = 2 To 20000
If Cells(rij, 2) = Cells(rij - 1, 2) Then
ElseIf Cells(rij, 2) <> Cells(rij - 1, 2) Then
Cells(rij, 2).EntireRow.Select
Selection.Insert shift:=xlUp
rij = rij + 1
End If

Next rij
End Sub

 

[Finch]

Je kan ook met de subtotaal functionaliteit binnen Excel werken. Dan wordt die extra regel automatisch aangemaakt, en wordt de som van kolom F automatisch berekend.

 

[HWV]

Snap het niet echt

Heb net de functie gevonden maar kan ik deze dan verwerken in een vba code ?
Zodat deze match met onderstaande code, want deze werkt nu naar behoren.

Sub Opsplitsen()
For rij = 2 To 20000
If Cells(rij, 2) = Cells(rij - 1, 2) Then
ElseIf Cells(rij, 2) <> Cells(rij - 1, 2) Then
Cells(rij, 2).EntireRow.Select
Selection.Insert shift:=xlUp
rij = rij + 1
End If

Next rij
End Sub

Groet HWV

Tof dat je me even helpt

 

[HWV]

OK,

Met wat puzzelen ben ik weer iets verder gekomen.

Sub Opsplitsen()
For rij = 2 To 20000
If Cells(rij, 2) = Cells(rij - 1, 2) Then
ElseIf Cells(rij, 2) <> Cells(rij - 1, 2) Then
Cells(rij, 2).EntireRow.Select
Selection.Insert shift:=xlUp
rij = rij + 1
End If

Next rij

  For Each ar In Columns(6).SpecialCells(xlCellTypeConstants).Areas
    ar.Cells(ar.Cells.Count).Offset(1).Formula = "=SUM(" & ar.Address & ")"
  
  Next
End Sub

Hij maakt nu een extra lege regel onder het einde van dezelfde onder kolom B
Met het tweede deel zet hij een formule voor het optellen van de waarde van bovenliggegde regels.

Enkel nu is het niet overzichtelijk.
Ik wil eigenlijk dat de uitkomst van de som komt op de eerste regel van de som en dan in kolom H, dit is dan de eerste regel waar hij begin met tellen enkel dan 2 kolomen verder.
Dit is anders dat ik hierboven had geschreven maar bij nader inzien is dit dan duidelijker.

Zo heb ik gelijk de totalen op één rij van de fotoalbum 1 tm..

Hopende op een reactie die mij verder kan helpen hiermee

HWV

Nu voorbeeld met script

 

[RB_online]

een poging van mijn kant

René

 

[HWV]

poging goed , helaas niet de oplossing

Beste ,

Ik heb het toegepast maar er zit nog een uitzondeing in waardoor jou oplossing niet werkt.
In het voorbeeld zie je dat kolom c niet altijd dezelfde omschrijving zal zijn als vorgaande cel.

Bedankt voor de inzet en we blijven proberen.


HWV

 

[RB_online]

Aangepast

René

 

[snb]

Een iets andere benadering in de bijlage.
Het gebruik van somprodukt is hiervoor geschikt.

 

[HWV]

Helaas nog niet

Even voor de duidelijkheid heb ik nu staan :

Jaar Nummer Omschrijving Omschrijving 2 Aantal foto`s
2009 FotoAlbum 1 Thuis Verjaardag 1 c:\
2009 FotoAlbum 1 Thuis buiten Buiten spelen 3 c:\
2009 FotoAlbum 2 Vakantie Spanje 2 c:\
2009 FotoAlbum 2 Vakantie Drenthe 3 c:\
2009 FotoAlbum 2 Vakantie Turky 12 c:\
2009 FotoAlbum 3 Vrienden Feest 40 6 c:\
2009 FotoAlbum 4 Opa en Oma Soep eten 24 c:\
2009 FotoAlbum 4 Opa en Oma Vakantie 10 c:\
2009 FotoAlbum 4 Opa en Oma Familiedag 39 c:\
2009 FotoAlbum 4 Opa en Oma Ziekenhuis Opa 12 c:\

Nu wil ik het aantal weten van het totaal fotoalbum fotoalbum 1
Nu maak hij onderscheid en kijk naar kolom C .
Is dit ook in VBA te maken ivm dat ik deze gegevens telkens via een VBA script uit mijn systeem haal.

Groet HWV

 

[RB_online]

Wederom aangepast.
Vba plaatst de formules en maakt de namen aan.


René

 

[HWV]

gelukt

Bedankt het is gelukt met deze code.
Ik zou het nog wel graag in een VBA script willen hebben.
Om dit gemakkelijk in het script mee te laten lopen voor het binnen halen van de gegevens van de foto`s.

Is hier een oplossing voor

Groet

HWV

 

[RB_online]

de code staat in de editor ook van de formules die in kolom H en I staan.

René

 

[HWV]

top

Bedankt, ik heb het gezien bedankt voor de medewerking.

HWV