Automatisch doorvoer verschillende cellen in zelfde kolom

[pawc]

Wie kan mij helpen.

Ik heb een bestand van 2500 regels.
en ik wil uit kolom A elk gevulde cel met xx-xx-xx
door laten lopen tot de volgende met xx-xx-xx
en die dan weer tot de volgende met xx-xx-xx
enz enz.
Volgens bijgevoegd voorbeeld start bestand
Bekijk bijlage doorloop.xlsx
A1 t/m A7
A8 t/m A21
A22 t/m A24

Wie o Wie kan mij hiermee helpen.

Alvast bedankt

Pascal

 

[sylvester-ponte]

hoi Pascal

zoiets

Sub doorvoeren()
    Dim C As Range
    For Each C In Range("A:A")
        If C = "" Then Exit Sub
        If Len(C) = 3 Then C = C(0, 1)
    Next C
End Sub

groet sylvester

 

[pawc]

Hoi Sylvester,

Dit gaat een stapje voorbij mijn Excel kennis.

waar en hoe moet ik dat invoeren?

Pascal

 

[sylvester-ponte]

hoi Pascal

ik heb de macro "doorvoeren" in een module geplaatst
en een knop toegevoegd om de macro uit te voeren
Bekijk bijlage doorloop (2).xls
groet sylvester

 

[pawc]

Hij werkt als een malle.
moet dat macro gebeuren nog maar heel erg onder de knie gaan krijgen heb ik al door.

bedankt voor je hulp.

deze mag gesloten worden!