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

• #37893 Delila_1 veterán GreenIT #37884

  Új Válasz 2018-04-21 16:10:11 #37893

  Ú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

  

  Delila_1

  veterán

  válasz GreenIT #37884 üzenetére

  A Munka1 lap A1 cellájától kezdve bevittem az idei dátumokat, ez A365-ig tart.
  A Munka2 lap A oszlopába az idei ünnepnapok dátumát írtam be, a C-be pedig a "ledolgozós" szombatokét.

  A lenti makró kitörli a Munka1 A oszlopából a megfelelő sorokat.

  Sub Munkanapok()
Dim sor As Integer, WF As WorksheetFunction

Set WF = Application.WorksheetFunction
Sheets("Munka1").Select

For sor = 365 To 1 Step -1
If WF.CountIf(Sheets("Munka2").Columns(3), Cells(sor, 1)) > 0 Then GoTo Tovabb 'szombati munkanap
If WF.CountIf(Sheets("Munka2").Columns(1), Cells(sor, 1)) > 0 Then Rows(sor).Delete Shift:=xlUp 'ünnepnap
If WF.Weekday(Cells(sor, 1), 2) > 5 Then Rows(sor).Delete Shift:=xlUp 'hétvége
Tovabb:
Next
End Sub

  Amelyik listában nem akarod a hétvégéket törölni, annál tedd megjegyzésbe a hétvégés makrós sort úgy, hogy a sor elejére aposztrófot teszel.

• #37888 0P1 aktív tag GreenIT #37884

  Új Válasz 2018-04-21 14:56:14 #37888

  Ú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

  

  0P1

  aktív tag

  válasz GreenIT #37884 üzenetére

  Szia,

  Gondolom , kimutatáshoz / diagramhoz kell az idősor. A sima Pivotban nem lehet, de PowerPivotban igen. (2010-hez külön bővítményként tölthető le) . Csak létrehozol egy dátum táblát (Dátumtáblázat/Új)

  http://jegyzetek.biprojekt.hu/Datum-tabla-az-Excel-2016-ban

  Majd kiszűröd hét napja oszlopban a Szombatokat és Vasárnapokat (És meg egyéb egyéni testreszabásokat is csinálhatsz). Aztán beállítod az eredeti tábládhoz a kapcsolatot a most létrehozott egyéni időtábládhoz, és onnantól kezdve ugyanolyan módon használhatod ezt egyéni idősorként, mint hagyományos pivotban.

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