VBA, Excel, Artikelnr kopieren naar alle onderstaande regels

[piet1234]

Hallo allemaal,

ik heb een artikelnummer en daaronder een aantal regels met de voorraad per filiaal.
Nu zou ik met VBA het artikelnummer op regelniveau willen toevoegen zodat ik een soort van database krijg waar ik
allerlei bewerkingen op los kan laten.

Alvast bedankt!

P.s. ik heb een voorbeeldbestandje toegevoegd.Bekijk bijlage Map1.xlsx

 

[Elsendoorn2134]

Piet,

Hierbij een voorbeeldje hoe de macro zou kunnen werken.
Ik heb bij het wegschrijven de lege kolommen weggehaald anders kan je er als database nog niets mee.


Veel Succes.

Bekijk bijlage HelpMijMaakDatabase.xlsm

 

[HSV]

Zoals gevraagd.

Sub hsv()
Dim i As long, rng as range
 For i = 1 To Columns(2).SpecialCells(2).Areas.Count
   Set rng = Columns(2).SpecialCells(2).Areas(i).Offset(1).SpecialCells(2)
  rng.Offset(, 4) = Range(Split(rng.Address, ":")(0)).Offset(-3, 2).Value
 Next
End Sub

 

[piet1234]

Bedankt!

Dit is hetgeen ik zocht.
Iedereen bedankt voor de snelle reactie!

Met vriendelijke groet,

Piet.