Temat: Makro z datami prośba o pomoc

Witam wie ktoś może jak przekształcić

Range("E2").End(xlDown).Offset(-15, 0).Select
tak aby odnosiło się do dat.

W kolumnie E mam daty w takim formie: 2011-05-23 czyli r-m-d
chciałbym aby makro tak jak do tej pory przechodziło do ostatniej wypełnionej komórki w kolumnie E a nastepnie ustawiło się w kolumnie E
15 dat wstecz powyżej ostatniej komórki wypełnionej w tej kolumnie

Problemem jest to, że w tej kolumnie wygląda to tak jak poniżej czyli czasami są 3 takie same daty nad sobą a czasami tylko jedna. Zwykłe przejście o 15 komórek do góry nic nie daje. Daty są ułożone oczywiście chronologicznie

23 maj 2011
23 maj 2011
24 maj 2011
24 maj 2011
24 maj 2011
24 maj 2011 -------------- tutaj powinno zatrzymać się makro tym razem
9 czerwiec 2011
9 czerwiec 2011
9 czerwiec 2011
10 czerwiec 2011
11 czerwiec 2011
11 czerwiec 2011
11 czerwiec 2011
11 czerwiec 2011
11 czerwiec 2011
16 czerwiec 2011
17 czerwiec 2011
18 czerwiec 2011
19 czerwiec 2011
20 czerwiec 2011
21 czerwiec 2011
22 czerwiec 2011
23 czerwiec 2011
24 czerwiec 2011
25 czerwiec 2011

Temat: Makro z datami prośba o pomoc

Hej

Dim rng As Range, n As Integer, v As Variant

Set rng = Range("E2").End(xlDown)

n = 0

v = rng.Value

Do While n < 15

  Set rng = rng.Offset(-1, 0)

  If rng.Value <> v Then

    n = n + 1

    v = rng.Value

  End If

Loop

rng.Select

Ryszard G. edytował(a) ten post dnia 30.06.11 o godzinie 00:44