Waarde van bovenliggende cel overnemen

[HWV]

Beste,

Ik heb een lijst met artikelnummer en prijs en de eenheden.
nu heb ik van één artikel meerdere dezelfde artikelnummers

123456 12,00 KG
123456
123456
123456
135682 24,00 Rol
135682
135682
135682
135682

Nu wil ik dat de artikelnummers zonder eenheden dezelfde eenheid krijg als het zelfde artikelnummer.
Het moet verwerkt worden in een VBA script, dus zou mooi zijn als het daarin zou passen.
In debijlage een voorbeeld van hoe het is en hoe ik het graag zou willen hebben met de juiset kolomen er in vermeld.

groet HWV

 

[snb]

Dit soort dingen moet je inmiddels op basis van de voorgaande antwoorden zelf kunnen maken:

Sub tst()
  sq = Sheets(1).UsedRange
  For j = 1 To UBound(sq)
    If sq(j, 15) = "" Then sq(j, 15) = sq(j - 1, 15)
    If sq(j, 16) = "" Then sq(j, 16) = sq(j - 1, 16)
  Next
  Sheets(1).UsedRange = sq
End Sub

 

[Warme bakkertje]

Andere methode

Sub Aanvullen()
    With [P2:P18]
        .SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
        .Value = .Value
    End With
End Sub

Mvg

Rudi

 

[HWV]

Alweer gelukt

Beste SNB, Rudi

Beiden bedankt voor de input.

Dit soort dingen moet je inmiddels op basis van de voorgaande antwoorden zelf kunnen maken:

Als ik het zou kunnen dan had ik de vraag niet gesteld !
Helaas is het voor mij nog niet mogelijk zelf zulke mooi formules te maken.
Ik weet wel aardig wat van Excel en een klein beetje van VBA en in die combinatie probeer ik er het beste van te maken.
Ik doe mijn best, maar om persoonlijke redenen zal het mij niet altijd lukken, en daarom ben ik blij met alle hulp die ik via het form krijg.

groet HWV

 

[Warme bakkertje]

Ik zou zeggen Henk, vraag maar raak want daar is dit forum voor

Mvg

Rudi

 

[HWV]

:thumb:

Groet Henk