formule omzetten in een VBA code

[VenA]

Volgens mij zijn de standaard functionaliteiten van Excel makkelijker door eindgebruikers en de beheerder te begrijpen/leren dan dat je alles in VBA gaat/laat maken.

Waarschijnlijk moet je dit aanpassen

For j =[COLOR="#FF0000"] 4 [/COLOR]To UBound(ar)

Zet anders in de VB editor het venster lokale variabelen aan en wandel met <F8> door de code.

 

[Roma]

Mag ik nog een laatste vraag stellen.
De bedragen worden allemaal afgerond kan dat worden uitgezet zodat ik de originele bedragen te zien krijg

 

[VenA]

Probeer het zo eens

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
[COLOR="#FF0000"]Application.EnableEvents = False[/COLOR]
ar = Sheets("Controle").[a3].CurrentRegion
With ActiveSheet.[B5].CurrentRegion
    .AutoFilter 2
    .Offset(1).Clear
    With CreateObject("scripting.dictionary")
        For j = [COLOR="#FF0000"]4[/COLOR] To UBound(ar)
            If Not .exists(ar(j, 1)) Then .Add ar(j, 1), [COLOR="#FF0000"]CDbl[/COLOR](ar(j, 24) - ar(j, 25) + ar(j, 26)) Else .Item(ar(j, 1)) = .Item(ar(j, 1)) + [COLOR="#FF0000"]CDbl[/COLOR](ar(j, 24) - ar(j, 25) + ar(j, 26))
        Next j
        ar1 = Application.Transpose(Array(.keys, .items))
    End With
    .Offset(1).Resize(UBound(ar1), 2) = ar1
    .Offset(1, 1).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    .Sort .Offset(, 1), , , , , , , 1
    .AutoFilter 2, [F2]
End With
[COLOR="#FF0000"]Application.EnableEvents = True[/COLOR]
End Sub

 

[Roma]

Beste Ven A,
Hartelijk dank voor uw engelen geduld met mij.
Alles werkt uitstekend
Nogmaals dank :thumb::thumb: