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

Berichtdoor 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: 26
Lid geworden op: 05 jan 2020 22:30

Re: automatisch vullen van kolommen

Berichtdoor 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

Berichtdoor hentuutzaand » 20 jul 2020 08:47

Ik heb geprobeerd met vlookup, met if(and(..) statement, maar daar red ik het niet mee.
tknijnenburg
Berichten: 106
Lid geworden op: 18 feb 2019 17:04

Re: automatisch vullen van kolommen

Berichtdoor tknijnenburg » 20 jul 2020 08:52

Met een stukje VBA code?
Bijlagen
Vullenkolom1.xlsm
(13.85 KiB) 43 keer gedownload
Grtz, Ton
kn-ict.com
hentuutzaand
Berichten: 4
Lid geworden op: 18 jul 2020 14:33

Re: automatisch vullen van kolommen

Berichtdoor 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: 106
Lid geworden op: 18 feb 2019 17:04

Re: automatisch vullen van kolommen

Berichtdoor 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: 106
Lid geworden op: 18 feb 2019 17:04

Re: automatisch vullen van kolommen

Berichtdoor 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

Berichtdoor hentuutzaand » 20 jul 2020 11:29

Ton,
Dank. Hier kan ik meer verder.
Groet, Hent
jkpieterse
Site Admin
Berichten: 669
Lid geworden op: 30 jan 2017 14:32

Re: automatisch vullen van kolommen

Berichtdoor 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

Berichtdoor 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

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 8 gasten