iLLegal-_^TaXi
-
Innlegg
49 -
Ble med
-
Besøkte siden sist
Innholdstype
Profiler
Forum
Hendelser
Blogger
Om forumet
Innlegg skrevet av iLLegal-_^TaXi
-
-
Det er riktig.
Hvis du endrer linjen
x = 1: While .Cells(x, 2) <> ""
til
x = 7: While .Cells(x, 2) <> ""
Så bør det funke
Det funket!
Ssiste problem er at den skal starte å skrive i A3 i Ark1 ikke A1 som skjer nå, jeg trodde at det bare var å endre Set R = Ark.Range("A:A") til Set R = Ark.Range("A3:A50") men dette hjalp ikke.
-
For å få til dette kan du bruke makroen under
Du kan laste ned eksempelfilen din her
http://www.excelguru.no/download/1646/
Makroen tøffer gjennom alle regnearkene bortsett fra Ark1 og plasserer alle unike artikler i A-kolonnen. Bytter du navn på Ark1, må du endre linjen Set Ark = Sheets("Ark1")
Vennlig hilsen KetilSub Transfer()Dim s As DoubleDim a As IntegerDim Ark As WorksheetDim R As RangeSet Ark = Sheets("Ark1")Set R = Ark.Range("A:A")For i = 1 To ActiveWorkbook.Worksheets.CountIf ActiveWorkbook.Worksheets(i).Name <> Ark.Name ThenWith ActiveWorkbook.Worksheets(i)x = 1: While .Cells(x, 2) <> ""s = .Cells(x, 2)a = 0On Error Resume Nexta = Application.WorksheetFunction.Match(s, R, 0)If a = 0 Thenl = l + 1Ark.Cells(l, 1) = sEnd Ifx = x + 1: WendEnd WithEnd IfNext iEnd SubTusen hjertelig takk, funker utmerket i test dokumentet mitt, men når jeg bruker den i selve hovedboken min får jeg feilen:
Run time error '13' Type mismatch
Dette er linjen som blir gul ( s = .Cells(x, 2), har endre Set
jeg er ikke så kjent med makroer så sliter med feilsøking og ser ikke helt hva linjen gjør, kan du forklare kjapt?
Kan dette være fordi jeg har tekst i B1 i alle arkene?? Tallene start først i B7
-
For å få til dette kan du bruke makroen under
Du kan laste ned eksempelfilen din her
http://www.excelguru.no/download/1646/
Makroen tøffer gjennom alle regnearkene bortsett fra Ark1 og plasserer alle unike artikler i A-kolonnen. Bytter du navn på Ark1, må du endre linjen Set Ark = Sheets("Ark1")
Vennlig hilsen KetilSub Transfer()Dim s As DoubleDim a As IntegerDim Ark As WorksheetDim R As RangeSet Ark = Sheets("Ark1")Set R = Ark.Range("A:A")For i = 1 To ActiveWorkbook.Worksheets.CountIf ActiveWorkbook.Worksheets(i).Name <> Ark.Name ThenWith ActiveWorkbook.Worksheets(i)x = 1: While .Cells(x, 2) <> ""s = .Cells(x, 2)a = 0On Error Resume Nexta = Application.WorksheetFunction.Match(s, R, 0)If a = 0 Thenl = l + 1Ark.Cells(l, 1) = sEnd Ifx = x + 1: WendEnd WithEnd IfNext iEnd SubTusen hjertelig takk, funker utmerket i test dokumentet mitt, men når jeg bruker den i selve hovedboken min får jeg feilen:
Run time error '13' Type mismatch
Dette er linjen som blir gul ( s = .Cells(x, 2), har endre Set
jeg er ikke så kjent med makroer så sliter med feilsøking og ser ikke helt hva linjen gjør, kan du forklare kjapt?
-
Ok, så oppgaven er å telle antall unike artikkelnummer i arkene?
Nei, jeg skal hente ut varenummeret fra ark2 og 3, finner den varen i ark 2 og 3 skal den kun skrive varenummeret 1 gang i ark1 kolonne A - rad 1 og deretter skal kolonne A - rad 2 gjøre samme jobben, dette skal fortsette helt til raden ikke finner flere varenummere, altså blankt felt.(dette får jeg ikke til), videre gjør ark1 opptellingen av de varene som er funnet(Denne delen er ok).
Dette er hva jeg bruker boken til:
Jeg regner en pris på en jobb ved å legge inn en "gruppepris" for montering, deretter legger jeg inn et varenummer og antallet av varen, dette gjentar jeg til hele jobben med alle varene som skal brukes er med, deretter summerer jeg alt som har med pris å får en totalpris for å gjøre denne jobben.
Antallet varer, gruppepris og totalpris har jeg kontroll på, men jeg ønsker da at Ark1 skal finne alle varenummerene jeg har lagt til i Kolonne B i alle arkene og skrive disse kun 1gang, dette fordi jeg summerer disse ved å hente varenummeret fra kolonne A i Ark1. Dette vil jo ikke fungere før det står et varenummer i Ark1 Kolonne A, så jeg må nå skrive disse manuelt inn for at summeringen skal skje, varenummeret har jeg jo allerede skrevet inn i Ark 2 kolonne B, kanskje har jeg skrevet det i Ark3 kolonne B også, så jeg vil slippe å skrive inn varenummeret enda en gang i Ark1.
Ser dette er vanskelig å lese, men håper du ser hva jeg er ute etter
-
For meg hadde det hjulpet veldig om du sier noe om "Varför du gör på detta viset"
Enkel løsning på kompliserte oppgaver er ønskelig - og komplisert
Vennlig hilsen Ketil
Hehe!
Jeg har en bok med flere ark med beregninger av pris for en vare og en tjeneste.
Jeg skal i et nytt ark hente ut alle varenummerene som er brukt i de arkene men skal bare ha nummeret 1 gang selv om de går igjen i flere av arkene.
jeg har allerede laget formelen for å hente ut antallet av varene fra alle arkene
(=HVISFEIL(INDEKS('Ark2'!C:C;SAMMENLIGNE(A:A;'Ark2'!B:B;));0))
men sliter med å hente ut varenummeret bare en gang til kolonne A
-
Takk for svar, det fungerer nesten
Har prøvd litt på egenhånd og kommet fram til noe som gir de riktige verdiene ut, den ligger vedlagt i dette innlegget.Finnes det ingen enklere måte enn dette? er en verdi først "hentet" til Ark1 skal den ikke opptre i Ark1 igjen.
https://www.dropbox.com/s/hq0s13nqq21ybc2/test.xlsx?dl=0 -
Hei!
Trenger hjelp med en formel, dette er utgangspunktet mitt:
1 bok med 3 ark, det jeg ønsker er:
1. Ark 1 - kolonne A - rad 1 skal hente Ark2 kolonne B rad 1 (Dette er ok)
2. Ark1 - Kolonne A - rad 2 skal sammenligne Ark 1 - Kolonne A - rad 1 med Ark2 og Ark3 kolonne B og returnere den neste ukjente verdien. Altså finner den verdien fra Ark1 i Ark3 skal den returnere neste ukjente verdi fra enten Ark2 eller Ark3.
3. Ark1 - Kolonne A - rad 3 skal sammenligne Ark 1 - Kolonne A - rad 2 med Ark2 og Ark3 kolonne B og returnere den neste ukjente verdien. Altså finner den verdien fra Ark 1 i Ark2 eller Ark3 skal den returnere neste ukjente verdi fra enten Ark2 eller Ark3.
4. Slik skal det fortsette til den har tatt alle verdiene som står i Ark2 og Ark3 kolonne B.
Her ligger en start på Boken:https://www.dropbox.com/s/djswoqd3itn6c5i/test.zip?dl=0
Håper noen skjønner hva jeg er ute etter! På forhånd takk!
Mvh
Daniel -
sjekk denne tråden dere: http://www.swedroid.se/forum/showthread.php?t=26754
så får dere Android Market og youtube!
-
Jeg må skru opp min 1 til 2 ganger i måneden for å fjerne støv mellom kjøleribben og viften!! dette tror jeg er hele problemet med at den blir varm for etter man har gjort det funker den super bra! har også lagg på lyden men bare under avspilling av musikk, diverse spill funker i vista, men funker BEDRE i windows 7 32bit har ikke prøvd 64 enda...
-
Hei,
Lurer litt på en sang her, har et kjempe dårlig opptak men håper noen her klarer å bruke det til noe.
prøver igjen, noen som klarer å finne denne sangen?
-
Hei skal ha en ny bærbar maskin, og trenger litt veiledning
skal brukes ved siden av stajsonær pc så den skal ikke brukes til sånn alt for tungt arbeid.
men den skal kunne kjøre sims 2 uten at det hakker altformye.
prosessor: beste man kan få til 5000 i en bærbar pc
minne: minimum 2gb ram ( eventuelt 1gb om jeg PC-en er så bilig at jeg kan sette inn 1gb i tillegg uten at den kommer langt over 6k)
Vista: ja
webcam: er det samme, er et pluss om den har
minnekortleser: er det samme, er et pluss om den har
utifra dette har jeg kommet fram til 2 stykker som er ok, men er litt itvil pga grafikk og prosessor delen.
Siba sin Asus:
http://www.siba.no/Product/Product.aspx?identifier=NO27901
og elkjøp sin Toshiba:
http://www.elkjop.no/is-bin/INTERSHOP.enfi...q8AAAEOguI03xiL
hva tror dere om diss og er det noen andre alternativer som kanskje er bedre?
-
Hei,
Lurer litt på en sang her, har et kjempe dårlig opptak men håper noen her klarer å bruke det til noe.
-
noen her som sliter med at det kommer røde streker på skjermen?
når jeg bruker fiske tema så er det streker på bakgrunden. men ikke heler tiden. bør jeg dra tilbake med telefonen???
Excel - søke og hente ut verdier fra flere regneark
i Programvare
Skrevet
Herregud så enkelt Takk igjen!
Er det noe sted man kan lære seg makro koding??