gezocht: Kluts (waarde optellen over meerdere tabbladen)

[sylvester-ponte]

Misschien, maar had ik al getest Sylvester.
Als sq(i,1) leeg is geeft het gewoon een 0 (nul) als resultaat in kolom 42.
Daar blijft de loop niet op hangen bij mij.

hij blijft niet hangen maar hij moet wel de hele kolom door met findnext

 

[HSV]

In het voorbeeldbestand staan de gezochte teksten netjes onder elkaar.

Edit: Ben ik met je eens.
De 'findnext(c)' blijft hierdoor bij mij niet hangen.

 

[Mcstupid]

oh, en als er een 0 in kolom 8 staat? deze kolom is een zoekresultaat van iets.

{=ALS.FOUT(INDEX(Data!$G$2:$G$278;VERGELIJKEN($B4&$C4;Data!$A$2:$A$278&Data!$B$2:$B278;0));"")}

maar als er in de voorgaande kolommen niks geselecteerd is, geeft ie standaard 0

Omdat ik een voorbeeldbestand moet maken, heb ik alle cellen geselecteerd en op de Delete knop zitten rammen om vervolgens data erin te zetten zodat jullie ermee kunnen werken...

Of maakt dat ook niks uit??

 

[sylvester-ponte]

sq = .Range("AN1:AN" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    For i = 5 To UBound(sq)

dit berperkt de i heel behoorlijk.

 

[HSV]

Ik heb daar 40 staan omdat kolom 1 leeg is.

 

[VenA]

Andere methode alles in array's stoppen en deze met elkaar vergelijken.

Sub VenA()
With Sheets("Grafiek")
    lr = .Cells(.Rows.Count, 40).End(xlUp).Row
    .[AP5].Resize(lr - 4).ClearContents
    ar = .[AN5].Resize(lr - 4, 3)
    For Each Sh In Sheets
        If UCase(Left(Sh.Name, 4)) = "WEEK" Then
            ar1 = Sh.[H4:S80]
            For j = 1 To UBound(ar)
                For jj = 1 To UBound(ar1)
                    If ar(j, 1) = ar1(jj, 1) Then ar(j, 3) = ar(j, 3) + ar1(jj, 12)
                Next jj
            Next j
         End If
    Next Sh
    .[AN5].Resize(lr - 4, 3) = ar
End With
End Sub

Edit stukje van de discussie gemist en alleen de uitkomst vergeleken met de code van sylvester-ponte:d

 

[sylvester-ponte]

Harry , dat moet 40 zijn (ik had die regels per ongeluk uit post 1 gekopieerd)

Roelof, zou je de code uit post #20 willen testen?

 

[Mcstupid]

hoi sylvester!

ik heb de code getest.
Je code geeft geen resultaten maar het vastlopen duurt minder lang.

 

[sylvester-ponte]

VenA, heel mooi :thumb:

met

            ar1 = Sh.Range("H4:S" & Sh.Cells(Rows.Count, 8).End(xlUp).Row)

ipv

          ar1 = Sh.[H4:S80]

wordt het wel iets flexibeler

 

[sylvester-ponte]

Roelof, is je voorbeeld wel representatief?

en heb je de macro wel en een module gezet in niet in een BladCode?

en doet die van VenA het?

in het voorbeeld bestand werken ze allemaal prima

 

[Mcstupid]

Het voorbeeldje is representatief.
Werkt ook perfect met de code van HSV.
Alleen in het orginele bestand duurt het heeeeeel eeeeerg lang.

Bestandje heeft de code van HSV en VenA
Bekijk bijlage Voor Forum.zip

 

[VenA]

@sylvester-ponte

en doet die van VenA het?

Niet op de laatste 21 regels iig:d Hoe ik bij S80 ipv S101 kwam, geen idee. Volgens mij is het dynamisch maken van het bereik niet nodig gezien de opmaak en het door kopiëren naar een nieuwe week. Maar is inderdaad een goede suggestie.

@Mcstupid
Wat heb je dan allemaal in jouw orginele bestand staan. Ik heb even 50 kopieën van Week1 gemaakt en zowel de code van HSV als die van mij geven binnen een fractie van een seconde het resultaat. Misschien even wat geheugen bij prikken om een sneller systeem te krijgen

 

[Mcstupid]

ik heb buiten het aantal weken, 4 tabbladen.
De sjabloon voor het weken, grafiek, data en de startpagina.

maar zoals ik al zei, het voorbeeldje is net 100 kb. Het orgineel is dik 2mb. Heeft dat er iets mee te maken?
Ik heb namelijk gebruik gemaakt van bladcodes ipv modules, die standaard op de sjabloon staan.

 

[sylvester-ponte]

zet deze function in je eigen bestand in een module ( niet in een blad module)

gebruik: stel hem in voor Week 1 en hij doorzoekt allen weken. met de zelfde gebieden als in Week 1

 

[Mcstupid]

ik ga het proberen.

Ik heb ondertussen een kopie gemaakt van het orgineel, alle weken verwijderd m.u.v. week 1 en nog blijft ie hangen....

 

[sylvester-ponte]

hoe bedoel je ? is hij te groot om te plaatsen? maak er dan een binaire map van
of blijft de macro hangen ? stuur dan het bestandje

 

[Mcstupid]

sylvester, dit werkt prima!

 

[HSV]

Mooi gedaan Sylvester,

Toch vreemd dat de code nu wel door alle tabs loopt.
Het is in ieder geval opgelost.
Misschien kan @Mcstupid de vraag nog als zodanig markeren.
Alvast bedankt.

 

[Mcstupid]

Ik snap dr ook niks van hahahah.

Anywho, problem solved