Voorraadbeheer

[melimoni]

http://www.mijnbestand.nl/Bestand-HE3SCA6XSHEF.xlsx

Goedemorgen Allen,

Ik hoop dat jullie mij kunnen helpen met mijn voorraad.

Het gaat hierbij om het 3e tabblad, ik wil graag mijn verkochte art. specificeren, maar deze wil ik transporteren, nu is dat niet heel moeilijk , maar ik wil de verkochte art. ook uit mijn gegevensblad hebben. Is dat mogelijk?

Gr. Monique

 

[Cobbe]

http://www.mijnbestand.nl/ Hier kan je je bestand uploaden.

 

[melimoni]

Dank je wel

http://www.mijnbestand.nl/Bestand-HE3SCA6XSHEF.xlsx

 

[melimoni]

Help ik heb nog geen reactie gehad op mijn vraag

Hallo allemaal,

Heeft iemand een idee op mijn vraag?

 

[Roncancio]

Onderstaande macro filtert het 2e werkblad op Verkocht, kopieert de regels die aan de voorwaarde voldoen naar het 3e werkblad en verwijdert deze regels uit het 2e werkblad.

Sub Voorraad()
With Blad2
    .Range("A1").CurrentRegion.AutoFilter 2, "Verkocht"
    With Blad2.Range("A2:" & [a1].SpecialCells(xlLastCell).Address).SpecialCells(xlCellTypeVisible)
        .Copy Blad3.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        .EntireRow.Delete
    End With
    .Range("A1").CurrentRegion.AutoFilter
End With
End Sub

Voor de volledigheid heb ik het bestand bijgevoegd waar de macro al uitgevoerd is.
De macro (genaamd Voorraad) zit overigens al in het bestand.
De kolommenindeling in beide werkbladen verschillen enorm met elkaar.

Met vriendelijke groet,


Roncancio