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

• #44122 Mutt senior tag szricsi_0917 #44114

  Új Válasz 2020-05-26 12:25:29 #44122

  Ú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

  

  Mutt

  senior tag

  válasz szricsi_0917 #44114 üzenetére

  Szia,

  Ez nem fog menni, mert a VBA-s változat máshogy műkődik.

  Alternatív megoldások:

  1. Előbb képlettel kiszámoltatod az eredményt, majd értékként beilleszted
  With Range("U2:U" & lastrow)
.FormulaR1C1 = "=SUMPRODUCT(MAX((RC[-19]:R[998]C[-19]=RC[-19])*RC[-14]:R[998]C[-14]))"
.Value = .Value
End With

  2. Evaluate függvénybe teszed a képletet és az eredményt kiíratod a cellába
  For i = 2 To lastrow
keplet = "=SUMPRODUCT(MAX((B2:B1000=B" & i & ")*G2:G1000))"
Range("U" & i) = Evaluate(keplet)
Next i

  3. Ahogy nézem csak a maximumot keresed a G-oszlopban minden B-ben lévő értékhez. Ezt Kimutatással, AB.MAX vagy MAXHA függvényekkel is el lehet érni.

  üdv

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