[Løst] Litt uvant summering i excel

[Underhand-Felons]

Excel Pro Plus 2010 norsk

 

Bildet viser kun tre hovedkolonner (for eksempel dag 29, 30 31 av 31 i arket)

Eksempel på hvordan dette er tenkt: FE er telleren (legger inn antall), mens FF er felt for kodeangivelse.

 

Se røde felt - hvordan på en elegant måte summere alle tellerne de plassen hvor koden er OT?

Neste røde felt viser neste kode, og det er i alt ca 10 koder.

 

Noen gode innspill?

[ExcelGuru]

Alltid irriterende å få svar på ting man ikke har spurt om, men det slo meg umiddelbart å snu litt på dataene. 

 

http://www.excelguru.no/download/1167/

 

Ha en strålende helg.

 

Vennlig hilsen Ketil

Endret 27. mars 2015 av ExcelGuru

[Underhand-Felons]

Alltid irriterende å få svar på ting man ikke har spurt om, men det slo meg umiddelbart å snu litt på dataene. 

 

http://www.excelguru.no/download/1167/

 

Ha en strålende helg.

 

Vennlig hilsen Ketil

Takk for innspill, kjempefint med så raskt svar

 

Tenk deg at jeg skal ha 100 rader nedover, og som hver for seg skal vise en deltaker, dette gjør det utfordrende å snu dataene.

Videre vil hver rad ha 31 kolonnesett (en for hver dag, og hver dag igjen med to varianter av antall og kodetype). Blir en fryktelig lang streng om jeg skal gjøre det på denne måten, noe jeg var på tur å gjøre før jeg la ut spørsmålet.

 

Det finnes vel noe mer kraftfullt, og som takler dette?

[Horge]

Det finnes vel noe mer kraftfullt, og som takler dette?

Dette er mat for en pivottabell. Det krever sant nok at du gjør om på måten du registrerer data (omtrent i tråd med slik guruen foreslo), men mulighetene for analyse blir ekstremt mye bedre.

[ExcelGuru]

Det finnes masse kraftfullt, vet du. Jeg har skrevet en liten snutt som ordner det:

 

Du kan laste ned regnearket her: http://www.excelguru.no/download/1167/

 

Koden ser slik ut:

Function SumKode(Ran As Range, HeadingRad, AntallTekst, Kodetekst, Kode)

 Dim s As Double

 Dim x As Integer

 Dim y As Integer

 Dim fk As Long

 Dim tk As Long

 Dim Rad As Long

 

 fk = Ran.Column

 tk = Ran.Columns.Count

 Rad = Ran.Row

 

 x = fk

 While x <= tk

  If UCase(Cells(HeadingRad, x)) = UCase(Kodetekst) Then

   If UCase(Cells(Rad, x)) = UCase(Kode) Then

    'Finn neste Antall etter denne

     funnet = False

     y = x - 1: While funnet = False And y - x < 5

      If UCase(Cells(HeadingRad, y)) = UCase(AntallTekst) Then

       s = s + Cells(Rad, y)

      End If

      funnet = True

     y = y + 1: Wend

   End If

  End If

 x = x + 1: Wend

 

 SumKode = s

 

End Function

Endret 27. mars 2015 av ExcelGuru

[ExcelGuru]

Har pusset litt på koden...

[Underhand-Felons]

Har pusset litt på koden...

 

ExcelGuru; der tror jeg vi har det jeg lette etter! 

 

Må jeg på noen måte bruke/kunne koden du har beskrevet over, eller holder det om jeg rett og slett i et nytt ark skriver feks: "=sumkode($A3:$J3;2;"Antall";"Kode";L$2)" ??

 

Mange takk, du skal få konkret tilbakemelding så snart jeg har fått testet ut - må bygge ferdig rammeverket først

Endret 28. mars 2015 av Underhand-Felons

[ExcelGuru]

Så bra.

Du trenger ikke kunne/forstå koden, men du må ha den med deg over i ditt eget regneark for å bruke funksjonen Sumkode().

Jeg har laget en liten videosnutt som viser hvordan: http://youtu.be/OUUoMlnC6to

 

Ha en fin dag!

Vennlig hilsen Ketil

[Underhand-Felons]

Så bra.

Du trenger ikke kunne/forstå koden, men du må ha den med deg over i ditt eget regneark for å bruke funksjonen Sumkode().

Jeg har laget en liten videosnutt som viser hvordan: http://youtu.be/OUUoMlnC6to

 

Ha en fin dag!

Vennlig hilsen Ketil

Mange takk, har kikket på videoen - den ga svaret på det jeg lurte på nå.

Jeg håper du lar videoen ligge ute til over påske, jeg må ta dette når det blir litt tid for ettertanke

 

Ha en fin søndag!

[Underhand-Felons]

 

Så bra.

Du trenger ikke kunne/forstå koden, men du må ha den med deg over i ditt eget regneark for å bruke funksjonen Sumkode().

Jeg har laget en liten videosnutt som viser hvordan: http://youtu.be/OUUoMlnC6to

 

Ha en fin dag!

Vennlig hilsen Ketil

Mange takk, har kikket på videoen - den ga svaret på det jeg lurte på nå.

Jeg håper du lar videoen ligge ute til over påske, jeg må ta dette når det blir litt tid for ettertanke

 

Ha en fin søndag!

 

 

Kjempeflott, ExcelGuru - jeg har fått akkurat det jeg trengte - mange takk og god påske