Jeg har en prisliste på over 1000 rækker, fra en leverandør, på et excel ark.

Jeg vil lave en bestillingsliste på ark 2, hvor nogle valgte kolonner fra ark prisliste

overføres når der står mere end 0 i antal, og de skulle gerne komme ind på først ledige række

i ark 2.

Hvordan griber jeg det an?

Venlig hilsen

Morten

 

Mange tak for dit forslag.

Det ser rigtigt godt ud, og den smarte "sorter" knap.

Jeg vil prøve med de viste formler at lave en bestillingsliste.

Med hensyn til "sorter" knappen, kan jeg bare gå ind i redigerer, og tilføje de ekstra celler jeg får brug for?

 

Venlig hilsen

Morten

 

Vedhæftet en ny/tilrettet udgave af den tidligere excelfil, hvor kontrolelementet med den tilhørende sorteringsmakro er udskiftet med en autofunktion, som fjerner de rækker hvor antallet er lig 0. Denne autofunktion er indsat i VBA-modus under fanebladdet.

 

 

 

Hej Morten

 

Jeg gætter på at du ikke kan åbne xlsm-filer (excel version 2010), og har derfor vedhæftet en ny version i xls-format. Håber at alle koderne er bagudkonvertible.

 

Download vedhæftede fil til dit C-drev og åben den efterfølgende fra C-drevet.

 

Højreklik på fanebladet for bestillingsarket, og klik på "vis programkode". Klik på "Modules", "Module1". Slet hele koden for makroen "Sorter", og erstat den med nedenstående kode. Den sorterer i stigende rækkefølge (Ascending). Såfremt sorteringen skal foregå i faldende rækkefølge erstatter du "Ascending" med "Descending".

Sub Sorter()
'
' Sorter Makro
'
    Range("A5:C10").Select
    ActiveWorkbook.Worksheets("Bestilling").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bestilling").Sort.SortFields.Add Key:=Range( _
        "B5:B10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Bestilling").Sort
        .SetRange Range("A5:C10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("c12").Select
End Sub

Jeg har vedhæftet den tidligere fil som sorterer kolonne B i stigende rækkefølge.

Hej Moten

 

Vedhæftet forslag til løsning af søgefunktion med LOPSLAG.

 

Vedhæftet excel-ark med tilretninger i forhold til dine spørgsmål.

 

Vil du rette antal skal du gøre dette i Prislistens kolonne E.

 

Jeg er kommet til at give dig en forkert information.

Jeg har oplyst et eks. på varenr. K 920248, og så er formlen i B (DEL2) "=+ABS(HØJRE(D5;6))"

Nu er der sneget sig et mellemrum ind i varenr., så det hedder K 920 248, hvad er formlen så?

Jeg ville have at det skulle være "=+ABS(HØJRE(D5;7))", men den virker ikke.

 

Mvh. Morten

 

 

Jeg vil gerne sige mange tak for råd, vejledning og eks.

 

Exel er et fantastisk værktøj.

 

Godt nytår.

 

Mvh. Morten