WorksheetFunction.CountIf

[harolda1980]

Ik had deze code gevonden en bewerkt zodat hij in een rapport kon kijken of in kolom 8 het groep nummer staat wat hij moet hebben.
Daarnaast telt en rekent hij deze regel uit.

Alleen nu gaat hij mis in deze regel

For lCount = 1 To Rapportfile.Sheets(2).WorksheetFunction.CountIf(Columns(8), B_groep)

de methode of eigenschappen worden niet ondersteunt. Hoe los ik dit op?

Dim Bonuswaarden As Currency
Dim lCount As Long
Dim rFoundCell As Range
Dim Afname_T As Double
Dim HL_T As Double
Dim HL As Double

    Set rFoundCell = Rapportfile.Sheets(2).Range("H8")
        For lCount = 1 To Rapportfile.Sheets(2).WorksheetFunction.CountIf(Columns(8), B_groep)
            Set rFoundCell = Rapportfile.Sheets(2).Columns(8).Find(What:=B_groep, After:=rFoundCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
             With rFoundCell
                Afname_T = .Offset(0, -2).Value
                HL_T = .Offset(0, 1).Value
                HL = 0
                HL = HL + Afname_T * HL_T / 1000
             End With
        Next lCount
        With Rapportfile.Sheets(1)
            .Cells(Rapportfile_row, 1).Value = B_IDdb
            .Cells(Rapportfile_row, 2).Value = Omschrijving & " Groep " & B_groep
            .Cells(Rapportfile_row, 3).Value = HL
            .Cells(Rapportfile_row, 4).Value = CDbl(B_rk)
            .Cells(Rapportfile_row, 5).Value = CCur(Round(HL * B_rk, 2))
        End With
        Rapportfile_totaal = Rapportfile_totaal + CCur(Round(HL * B_rk, 2))
        Rapportfile_row = Rapportfile_row + 1

 

[leofact]

B_groep is een benoemde range neem ik aan?
Deze gebruik je als volgt

Application.WorksheetFunction.CountIf(Columns(4), Range(B_groep))

De foutmelding die je dan krijgt is echter, dat er een variabele verwacht wordt.
Mogelijk dat jij een andere melding krijgt, omdat de for next nu ook geen goede waarde krijgt.

Mvg Leo

 

[harolda1980]

maar zo werkt hij niet want nu weet hij niet welk bestand hij moet selecteren vandaar rapportfile.

b_groep = is de zoekwaarde

Hij moet in column 8 kijken naar de zoekwaarden als die klopt dat dient hij de onderliggende code uit te voeren

For lCount = 1 To Rapportfile.Sheets(2).WorksheetFunction.CountIf(Columns(8), B_groep)

 

[harolda1980]

na even rommelen en klooien ben ik er achter en ja ik snap nu wat je bedoeld!

En het is nu geworden:

Application.WorksheetFunction.CountIf(Rapportfile.Sheets(2).Range("H8:H1000"), B_groep)

Bedankt!

 

[leofact]

Mooi dat je eruit bent!
Graag gedaan natuurlijk

Mvg Leo