automatisch vullen van kolommen

Stel hier je vraag over een Excel probleem
hentuutzaand
Berichten: 4
Lid geworden op: 18 jul 2020 14:33

automatisch vullen van kolommen

Bericht door hentuutzaand » 20 jul 2020 06:19

In een Excel kolom heb ik de nummers 1 tot 12000 staan. Tussen ieder nummer staan lege velden (varieert tussen de 2 en 20). Nu wil ik dat die lege velden hetzelfde nummer krijgen als het laatste nummer dat er boven staat. Met ruim 200000 regels wil ik dat graag automatisch doen, maar dat lukt me niet. Wie kan me helpen?
Groet, Hent

JeanPaul
Berichten: 86
Lid geworden op: 05 jan 2020 22:30

Re: automatisch vullen van kolommen

Bericht door JeanPaul » 20 jul 2020 08:00

Laat eens zien wat je al geprobeerd hebt

hentuutzaand
Berichten: 4
Lid geworden op: 18 jul 2020 14:33

Re: automatisch vullen van kolommen

Bericht door hentuutzaand » 20 jul 2020 08:47

Ik heb geprobeerd met vlookup, met if(and(..) statement, maar daar red ik het niet mee.

tknijnenburg
Berichten: 275
Lid geworden op: 18 feb 2019 17:04

Re: automatisch vullen van kolommen

Bericht door tknijnenburg » 20 jul 2020 08:52

Met een stukje VBA code?
Bijlagen
Vullenkolom1.xlsm
(13.85 KiB) 161 keer gedownload
Grtz, Ton
kn-ict.com

hentuutzaand
Berichten: 4
Lid geworden op: 18 jul 2020 14:33

Re: automatisch vullen van kolommen

Bericht door hentuutzaand » 20 jul 2020 08:59

Dag Ton,
In zie in jouw Excel file alleen maar 5 getallen, maar wel precies hoe het er bij mij uitziet.
Heb je er een stukje VBA bij gedaan?
Hent

tknijnenburg
Berichten: 275
Lid geworden op: 18 feb 2019 17:04

Re: automatisch vullen van kolommen

Bericht door tknijnenburg » 20 jul 2020 09:37

Dag Hent,
Ga in het bestand naar Beeld, Macro's, Macro's weergeven.
Macro FillColumn is geselecteerd en dan klik je op uitvoeren.
Grtz, Ton
kn-ict.com

tknijnenburg
Berichten: 275
Lid geworden op: 18 feb 2019 17:04

Re: automatisch vullen van kolommen

Bericht door tknijnenburg » 20 jul 2020 09:58

Gemaakte code duurt best lang voor 200.000 regels.
Hieronder is ie sneller:

Code: Selecteer alles

Sub FillColumn()
    Dim lngTeller As Long
    Dim lngLastRow As Long
    Dim Bereik As Variant
    lngLastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    Bereik = Range(Cells(1, 1), Cells(lngLastRow, 1))
    
    For lngTeller = 2 To UBound(Bereik)
        If Bereik(lngTeller, 1) = Empty Then
            Bereik(lngTeller, 1) = Bereik(lngTeller - 1, 1)
        End If
    Next
    Range("A1").Resize(UBound(Bereik), 1).Value = Bereik
End Sub
Grtz, Ton
kn-ict.com

hentuutzaand
Berichten: 4
Lid geworden op: 18 jul 2020 14:33

Re: automatisch vullen van kolommen

Bericht door hentuutzaand » 20 jul 2020 11:29

Ton,
Dank. Hier kan ik meer verder.
Groet, Hent

jkpieterse
Site Admin
Berichten: 844
Lid geworden op: 30 jan 2017 14:32

Re: automatisch vullen van kolommen

Bericht door jkpieterse » 24 jul 2020 13:10

Met de hand kan ook:
- Selecteer de kolom in kwestie
- F5, speciaal, Kies Lege cellen, klik OK
- tik het = teken gevolgd door één keer pijltje omhoog
- druk control+enter
- selecteer de gehele kolom
- control+c, control+alt+v, waarden, OK.
Groetjes,
Jan Karel Pieterse
jkp-ads.com

jolivanes
Berichten: 1
Lid geworden op: 13 jul 2020 22:23

Re: automatisch vullen van kolommen

Bericht door jolivanes » 30 jul 2020 01:40

Hoe lang heeft deze code nodig?

Code: Selecteer alles

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

Plaats reactie