Forfatter |
Emne Søg Emne funktioner
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Emne: Opslag/referenser Sendt: 26.Mar.2012 kl. 17:01 |
Ja, det virker med luk op/lås.
Jeg tror jeg er færdig med projektet. Jeg vil gerne takke for bistand undervejs.
mvh
|
Med venlig hilsen
Knud Evendorff
|
|
|
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 24.Mar.2012 kl. 18:52 |
Hvis det er pga. beskyttelse at koden fejler, så kan du fjerne beskyttelsen imens koden kører med ActiveSheet.Unprotect og til slut i koden sætte beskyttelsen på igen med fx. ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Hvis du har en speciel beskyttelse, så kan du optage denne med makrooptager, og herefter klippe kodestumpen til din oprindelige kode ellers meld tilbage
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 24.Mar.2012 kl. 16:54 |
Hej Poul Jeg har et par gange sendt en korrektion /med ´fil til dig.
En vis Allan brød ind med kommentarer fredag. Hvis jeg bruger besvar til venstre under beskeder, ryger beskeden over i Allan's tråd (sådan opfatter jeg det). Det var din besked, der stod umiddelbart over besvar tasten.
Men hermed en fil. ref. Jeg har brugt besvar pilen ude til højre i din seneste besked.
Jeg håber det går, ellers giver jeg op.
uploads/514/Test_for_arkbeskyttelse.xls
mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 24.Mar.2012 kl. 16:35 |
Du har sikkert ikke fået filen.
uploads/514/Test_for_arkbeskyttelse.xls
mvh
Knud
Gu' ved om du Poul får denne besked. Der var pludselig en Allan, der brød ind i sekvensen.
Der bør sørme kunne laves : modtager ref. til venstre under besvar.
|
Med venlig hilsen
Knud Evendorff
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 24.Mar.2012 kl. 16:24 |
Eftersom jeg ikke hører nætmere, er det nok fordi min forrige respons gik galt :
teksten fra forrige gælder også her
mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 23.Mar.2012 kl. 20:09 |
Hvis det er sådan :
Jeg gjorde som beskrevet (næsten). Popup billedet havde en elevator, som jeg ikke reagerede på, og jeg har således ikke aktiveret OK tasten. Jeg har derfor ikke fået linket filen (uploads/514) til svaret.
Hvordan kan jeg lave en ekstra besvarelse, og samtid få fat i linket?
PS! I stedet for smileys til venstre, burde der heller stå navnet på den bruger, som besvarelsen skal rettes til. Jeg er nemlig i tvivl om jeg besvarer excelent eller Allan.
Mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|
Allan
Forum Admin
Forum Admin
Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
|
Sendt: 23.Mar.2012 kl. 19:28 |
Hej Knud, Du uploader ved at følge denne procedure: /hvordan-uploader-man-filer-til-forummet_topic662&FID=3&PR=3.html" target="_blank"/hvordan-uploader-man-filer-til-forummet_topic662&FID=3&PR=3.html Der er ingen forsinkelse på uploads. //Allan
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 23.Mar.2012 kl. 19:24 |
Hej Poul
Undskyld, betyder :
ikke endnu , at jeg har gjort det korrekt, men at der er en forsinkelsesfaktor?
Jeg undrer mig over over, at jeg ikke kan se, at jeg har uploadet en fil?
mvh
|
Med venlig hilsen
Knud Evendorff
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 23.Mar.2012 kl. 18:34 |
ikke endnu
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 23.Mar.2012 kl. 18:00 |
Hej Poul..
Jeg er ikke sikker på, at jeg forstår teknikken mht. til at vedhæfte en xls fil.
Jeg gjorde følgende: aktiverede fil ikon fandt fil på disken (fylder godt 30 K) upload fil / jeg mener jeg fik en kvittering?
Har du fået filen, for jeg kan ikke se noget i denne besked,
Mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 23.Mar.2012 kl. 09:55 |
Hej Knud Break mode anuleres ved at klikke på den firkantede Reset knap i VBA-editoren (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
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 22.Mar.2012 kl. 21:48 |
Jeg glemte at skrive at fejlmeddelelsen er :
Can't execute code in break mode.
mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 22.Mar.2012 kl. 21:39 |
Jeg gjorde i princippet som du foreslog.
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
|
Med venlig hilsen
Knud Evendorff
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 21.Mar.2012 kl. 13:07 |
Hvis din tabel (alle kolonner/rækker incl. evt. overskrift) må sorteres så: Marker din tabel, sorter efter Parameter-kolonne (J) - stigende Så er det blot at indtaste 1,2,3 osv... i kolonne (I) Hvis din tabel ikke må sorteres, så: Indtast 1,2,3 osv... i næste ledige kolonne til højre for din tabel Marker din tabel incl. den nye kolonne Sorter efter Parameter-kolonne (J) - stigende Så er det blot at indtaste 1,2,3 osv... i kolonne (I) Marker din tabel incl. den nye kolonne Sorter efter ny-kolonne - stigende
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 21.Mar.2012 kl. 11:40 |
Jeg skal prøve, med lidt uddybning,
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
|
Med venlig hilsen
Knud Evendorff
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 21.Mar.2012 kl. 07:49 |
Forstår ikke lige hvad du mener
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 21.Mar.2012 kl. 02:57 |
Det er et torske dumt eksempel. Det skal være således:
celle celle I5:I181 J5:J185 VBA celle parameter 5 309014 3 309013 1 309011 2 309011 4 309013 7 309071 6 309017 11 909121 10 909018 9 909017 8 909011
mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 20.Mar.2012 kl. 21:33 |
Jeg har fået reduceret projektet med omkring 25% men det gav højest 5 sek. i luk ned tid.
Jeg har arbejdet lidt med opbygning af BASEN med navne/betegnelser. Det virker rigtig godt, og jeg vil afgjort bruge projektet til indkøbslister/regnskabskontering. Jeg vil jo kun bruge det højest en gang om ugen, så luk ned tiden er mere en irritation, end et praktisk problem.
Har du mod/lyst til VBA mere. Det drejer sig om, at indkøbslisten skal udskrives sorteret efter butik/varegruppe. Jeg har dannet en parameter pr. varelinie, som så skal tildeles løbenummer fra 1 til 176 (max varer). celle celle I5:I181 J5:J185 VBA celle parameter 6 309014 4 309013 1 309011 2 309011 5 309013 10 309071 7 309017 11 909121 9 909018 8 909017 3 909011
Rækkefølgen indenfor samme parameternummer er ligegyldig.
Maks tal parameter 310000. Det helt Ok, hvis du melder fra.
mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|
excelent
Guld bruger
Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
|
Sendt: 17.Mar.2012 kl. 15:31 |
Nej det kan jeg godt følge dig i. 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.
|
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
|
|
ZXCVB
Bronze bruger
Medlem: 12.Mar.2012
Land: DK
Status: Offline
Point: 92
|
Sendt: 17.Mar.2012 kl. 12:06 |
Fejlen med OST var en alfa num. blank. Hvad mine andre problemer angår, har jeg ikke noget bud, men jeg har tillid til koden gør det samme hver gang. Så jeg dikterer selv nogle fejl, som jeg ikke kan gennemskue.
Jo, jeg mener Bx. Det virker fint.
Jeg enig i, at makroen isoleret set ikke er årsagen. Mere til baggrund : Jeg blev sur over, at skulle give 145,- kr, kg for Riberhus ost, når der samtidig køres tilbud på samme vare til 50,- kr./kg. Dette gælder mange varer, som kan købes til helt andre priser. Jeg har tre katagorier : - kort holdbarhed (grønt, fersk kød) - mellemlang holdbarhed (ost) - Lang holdbarhed (vaskemiddel, konserves, etc-)
Jeg fandt hurtig ud af, at læse tilbudsaviser ikke er nogen fornøjelse, men skal overstås effektivt hurtigst mulig. Derfor blev det til, at hver forretning fik eget ark, og jeg vil ikke slette tidligere opdateringer. Der er plads til flere forretninger end mit eget behov tilsiger. De 16 forretninger blev valget.
Du skriver, at jeg kan dende dig filen, men hvordan gør jeg det? den er på 78 MB.
mvh
Knud
|
Med venlig hilsen
Knud Evendorff
|
|