Opgelost formule aanpassen

[don42]

Beste,
met dank deze formule gekregen: =SOM(--(VERT.STAPELEN('WK 1:WK 52'!$B$5:$T$50)=B1))
dit werkt goed voor mij
maar is het ook mogelijk om te bijvoorbeeld te staten vanaf tabblad 5 tot laatste
of kan zoiets alleen met vba
en zoja, hoe ziet zo'n code er dan uit, kan iemand mij er verder mee helpen

don

 

[JEC.]

Begin met blad 5 in de formule en dan tot de laatste.

Dus dit deel aanpassen

WK 1:WK 52

Naar

blad 5 :laatse blad

 

[don42]

Natuurlijk zou ik WK 5 : Wk 52 kunnen invoeren
maar stel er staat in een van de sheets een andere naam (bijvoorbeeld : garantie verl.) ook dan werkt het niet meer
en zou vanaf 5 handig kunnen zijn
met vba en sheets.count wordt het allemaal heel traag

Private Sub CommandButton2_Click()
    
    
    Dim ws As Worksheet
    Dim cel As Range
    Dim zoekWaarde As Variant
    Dim resultaat As Integer
    Dim Lr As Integer
    Lr = Cells(Rows.Count, 1).End(xlUp).Row
    Range("e1:e" & Lr).ClearContents
    Range("p1:q" & Lr).ClearContents


Application.ScreenUpdating = False

    ' Loop van rij 1 tot 101 in kolom B
      For i = 1 To Lr
        
        ' Definieer de zoekwaarde (bijvoorbeeld waarde in cel B1)
          zoekWaarde = Cells(i, 2).Value

        ' Initialiseer het resultaat
          resultaat = 0

                

          For Each ws In Worksheets
          If ws.Index >= 5 Then
          
          For Each cel In ws.Range("B5:T50")
          If cel.Value = zoekWaarde Then
          resultaat = resultaat + 1
                
          End If
          Next cel
          End If
          Next ws

        ' Zet het resultaat in kolom E
         Cells(i, 5).Value = resultaat
         Next i
        
  
End Sub

werkt wel maar is heel traag

 

[JEC.]

maar stel er staat in een van de sheets een andere naam (bijvoorbeeld : garantie verl.) ook dan werkt het niet meer

Het blijft gewoon werken. Je geeft in je sheet bereik aan dat je start bij WK 1 en eindigt bij WK 52. Alles sheets welke daar tussen vallen, worden meegenomen.

Als je echt specifieke sheets wilt ophalen kan dat ook. Zie dit draadje.

Specifieke data ophalen van specifieke sheets (O365)

Handige tip om data van verschillende tabbladen op te halen. Uiteraard heb je het liefst alles op één tabblad om vanuit daar te filteren, maar de vraag om data juist terug te brengen naar één tabblad, komt vaak voor. Ik zal gelijk beginnen met het mooiste deel; GET.WORKBOOK(1) --> In het...

www.helpmij.nl

 

[jverkerk]

Hoi @JEC.
Ik sla hem op als .xslm,
eigenschappen blokkering er af, maar hij blijft geblokkeerd.

 

[JEC.]

Dat is apart. Je doelt op dat andere draadje toch?

 

[jverkerk]

Ja dat klopt. Te weinig argumenten ingevoerd.

=WEGLATEN(REDUCE("";WEGLATEN("all_sheets";1);LAMBDA("a";"b";VERT.STAPELEN("a";NAAR.KOLOM(INDIRECT("'"&b&"'!A1:A100");1))));1)

 

[JEC.]

Ik denk dat je excel 4.0 XML macros aan moet vinken onder macro instellingen.

 

[jverkerk]

Je had gelijk.