Ú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.

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