Hirdetés

Új hozzászólás Aktív témák

  • Mutt

    senior tag

    válasz szricsi_0917 #44126 üzenetére

    Szia,

    A tömböknek a szorzatösszegben azonos méretúnek kell lennie, a képleted szerint is azonos magasságúak (2-es sortól a lastrow2-ig).

    Próbáld ki így a képlet létrehozását:

    Dim rng As Range
    Dim keplet as String

    For i = 2 To lastrow
    For a = 10 To 21
    Set rng = szerviz.Cells(2, a).Resize(lastrow2 - 1)

    keplet = "=SUMPRODUCT(MAX((Szerviznyilvántartó!$B$2:$B$" & lastrow2 & "=$B" & i & ")*(Szerviznyilvántartó!" & rng.Address & "=""Motorolajcsere"")*Szerviznyilvántartó!$G$2:$G$" & lastrow2 & "))"

    auto.Range("V" & i) = Evaluate(keplet)

    A kódrészlet alapján ami furcsa, hogy 11 oszlop 11 eredményét kiszámolod és mindig a V oszlopba kiírod, így valójában mindig csak az utolsó oszlop eredménye marad meg.

    Ha gond van, akkor érdemes feldobnod egy minta fájlt vhova a pontos feladattal és itt többen is tudnak jobb kódot majd javasolni.

    üdv

Új hozzászólás Aktív témák