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

• #41824 Traxx őstag Fferi50 #41823

  Új Válasz 2019-09-27 22:56:06 #41824

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Traxx

  őstag

  válasz Fferi50 #41823 üzenetére

  Igazad van, a kód valóban lemaradt:
   .Cells(usor, "D") = M1 * 1
        .Cells(usor, "E") = M2
        .Cells(usor, "F") = M3
        .Cells(usor, "G") = M4 * 1
        .Cells(usor, "H") = M12 * 1
        If M13 > "" Then .Cells(usor, "I") = M13 * 1 Else .Cells(usor, "I") = 0
        If M5 > "" Then .Cells(usor, "G") = .Cells(usor, "G") + M5 * 1
        .Cells(usor, "P") = M15 * 1
        .Cells(usor, "Q") = M24
        .Cells(usor, "R") = M25
        .Cells(usor, "J") = M13 / M12 * 100
        .Cells(usor, "K") = "=SUMIF($F$2:$F$15000,F" & usor & ",$I$2:$I$15000)*100/SUMIF($F$2:$F$15000,F" & usor & ",$H$2:$H$15000)"
        .Cells(usor, "L") = "=SUMPRODUCT((R2C6:R15000C6=RC[-6])*(R2C3:R15000C3=RC[-9])*(R2C10:R15000C10))/COUNTIF(R2C13:R15000C13,RC[-9] & "" "" &  RC[-6])"
        .Cells(usor, "M") = .Cells(usor, "C") & " " & Cells(usor, "F")
        .Cells(usor, "N") = "=SUMIF($D$2:$D$15000,$D" & usor & ",$H$2:$H$15000)"
        .Cells(usor, "O") = "=SUMIF($D$2:$D$15000,$D" & usor & ",$I$2:$I$15000)"
        .Range("J" & usor & ":O" & usor).Copy
        .Range("J" & usor).PasteSpecial xlPasteValues
        Application.CutCopyMode = False

  Ez a rész felel a mezők kitöltéséért, Az M változók a userform értékcellái. A zéróosztós oszlop a táblázatban az L.

  Ez egy selejt %-ot számoló rész, az L oszlopban az jelenik meg, hogy a termék össz selejt %-ához képest az adott ember hogyan teljesít

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