Getal optellen uit variabele hoeveelheid werkbladen

[JW at Work]

Beste mensen,

Ik zit met een probleem waar ik echt niet meer uit kom.
Ik heb een werkblad: 'planning' en 10 werkbladen: 'documenten'.
De documenten heten respectievelijk: 'doc.1 -1-', 'doc.1 -2-', 'doc.1 -3-', etc.
De documenten dienen wekelijks ingevuld te worden ('-1-' stelt week 1 voor etc.). Wanneer het ingevulde document wordt opgeslagen wordt in cel A1 een "1" ingevuld.

Het kan ook voorkomen dat een document meermaals per week wordt gekopieerd. Maar dat hoeft natuurlijk niet. In ieder geval 1 document per week.
Het kopie krijgt dan de naam: 'doc.1 -1- (2)', doc.1 -1- (3)', doc.1 -1- (4)', etc. Ook bij deze documenten wordt een "1" in cel A1 ingevuld wanneer het document wordt opgeslagen.

Nou ben ik op zoek naar een macro (bijv. een activate event) in de worksheet 'planning'
die het aantal "1"tjes optelt uit cel A1 in het document + alle kopieën van dat document in die week als totaal weergeeft in
bijv. cel A1 voor alle 'doc.1 -1-' en voor alle 'doc.1 -2-' in cel A2 etc.

Hopelijk kan iemand mij hiermee helpen?

 

[snb]

het aantal kopieën van een bepaald werkblad in cel A1 tm A10 in werkblad planning:

Private Sub Worksheet_Activate()
  for each sh in sheets
    c0=c0 & sh.name & "|"
  next
  for j= 1 to 10
    cells(j,1)=ubound(filter(split(c0,"|"),"doc. 1 -" & j & "- ("))+1
  next
End Sub

 

[JW at Work]

het aantal kopieën van een bepaald werkblad in cel A1 tm A10 in werkblad planning:

Private Sub Worksheet_Activate()
  for each sh in sheets
    c0=c0 & sh.name & "|"
  next
  for j= 1 to 10
    cells(j,1)=ubound(filter(split(c0,"|"),"doc. 1 -" & j & "- ("))+1
  next
End Sub

Hoi snb,

Super bedankt! Werkt goed!
Kun je nog even aangeven wat ik in deze sub moet wijzigen wanneer de exacte range in de planning moet zijn I6 t/m V6?

Met vriendelijke groet,

JW @ Work

 

[snb]

I6 t/m V6 ????

Dat zijn toch 14 cellen ? ( en geen 10 )

 

[JW at Work]

I6 t/m V6 ????

Dat zijn toch 14 cellen ? ( en geen 10 )

Jah idd dat zijn 14 cellen... Ik zei dat ik die aantallen in cel A1, A2, A3 etc. wil hebben maar de locatie moet I6 t/m V6 zijn
(dat zijn maximaal 14 weken in een kwartaal vandaar).
De weeknummers staan dan in de cellen I5 t/m V5. Ik dacht dat dat niet uit maakte in eerste instantie.. srry

 

[snb]

Kijk maar eens wat het uitmaakt:

Private Sub Worksheet_Activate()
  for each sh in sheets
    c0=c0 & sh.name & "|"
  next
  for j= 1 to 14
    cells(6, j+8)=ubound(filter(split(c0,"|"),"doc. 1 -" & j & "- ("))+1
  next
End Sub

PS. Dit had je volgens mij ook zelf kunnen bedenken/uitproberen.

 

[JW at Work]

Kijk maar eens wat het uitmaakt:

Private Sub Worksheet_Activate()
  for each sh in sheets
    c0=c0 & sh.name & "|"
  next
  for j= 1 to 14
    cells(6, j+8)=ubound(filter(split(c0,"|"),"doc. 1 -" & j & "- ("))+1
  next
End Sub

PS. Dit had je volgens mij ook zelf kunnen bedenken/uitproberen.

Hey jah klopt! Net voor jou reactie had ik het voor elkaar! In ieder geval hartelijk dank voor je reactie!

Grtz, JW