Ú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

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