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

• #50527 Mutt senior tag Pá #50522

  Új Válasz 2023-02-17 16:01:01 #50527

  Ú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 Pá #50522 üzenetére

  Szia,

  Ha jól értelmezem a feladatot, akkor ez az UDF tud segíten a 2-es problémán.

  Function Munkafazis(adat As Range, nev As String, munka As String) As Long
Dim fSplit
Dim r As Long, c As Long
Dim TimeStamp As Boolean
Dim m As Long

Munkafazis = 0
m = 0

For r = 1 To adat.Rows.Count
fSplit = Split(adat.Rows(r), " - ")
TimeStamp = False

If UBound(fSplit) > 1 Then
'menjünk végig a listán
For c = 0 To UBound(fSplit)
'ha a név egyezik akkor nézzük meg a munkafázist és a timestampet
If fSplit(c) = nev Then
'ha a munkafázis egyezik és már volt timestamp akkor számolhatjuk az elvégzett munkát
If TimeStamp Then
m = m + 1
Exit For
End If

If fSplit(c - 1) = munka Then
If Not TimeStamp Then TimeStamp = True
End If

End If
Next c
End If
Next r

Munkafazis = m

End Function

  üdv

• #50523 Fferi50 Topikgazda Pá #50522

  Új Válasz 2023-02-17 00:05:00 #50523

  Ú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

  

  Fferi50

  Topikgazda

  válasz Pá #50522 üzenetére

  Szia!
  Próbáld meg ezt a TÖMBKÉPLETET:
  =SZUM(HAHIBA((SZÖVEG.KERES("név";$A$1:$A$6)>0)*(SZÖVEG.KERES("ellenőrzés";$A$1:$A$6)>0);0))
  A tömbképletet Shift+Ctrl+Enter billentyű kombóval kell lezárni, az Excel kapcsos zárójelbe teszi.
  A tartományt igazítsd a listádhoz. A "név" helyére és az "ellenőrzés" helyére természetesen írhatsz olyan cella címet, amelyik a szükséges értéket tartalmazza.
  Üdv.

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