Boodschapppenlijst maken in excel 2000

[Jacob35]

Ik wil graag in blad 3 een lijst maken zodat alles onder elkaar komt te staan als ik het wil printen. Nu vallen er een hoop leegtes in omdat produkten die ik niet nodig heb niet worden weergegeven in boodschaplijst kolom C en D
Ik ben absoluut geen excel wizard en na drie dagen *****n geef ik het op.
Bekijk bijlage bestellijst voorbeeld.xls

 

[ExcelAmateur]

Jacob35,

Als met de macrorecorder / opnemen het volgen de doet en dit dan onder een knop zet.
Select de kolomen C en D van de boodschappenlijst en kopieer dit.
Plak het dan Blad3 en laat het sorteren, dan staat alles netjes onder elkaar.

De geschreven code kun je dan later eventueel inkorten want de macrorecorder schrijft meer code dan dat nodig is.

 

[dinoshop]

hierbij voorbeeld

hierbij een voorbeeld

 

[ExcelAmateur]

Jacob35,

Dit is gedaan in Excel 2007 en weet niet of het ook werkt in Excel 2000

Deze code is na het opnemen een beetje aangepast.
Op het blad Boodschappen een knop plaatsen en de code daar onder plaatsen.

Sub Bestel()
Sheets("Boodschaplijst").Range("C3:D372").Copy
Sheets("Blad3").Range("A2").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Blad3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad3").Sort.SortFields.Add Key:=Range("A2")
    With ActiveWorkbook.Worksheets("Blad3").Sort
        .SetRange Range("A2:B372")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Sheets("Blad3").Select
Range("A1").Select
End Sub

In het Voorbeeld is het verwerkt.

 

[Haije]

Jacob35,

dit had ik nog ergens, wellicht kun je er iets mee..

 

[Jacob35]

Hartelijk dank voor de snelle en vooral goede reacties het probleem is de wereld uit