Automatisch aanvullen

[MacAnd]

Goedemorgen,

Wanneer ik uit onze bedrijfssoftware rapporten trek, kan ik per persoon verschillende zaken oplijsten. Bijvoorbeeld hun openstaande verloftellers, per type verlof. Deze komen dan in rijen onder mekaar, maar de naam krijg ik telkens maar 1 keer te zien. Om aan de slag te kunnen met dat rapport (bijvoorbeeld een rapportje maken met het totaal openstaand wettelijk verlof enzovoort) moet ik echter op elke rij de naam hebben. Kan ik dit automatisch laten aanvullen?

Ik heb een klein voorbeeld toegevoegd in bijlage.

Alvast bedankt!

Voorbeeld:
AndyBekijk bijlage forum.xlsxBekijk bijlage forum.xlsx

 

[Cobbe]

Deze zou dat voor u kunnen doen:

Sub cobbe()
Dim cl As Range
For Each cl In Range("a1:a" & Range("B" & Rows.Count).End(xlUp).Row)
 If cl = "" Then cl = cl.Offset(-1)
Next
End Sub

 

[HSV]

Selecteer A2:A13.
Druk F5, dan Speciaal..., Lege waarden, OK.
Tik een = teken in en druk pijltje naar boven.
Afsluiten met Ctrl-Enter.


Of met een macrootje.

Sub hsv()
With Cells(1).CurrentRegion.Columns(1)
On Error Resume Next
   .SpecialCells(4) = "=r[-1]c"
   .Value = .Value
 End With
End Sub