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

• #25784 Fferi50 Topikgazda TrollBalint #25778

  Új Válasz 2015-03-06 12:42:04 #25784

  Ú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 TrollBalint #25778 üzenetére

  Szia!

  A javított függvényemben is sikerült egy hibát benne hagyni, ezért nem úgy számol, ahogyan kellene.
  A napjai = napjai+1 sort oda kell átirni, ahol a munkanap=napok sorok vannak, az után a sorok után, mivel csak akkor szabad növelni, ha munkanapot talált.
  Tehát az a rész így nézne ki:
  Do While napjai <= hanynap
  napok = mettol + napjai
  Set napi = unnepek.Find(what:=napok, LookIn:=xlValues, lookat:=xlWhole)
  If Not napi Is Nothing Then
  If Application.Weekday(napok, vbMonday) = 6 Then
  munkanap = napok
  napjai=napjai+1
  End If
  Else
  If Application.Weekday(napok, vbMonday) < 6 Then
  munkanap = napok
  napjai=napjai+1
  End If
  End If
  Loop

  Természetesen az oszlopot is elnéztem, valóban nem a H, hanem az I oszlop adatait kell átírni a G alá. Mégpedig azért, mert a függvény logikája a következő:
  Az ünnepek között felsorolt hétköznap (H-P) azt jelenti, hogy az a nap nem munkanap.
  Az ünnepek között felsorolt szombat viszont azt jelenti, hogy az a szombat munkanap.

  Elnézést kérek a hibák miatt.

  Üdv.

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