Cellen automatisch instellen op kopieren ipv doorvoeren

[arnohartemink]

Heb rondgezocht op dit forum en op internet voor het antwoord hierop, desondanks niet gevonden.

Is het mogelijk om in te stellen, dat wanneer je een cel doorvoert dat hij de cel standaard kopieert i.p.v. reeks doorvoeren kiest?
Of hebben jullie eventueel nog een sneller oplossing voor de uit te voeren taak?

Het gaat om een bestand van enkele honderdduizenden rijen dus, zou flink tijd besparen als er een snellere oplossing te bedenken is.

Zie voorbeeld bestand:Bekijk bijlage Voorbeeld.xlsx

 

[Niels28]

Weet niet wat er gebeurt bij 100.000-den regels

Sub doorvoeren()
Application.ScreenUpdating = False
For Each cl In Range("D4:D" & Cells(Rows.Count, "D").End(xlUp).Row)
If cl.Value = "" Then cl.Value = cl.Offset(-1).Value
Next
Application.ScreenUpdating = True
End Sub

Niels

 

[arnohartemink]

Werkt helemaal top! Pc had hoorbaar flinke moeite met de uitvoering, maar het is gelukt! :thumb: