Excel automatisch doorvoeren

[Sigorei]

Gachte heer/mevrouw,

In een database met 40000 regels heb ik het volgende doorvoer probleem wat ik tot nu toe niet in excel heb kunnen oplossen. Onderstaand een voorbeeld:
Het is de bedoeling dat het nummer in cel A automatisch wordt doorgevoerd tot het volgende nummer en daarna de volgende en daarna de volgende enz...

Dit heb ik, .......... is gewoon een lege cel

CELA CELB CELC

372307 TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
376923 TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
.......... TEKST TEKST
562345 TEKST TEKST

Dit moet het worden, de aantal artikelnummer regels verschillen.

CELA CELB CELC

372307 TEKST TEKST
372307 TEKST TEKST
372307 TEKST TEKST
372307 TEKST TEKST
372307 TEKST TEKST
372307 TEKST TEKST
372307 TEKST TEKST
372307 TEKST TEKST
376923 TEKST TEKST
376923 TEKST TEKST
376923 TEKST TEKST
376923 TEKST TEKST
376923 TEKST TEKST
376923 TEKST TEKST
562345 TEKST TEKST
enz

Ik hoop dat u begrijpt war ik met bovenstaand bedoel.
Is hier een mogelijkheid voor te bedenken in excel?

Alvast bedankt voor uw reactie!!

Met vriendelijke groet,

Sigorei

 

[Wigi]

Bijvoorbeeld:

Sub doorvoeren()
    With ActiveSheet.UsedRange.Columns(1).SpecialCells(4)
        .Formula = "=R[-1]C"
        .Value=.Value
    End With
End Sub

 

[Sigorei]

Beste Wigi,

Bedankt voor uw reactie. Ik heb uw vba script geprobeerd en er gebeurd het volgende:

Voor Na

CELA CELA
11 11
11
11
11
11
11
12 12
11
11
11
11
13 13
11
11

Gaat nog niet helemaal goed. Na 11 komt 12 en dan moet er doorgevoerd worden met 12 enz. Doe ik iets verkeerd?

Graag uw reactie. Alvast bedankt!

Met vriendelijke groet,

Sigorei

 

[Roncancio]

Doe ik iets verkeerd?

Zeker niet.
De rode regel uit de code moet verwijderd worden.
Dan werkt de code wel goed.

Sub doorvoeren()
    With ActiveSheet.UsedRange.Columns(1).SpecialCells(4)
        .Formula = "=R[-1]C"
[COLOR="Red"][B]'        .Value = .Value[/B][/COLOR]
    End With
End Sub

Met vriendelijke groet,


Roncancio

 

[Warme bakkertje]

Niet noodzakelijk verwijderen, maar anders formuleren

Sub doorvoeren()
    With ActiveSheet.UsedRange.Columns(1)
        With .SpecialCells(4)
            .Formula = "=R[-1]C"
        End With
        .Value = .Value
    End With
End Sub

 

[Sigorei]

Het werkt perfect!

Bedankt voor uw reactie warme bakkertje en Roncancio.

Groeten

Sigorei:thumb: