Excel: meghatározott dátumok kiíratása? (bővebben lent)

Szia.

Szerintem ez egy tipukus makrós feladat.

A1-ben : első dátum

A2-ben : második dátum

Eredmény "C" oszlopban az 1.-dik sortól.

A makró:

Sub Pentek()

_ _ ' A1-ben az első dátum

_ _ Datum1 = Cells(1, 1).Value

_ _ ' A2-ben a második dátum

_ _ Datum2 = Cells(2, 1).Value

_ _ ' Töröljük a cél oszlopot - ez a "C" oszlop

_ _ Columns("C:C").Select

_ _ Selection.ClearContents

_ _ ' "C" oszlopban a sor számláló

_ _ Sor1 = 0

_ _ ' Eggyel csökkentjük a kezdődátumot, hogy azon is megnézhessük, hogy péntek-e

_ _ Datum1 = Datum1 - 1

_ _ ' Ciklus, amig az első dátum kissebb mint a második dátum

_ _ Do While Datum1 < Datum2

_ _ _ _ ' Növeljuk az első dátumot egy nappal

_ _ _ _ Datum1 = Datum1 + 1

_ _ _ _ ' Meghatározzuk, hogy a növelt dátum az a hét hányadik napját jelenti

_ _ _ _ Hetnapja = Weekday(Datum1, 2)

_ _ _ _ ' Ha a hét napja az az 5.-dik nap (péntek) akkor betesszük a "C" oszlopba a Sor1 által maghatározott cellába

_ _ _ _ If Hetnapja = 5 Then

_ _ _ _ _ _ ' Növeljük a sorok számát

_ _ _ _ _ _ Sor1 = Sor1 + 1

_ _ _ _ _ _ Cells(Sor1, 3).Value = Datum1

_ _ _ _ End If

_ _ Loop

End Sub

Sok sikert. Üdv.