• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Samenvoegen rijen indien aan meerder voorwaarden is voldaan d.m.v. macro

Status
Niet open voor verdere reacties.
C

carlocarlo

Gebruiker
Lid geworden
14 apr 2009
Berichten
122
Beste experts,

Wekelijks krijg ik een uitdraai van een bepaald bestand. In het bestand staan per medewerker de activiteiten en het aantal minuten dat men aan die activiteit heeft gewerkt.
Helaas is het overzicht niet zo opgebouwd dat ik per dag de optelsom van het aantal minuten per activiteit per medewerker krijg.
Zo kan het gebeuren dat een medewerker 10x op een dag activiteit A doet waardoor ik 10 regels in het bestand tegen kom.

Is ben op zoek naar een macro die het volgende doet:
-indien de waarde in kolom A, D, E en H gelijk zijn
-er een samengevoegde regel komt waarin de waarde uit kom C en G is opgeteld en
-er een nieuw samengevoegd overzicht op blad 2 van maakt
Het laatste punt is meer een wens dan echt noodzakelijk.

Het bestand heb ik toegevoegd.

Vast bedankt voor de moeite.
 

Bijlagen

  • samenvoegen waarde uit regels.xlsx
    25,5 KB · Weergaven: 54
De datum notatie in kolom A bevat ook een tijd. De kans dat je daarmee meerdere rijen zult vinden waarin de waarde in kolom A, D,E en H overeenkomen is daarmee zo goed als nul. Ik begrijp dat je dat zo aangeleverd krijgt, maar die tijdsnotatie moet er uit. Ik zou zelf Advanced Filter gebruiken. Ga eens kijken
 
Mij lijkt de suggestie van @SjonR beter. Aangezien het aantal calls alleen per week wordt weergegeven lijkt mij een overzicht per week beter. Per dag kan natuurlijk ook.

@JanBG, Als je een bestand eerst handmatig gaat manipuleren en er vervolgens een macro op loslaat dan lijkt mij dat geen structurele oplossing.:(
 

Bijlagen

  • Samenvoegen waarde-1.xlsm
    45,4 KB · Weergaven: 41
In het bestand van de openingspost.
Code: 
Sub hsv()
Dim sv, i As Long, a, b(7)
sv = Sheets("blad1").Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
   For i = 2 To UBound(sv)
     a = .Item(CLng(Fix(sv(i, 1))) & sv(i, 4) & sv(i, 5) & sv(i, 8))
     If IsEmpty(a) Then a = b
        a(0) = CLng(Fix(sv(i, 1)))
        a(1) = sv(i, 2)
        a(2) = a(2) + sv(i, 3)
        a(3) = sv(i, 4)
        a(4) = sv(i, 5)
        a(5) = sv(i, 6)
        a(6) = a(6) + sv(i, 7)
        a(7) = sv(i, 8)
     .Item(CLng(Fix(sv(i, 1))) & sv(i, 4) & sv(i, 5) & sv(i, 8)) = a
    Next i
  Sheets("blad2").Cells(1).Resize(.Count, 8) = Application.Index(.items, 0, 0)
  Sheets("blad2").Columns(1).NumberFormat = "dd-mm-yyyy"
 End With
End Sub
 
Iedereen hartelijk bedankt voor het meedenken.
De suggestie om het op weekbasis te houden neem in denk ik over. Daarna ga ik nog eens kijken hoe ver ik met de draaitabellen kom.
 
Waarde samenvoegen aangepast bestand

Beste allen,

Ik ben er even niet aan toe gekomen om de tips op te pakken. Vandaag nog eens gekeken maar kom er toch niet uit.
Inmiddels is het aangeleverde bestand ook iets anders geworden. Ik heb het bestand toegevoegd.

Wat is graag zou willen zien is:
- als de in kolom A, C, D gelijk aan elkaar is
- de waarde wil comprimeren tot 1 nieuwe regel
- waarbij de waarde in kolom B en kolom E worden opgeteld

Wat is graag zou willen zien is dat er een nieuw blad ontstaat met alle samengevoegde regels.
 

Bijlagen

  • samenvoegen waarde.xlsx
    55,8 KB · Weergaven: 40
Dus als ik je goed begrijp moet het resultaat voor activiteit 1 in week 1 van medewerker 1

3,513611111

zijn
 
Beste JanBG,

Bedankt voor je reactie.
Ik bedoelde eigenlijk dat de kolommen B en E een eigen telling laten zien (zie onderstaand voorbeeld)

activiteit uren week naam aantal calls
activiteit 1 0,513611111 1 MEDEWERKER 1 3
 
Waarom is er niets van de aangedragen suggesties in het bestand te vinden? Geen draaitabel, geen code totaal niets. Het is wel de bedoeling dat je zelf ook wat doet.
 

Bijlagen

  • samenvoegen waarde.xlsb
    45,9 KB · Weergaven: 36
Bedankt voor de oplossingen

Beste VeNA, ik zag gewoon de oplossing niet. Nu ik jouw bestand zie was het toch minder complex. Dank je wel.
Beste JanBG, jouw opzet ziet er ook goed uit en is erg goed bruikbaar. Merci
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan