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

• #44213 Mutt senior tag bitpork #44208

  Új Válasz 2020-06-08 12:12:02 #44213

  Ú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 bitpork #44208 üzenetére

  Szia,

  Próbáld ki ezt az UDF-et:

  Function RemainingDays(keydate As Date, Optional period As Long = 180, Optional maxdays As Long = 42) As Long
Dim wsRoutes As Worksheet
Dim c As Long
Dim ElapsedDays As Long
Dim LastRow As Long
Dim travelDays As Long

Set wsRoutes = ThisWorkbook.Sheets("Ark1")

With wsRoutes
LastRow = .Range("C" & Rows.Count).End(xlUp).Row

Dim splitDate
Dim travelStart As Date
Dim travelEnd As Date

'loop thorugh travel dates to find matching records
For c = LastRow To 2 Step -2

'separate merged travel start & end dates
splitDate = Split(.Cells(c, "C"), "-")

'check only arrays with 2 elements
'split generates 0-based arrays
If UBound(splitDate) = 1 Then

'try to convert strings to date
travelStart = DateSerial(Right(Trim(splitDate(0)), 4), Mid(Trim(splitDate(0)), 4, 2), Left(Trim(splitDate(0)), 2))
travelEnd = DateSerial(Right(Trim(splitDate(1)), 4), Mid(Trim(splitDate(1)), 4, 2), Left(Trim(splitDate(1)), 2))

'find the row which has travel start earlier then given keydate
If travelStart <= keydate Then
'Debug.Print "KeyStart: " & keydate - period & " KeyEnd: " & keydate

If travelEnd >= keydate - period Then
travelDays = travelDays + .Cells(c, "L")
'Debug.Print vbTab & "Row: " & c & " TravelStart: " & travelStart & " TravelEnd: " & travelEnd & " Days: " & .Cells(c, "L")
End If
End If

End If
Next c

RemainingDays = maxdays - travelDays

End With

End Function

  Használata pedig annyi, hogy megadsz neki egy dátumot és ő az Ark1 füzeten alulról felfelé haladva megkeresi, hogy az utazások alapján melyik sorok L-oszlopbában lévő számokat kell összegezni.

  

  Ha nem egy mezőben lennének szövegként az utazási dátumok felsorolva, hanem különálló rekordonként akkor egy SZUMHATÖBB is elég lehet. Feltételezve, hogy a problémát jól értettem.

  

  üdv

• #38419 lappy őstag bitpork #38418

  Új Válasz 2018-06-26 17:08:21 #38419

  Ú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

  

  lappy

  őstag

  válasz bitpork #38418 üzenetére

  Az utolsó tétel 2x szerepel ezért van eltérés! 3582339

• #33902 Fferi50 Topikgazda bitpork #33897

  Új Válasz 2017-01-26 07:40:58 #33902

  Ú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 bitpork #33897 üzenetére

  Szia!

  Úgy látom, ez a verzió nem eszi meg a tartományok konkatenálását
  Biztos, hogy tömbképletként (Shift+Ctrl + Enter) vitted be? (Kapcsos zárójelbe kell a képletnek kerülnie.)

  Akkor az az út járható, hogy csinálsz egy segédoszlopot mindkét táblában, amelybe az =A2&E2 képletet húzod végig az oszlopon.(Pl. az X oszlopba)

  Ezután használhatod a
  =H2-INDEX('2compareW'!H$2:H$333,MATCH('Men+Women'!X2,'2compareW'!X$2:X$333,0))

  képletet.

  Üdv.

• #33900 lappy őstag bitpork #33899

  Új Válasz 2017-01-26 07:04:00 #33900

  Ú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

  

  lappy

  őstag

  válasz bitpork #33899 üzenetére

  A vesszo csere amire figyelni kell illetve hogy tombkeplet igy a vegen ctrl shift enter-t kell nyomni anelkul nem jo

• #33898 poffsoft veterán bitpork #33897

  Új Válasz 2017-01-26 00:06:08 #33898

  Ú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

  

  poffsoft

  veterán

  válasz bitpork #33897 üzenetére

  még mindig nem cserélted le a paraméterek közt a vesszőket pontosvesszőre....

• #33894 Fferi50 Topikgazda bitpork #33889

  Új Válasz 2017-01-25 23:22:43 #33894

  Ú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 bitpork #33889 üzenetére

  Szia!

  Az angol excelben a pontosvessző elválasztókat vesszőre kell cserélni Ezt sajnos beillesztés esetén nem tudja az excel ezek szerint.

  Jobbulást!

• #33890 lappy őstag bitpork #33888

  Új Válasz 2017-01-25 21:55:26 #33890

  Ú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

  

  lappy

  őstag

  válasz bitpork #33888 üzenetére

  Igen jobbulást!

• #33887 Fferi50 Topikgazda bitpork #33882

  Új Válasz 2017-01-25 21:27:14 #33887

  Ú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 bitpork #33882 üzenetére

  Szia!

  Ez is működik tömbképlet (Ctrl+Shift + Enter) formájában.
  =H2-INDEX('2compareW'!H$2:H$333;HOL.VAN('Men+Women'!A2&E2;'2compareW'!A$2:A$333&E$2:E$333;0))
  I2 cellába beírod, majd végighúzod az I oszlopon.

  Üdv.

• #33886 lappy őstag bitpork #33882

  Új Válasz 2017-01-25 21:22:46 #33886

  Ú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

  

  lappy

  őstag

  válasz bitpork #33882 üzenetére

  {=H2-FKERES(A2&E2,VÁLASZT({1,2},'2compareW'!A2:A333&'2compareW'!E2:E333,'2compareW'!H2:H333),2,0}
  ez kiiszámolja a két munkalap téteteli közötti különbséget többszörös feltétel alapján
  a felételet az A oszlop és az E oszlop úgy láttam ezek már egyedi azonosítók

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