Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #44126 szricsi_0917 tag Mutt #44122
    Új Válasz #44126
    Ú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

    szricsi_0917

    tag

    válasz Mutt #44122 üzenetére

    Szia

    Sub kmfrissites_auto()
    Dim auto As Worksheet
    Dim utnyilvan As Worksheet
    Dim szerviz As Worksheet
    Dim lastrow
    Dim lastrow1
    Dim lastrow2
    Dim i As Long
    Dim a As Long
    Dim vMax As Double
    Dim xMax As Double
    'On Error GoTo kmfrissites_auto_Error
    Set auto = Sheets("Autó")
    Set utnyilvan = Sheets("Útnyilvántartó")
    Set szerviz = Sheets("Szerviznyilvántartó")
    lastrow = auto.Cells(Rows.Count, 1).End(xlUp).Row
    lastrow1 = utnyilvan.Cells(Rows.Count, 1).End(xlUp).Row
    lastrow2 = szerviz.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lastrow
    For a = 10 To 21  
      auto.Range("V" & i) = Evaluate("=SumProduct(Max((Szerviznyilvántartó!B2:B" & lastrow2 & " = Autó!B" & i & ") * (INDIRECT(""'Szerviznyilvántartó'!"" & address(2," & a & ",4) & "":"" & INDIRECT(address(" & lastrow2 & "," & a & ",4)) = ""Motorolajcsere"") * Szerviznyilvántartó!G2:G" & lastrow2 & "))")

    Átalakítottam az általad javasolt megoldásra viszont újabb probléma merült fel.
    Több feltételt szeretnék hozzárakni. A probléma, hogy a 2. feltétel más méretű tömb mint a többi így ugye hibára fut a képlet.
    For ciklussal oldottam meg, hogy a 2. feltételnél oszloponként megy újra végig és mindig az utolsó legnagyobb értéket hagyja meg így a végén megkapom majd a maximum értéket.
    A probléma, hogy az indirect megoldással mindig érték hibára fut. Mi lehet a probléma?

  • #44123 szricsi_0917 tag Mutt #44122
    Új Válasz #44123
    Ú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

    szricsi_0917

    tag

    válasz Mutt #44122 üzenetére

    Szia

    Köszönöm a segítséget, nem gondoltam volna, hogy a VBA nem tudja kezelni a MAX képlettel.
    Sajnos én olyan verziót használok amiben nincs MAXHA függvény pedig már rég kész lenne. :)
    AB.MAX-ot vagy kimutatást azért nem akartam, mert ez egy userformhoz tartozik és ezután még lesz pár számítás így az csak plusz lépés lett volna és nem tudom mennyire lenne lassabb mikor már több ezer sor van, a másik pedig, hogy így elegánsabb. :)

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