Aktiver dit ark og kør kode

Hvis en kode indgår i varebeskrivelsen, indsættes tilhørende konto nr

Vær opmærksom på at Ost i varebeskrivelse ikke fanger Oste i plukkenavne

 

Prøv lige at teste om alle ord i problematiske  celler vises med følgende kode

 

Sub test()
For Each c In Split(ActiveCell, " ")
MsgBox c
Next
End Sub

 

Du kan indsætte en knap fra Formular-menuen og linke denne til koden

 

Hvad er Bx Cx og PF9 ?

Hvordab fik du den til at finde første ord ???

 

mener du ikke nulstilling af Bx i stedet for Cx ???

 

Sub opSlag()
Range("B2:B1500") = "" ' sletter kolonne B ved kørsel
For Each t In Range("C2:C999")
For Each c In Split(t, " ")
If Application.CountIf(Range("H2:H1500"), c) Then
t.Offset(0, -1) = Range("H2:H1500").Find(c, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1)
End If
Next
Next
End Sub

 

16 ark med 5000 rækker data er jo en del, men 80 sek lyder dog til at være lidt for sløv

Hvad dette skyldes ved jeg ikke, men makroen fylder kun ganske lidt, så det er ikke her problemet er.

 

du kan evt prøve at sende filen

Så sender du bare en række af gangen :-)

 

Nå spøg til side.

 

Uanset hvad så fylder så mange data jo en del, om vi kan slanke filen beror på om der er færre data end Excel tror.

Du kan teste dette ved at taste [CTRL]+[HOME] og herefter [CTRL]+[END]

Noter dig række og kolonne nummer.

Hvis der er mange tomme rækker imellem dine data og rækkenummer du noterede, kan du slette disse tomme rækker.

Hvis der er mange tomme kolonner imellem dine data og kolonnenummer du noterede kan disse slettes.

Med andre ord Stil dig i rækken lige under dine data og slet alle resterende rækker nedad.

samme med kolonner.

 

Gem og luk

Håber det hjælper lidt.

 

mvh 

Knud

Udgangspunkt var at tildele kontonummer til varer på indkøbslisten. Det er på plads nu (VBA-macro), og

det virker glimrende. 

Jeg fik så den tanke, at indkøbslistens rækkefølge dannes ved klik på Net avisen. Varelinjerne bliver

nemt i en tilfældig orden, og det vil jeg gerne lave om på.  

Jeg har et et ark, som er designet til print  

Printlinjer skal være sorteret i butiknr./varegruppe/-

Der maks. 16 butikker (1-16)

varegruppe/kontonr. :  konto 10 Fødevarer generelt (bruges ikke i praksis)

                                     "     11  Slagtervarer

                                     "     12  mejerivarer

                                     "     13  Grønt

                                     "     14  Brød og lignende

                                            -

                                            -

                                     "     21  Toilet artikler

                                     "     3x  Personlige

                                   osv.

I arket med kontonr har jeg  fået dannet en parammeter. som i stigende orden viser rækkefølgen for

linjerne i udskriftsarket (hentes ved opslag).

De 3 sidste tal i parameteren er varegruppen(kontonr) - 10 til 999

 Parameteren er ikke endelig fastligt men bliver formentlig 6 cifret.

     ciffer 1-3 varegruppe : min. 10, maks. 999

     ciffer 4-6 styretal       : hver butik har samme tal i ciffer 4-6. 

                                       Der er ingen betydning i styretal, men det skal kunne håndtere op til 16 butikker

                                       i samme indkøbsliste (dog ikke i praksis).

Jeg vover at lave en ny model

                                  løbnr.            Parameter

                                I5:I177             J5:J177

                -----------------------------------------------

                                   1                    80011

                                   8                    80017

                                   9                    80071

                                   4                    80013

                                   5                    80013

                                   7                    80015

                                   2                    80011

                                   6                    80014

                                   3                    80011 

                                  13                  112071      ny butik

                                  12                  112013 

                                  10                  112011

                                  11                  112011

                                                        osv.

Selv om samme parameternr. kan forkomme mange gange- tildeles løbenr. stigende.

Mvh.

Knud

  Jeg gjorde følgende :

    1) sammenkædning(parameter;varetekst)  

     2) indspillede macro :

         -copy den under 1) kolonne

         -indsæt specielt/værdier i kol. ap5

         -Sorter kol. ap5:aq177  (variabel i aq er et sorterkrav, men ligegyldig her)

            - I kol. ar fra række 5 står tallene 1 til 173 

         - opdater  (PF9 submit : dan udskriftrækkefølgen af varelinjer)

         - musen til f3

        stop indspilning.

      3) Det kører godt hver gang, incl. uden varelinjer at udskrive og alle linjer at udskrive.

Så ok!

Men når jeg arkbeskytter, går det galt 

Hele den indspillede kode:

   Sub sorterUdskrift()

'

' sorterUdskrift Makro

' Makro indspillet 22-03-2012 af bruger

'

'

    ActiveWindow.SmallScroll Down:=-6

    Range("I5:I177").Select

    Selection.Copy

    ActiveWindow.SmallScroll ToRight:=13

    ActiveWindow.SmallScroll Down:=-138

    Range("AP5").Select

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=False

    Range("AP5:AQ177").Select

    Application.CutCopyMode = False

    Selection.Sort Key1:=Range("AP5"), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    ActiveWindow.LargeScroll Down:=-4

    ActiveWindow.SmallScroll ToRight:=-13

    Calculate

    Range("F3").Select

End Sub

Den slår ud med fejl i disse linjer :

 Selection.Sort Key1:=Range("AP5"), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Har du et bud på, hvad der går galt?

mvh

Knud

 

Hej Knud

(lige under menupunktet Tools), men det løser jo nok ikke det grundlæggende problem

 

Kan du ikke sende et reduceret ark med 20-30 rækker, så kikker jeg på det

Jeg arbejder jo i blinde her