lege cellen vullen die niet leeg zijn

[johanrr]

Hallo Forum leden,

Ik wil graag in een excel bestand de lege cellen van een ordernummer doortrekken.

Als ik het via selecteren, F5,speciaal,lege cellen,=pijl omhoog doe gaat het wel in aparte kolom die ik invoer. Bij de bestaande niet. Ik denk dat dit komt omdat er iets staat in de cel, want als ik inhoud wissen doe van de lege cel doet ie ut wel.

Ik kan een simpel macro opnemen met bovenstaande waarden, maar verder kom ik niet. Wie kan mij helpen?

mvg
Johan

 

[Wigi]

Sub OrderNummerDoorvoeren()

    With Range("B5", Range("A" & Rows.Count).End(xlUp).Offset(-1, 1))
    
        .Replace String(9, " "), ""
        .SpecialCells(4).Formula = "=R[-1]C"
        .Value = .Value
    
    End With

End Sub

 

[HSV]

Er staan allemaal spaties in die cellen Johan.

 

[johanrr]

Hallo Wigi,

Ik had je naam al op meerdere berichten gezien, kun je aangeven welke commando´s je uitvoert, zodat ik dit zelf ook kan begrijpen.

Thankx.
Johan

 

[Wigi]

Hallo Wigi,

Ik had je naam al op meerdere berichten gezien, kun je aangeven welke commando´s je uitvoert, zodat ik dit zelf ook kan begrijpen.

Thankx.
Johan

Euh commando's? Code schrijven uiteraard. Die zal toch niet wezenlijk verschillen van de code die jij al had?

 

[Warme bakkertje]

Ik heb bij elke regel een woordje uitleg geplaatst zodat je kan zien wat elke regel code doet

Sub OrderNummerDoorvoeren()
    MsgBox Range("A" & Rows.Count).End(xlUp).Offset(-1, 1).Address
    'deze is enkel ter verduidelijking van de volgende regel en mag verwijderd worden
    With Range("B5", Range("A" & Rows.Count).End(xlUp).Offset(-1, 1))
    'hiermee wordt het bereik bepaald waar de waarden instaan die gevuld moeten worden
        .Replace String(9, " "), ""
        'deze verwijdert in elke tekenreeks v/h bereik de spaties
        .SpecialCells(4).Formula = "=R[-1]C"
        'in alle lege cellen in het bereik wordt een formule geplaatst die zegt dat elke
        'lege cel gelijk is aan de bovenliggende cel
        .Value = .Value
        'met deze worden alle formules inhet bereik omgezet naar waarden
    End With
End Sub

 

[johanrr]

Hoi Rudi,

maakt het iets uit of dit een Engelse of Nederlandse versie is? ik heb jouw code doorgevoertd, maar krijg een foutmelding?

Mvg
Johan

 

[Warme bakkertje]

Neen, dit maakt niets uit. Op welke regel krijg je een foutmelding, en welke?
Probeer anders deze eens

Sub OrderNummerDoorvoeren()
    With Sheets("tmp062469852").Range("B5:B" & _
                Sheets("tmp062469852").Cells(Rows.Count, 1).End(xlUp).Row)
        .Replace String(9, 32), ""
        .SpecialCells(4).Formula = "=R[-1]C"
        .Value = .Value
    End With
End Sub

 

[johanrr]

Hallo Rudi,

Super bedankt, dit werkt !!

Grtz
Johan

 

[Warme bakkertje]

:thumb: Zet je de vraag dan nog even op opgelost(rechts onderaan de pagina)