dubbele data optellen

Status
Niet open voor verdere reacties.
N

NPersijn

Gebruiker
Lid geworden
27 jul 2018
Berichten
56
Hoi,

Ik zit met het volgende probleem
In het bijgevoegde file staan aanvragen voor een uitzendbureau.
Op bepaalde afdelingen worden meerdere personen op het zelfde tijd aangevraagd.
Deze staan nu allen apart.
Graag zou ik zien dat deze aanvragen worden opgeteld in kolom c zodat het lijstje overzichtelijk wordt voor de verwerker van deze aanvragen.
Hoe kan ik dat doen?
Vast bedankt.


Bekijk bijlage Export Rooster.xlsx
 
Laatst bewerkt:
M.b.v. subtotalen (wel extra kolom voorzien) zoals het voorbeeld in bijlage.

Anders vrees ik dat je met VBA iets zal moeten programmeren...
 

Bijlagen

  • Export Rooster.xlsx
    24,7 KB · Weergaven: 31
Hoi TSAR,

Bedankt voor je reactie en je oplossing. Het bestand wordt door de uitzendorganisatie geladen in hun planningssysteem.
Hierdoor is deze oplossing niet bruikbaar. Hopelijk kan je of iemand anders me helpen om id in vba te bewerkstelligen.
 
Probeer het zo eens. De uitkomst komt op 'Blad2'
Code: 
Sub VenA()
  ar = Sheets("Export TT").Cells(1).CurrentRegion
  Set d = CreateObject("Scripting.dictionary")
  For j = 1 To UBound(ar)
    c00 = ar(j, 5) & ar(j, 6) & ar(j, 7) & ar(j, 8)
    If d.Exists(c00) Then
      ar1 = d.Item(c00)
      ar1(3) = ar1(3) + 1
      d.Item(c00) = ar1
     Else
      d.Item(c00) = Application.Index(ar, j, 0)
    End If
  Next j
  ar2 = Application.Index(d.items, 0, 0)
  For j = 2 To UBound(ar2)
    ar2(j, 7) = CDate(ar2(j, 7))
    ar2(j, 9) = CDate(ar2(j, 9))
  Next j
  Sheets("Blad2").Cells(1).Resize(d.Count, UBound(ar, 2)) = ar2
End Sub
 
Moet volgens mij eenvoudiger kunnen. Maar wat werkt dat werkt.:d
 
Het werkt heel goed zelfs. :thumb:

De datums gaan volgens mij zo wel goed; de tijden zou je juist kunnen aanpassen.
 
@HSV, dank je voor de duim. Ik heb net een nieuw draadje gemaakt met de vraag of het eenvoudiger kan.:d De tijden aanpassen is een eenmalige aanpassing in de cel eigenschappen van 'Blad2' en lijkt mij niet nodig om dit ook in de code op te nemen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan