Petit

Hei! (endret`!)

Skal lage en makro som går igjennom en medlemsliste og skriver ut medlemmenes energiforbruk i en kolonne (utstartcelle) i samme regneark som inndata ("Medlemmer").

Så langt har jeg kludret meg frem til dette:

Sub MedlemEnergiF()

Dim Rekke, Kolonne, Kjønn, Alder, Høyde, Vekt, Aktivitetsnivå, kjønnsfaktor

Dim Startcelle

Startcelle = Range("Startcelle")

Rekke = Range("Startcelle").Row

Kolonne = Range("Startcelle").Column

Kjønn = Worksheets("Medlemmer").Cells(Rekke, Kolonne).Value

Alder = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 1).Value

Høyde = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 2).Value

Vekt = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 3).Value

Aktivitetsnivå = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 4).Value

With Worksheets("Medlemmer")

Do Until Cells(Rekke, Kolonne - 5).Value = ""

If .Cells(Rekke, Kolonne) <> "" And .Cells(Rekke, Kolonne + 1) <> "" And .Cells(Rekke, Kolonne + 2) <> "" And .Cells(Rekke, Kolonne + 3) And .Cells(Rekke, Kolonne + 4) <> "" Then

.Cells(Rekke, Kolonne + 5) = Energiforbruk(Høyde, Vekt, Alder, Kjønn, Aktivitetsnivå)

Else

.Cells(Rekke, Kolonne + 5) = ("Mangler data")

End If

Rekke = Rekke + 1

Loop

End With

End Sub

Function Energiforbruk(Høyde, Vekt, Alder, Kjønn, Aktivitetsnivå)

Dim kjønnsfaktor, aktivitetsfaktor

Const conMann = 5

Const conKvinne = -161

Const conLav = 1.3

Const conVanlig = 1.4

Const conHøy = 1.5

If UCase(Aktivitetsnivå) = "HØYT" Then

If UCase(Kjønn) = "M" Then

kjønnsfaktor = conMann

ElseIf UCase(Kjønn) = "K" Then

kjønnsfaktor = conKvinne

End If

aktivitetsfaktor = conHøy

End If

If UCase(Aktivitetsnivå) = "VANLIG" Then

If UCase(Kjønn) = "M" Then

kjønnsfaktor = conMann

ElseIf UCase(Kjønn) = "K" Then

kjønnsfaktor = conKvinne

End If

aktivitetsfaktor = conVanlig

End If

If UCase(Aktivitetsnivå) = "LAVT" Then

If UCase(Kjønn) = "M" Then

kjønnsfaktor = conMann

ElseIf UCase(Kjønn) = "K" Then

kjønnsfaktor = conKvinne

End If

aktivitetsfaktor = conLav

End If

Energiforbruk = ((((Vekt * 10) + (Høyde * 6.25) - (Alder * 5) + (kjønnsfaktor)) * aktivitetsfaktor))

End Function

____

Så langt regner den bare ut for det øverste medlemmet og virker ikke som den oppdaterer rekketelleren? Hva er galt?

Takk.

I dag var han god!

Sinnsykt herlige driblinger og konge-mål!

Synes imidlertidig stabæk spilte rotete i andre omgang i dag, men første omgang var bra

Hvis øystein bestemmer seg for at han ikke vil gifte seg med meg, så gifter jeg meg med alan!

Vi gjorde det i garasjen til foreldrene hans en gang.

Det var koselig

.

Enig i at han har vært ujevn i spillet i det siste.

Synes at han har enten en veldig god og "aktiv" dag, eller så er han bare på banen fordi han må.

Derimot er jeg veldig glad for at Alan signerte ny kontrakt

-P

* Jeg sikler i søvne av og til

* Jeg markerer ALLTID tekst når jeg leser (som mange andre her inne)

* Selvom jeg kan se at ytterdøren er låst må jeg alltid kjenne på den

* Jeg pleier å se på rumpene til de som går foran meg

* Jeg ser på hånden min etter at jeg har håndhilst på noen

* Jeg snakker (og kjefter) på meg selv

* Når jeg skal skru på tven MÅ jeg alltid trykke på 5 tallet. Det går ikke å trykke på 1 eller 3!

* Jeg ler inni meg av andre når de dummer seg ut

Gjør sikkert mange andre ting også som jeg ikke kommer på nå.. =P

Hvis du er jente kan det komme av hormoner ved eggløsning.

Har et par kviser selv som bare kommer frem i perioden rundt eggløsning.

Hvor sundt er det egentlig å smøre et tungmetall under armene?

Det at man ikke svetter under armene betyr ikke at man slutter å svette, men at svetten kommer ut andre steder. Nevner i fleng; Håndflater, rygg, rumpesprekk, bak knærne, pannen, overleppe....

Husker du å puste imens du holder på?

Når jeg løper glemmer jeg å puste, og da får jeg sinnsykt vondt i hodet!

Noe som faktisk har hjulpet meg er å ta tran!

Du kan jo kjøpe A-vitaminkremer mot kviser, og det er A-vitamin i tran, så hvorfor ikke få det i seg innenifra?

Heihei!

Satt ved frokostbordet nå nettopp og skulle ta tranpillene mine som jeg hadde funnet frem før jeg satte meg.

MEN de var borte! Så jeg frant frem to til og svelget dem unna Nå kom jeg på at jeg faktisk tok de tre jeg fant frem i morges, så jeg har altså tatt 5 stykker i dag.

Har gjort dette før, og har ikke merket noen forskjell fra de dagene jeg bare tar to.

Men på boksen står det at anbefalt dagsdose (2 kapsler) ikke bør overskriedes.

Så til spørsmålet.. Hvorfor? Er det farlig å ta for mye tran? Kan man dø av fiskefett, eller får man simpelthen bare lettere løs mage?

1. Hvor mye veier du på morgenen?

2. Er du fornøyd med vekten din?

3. Hvor mye skulle du likt å veie?

4. Hvor høy er du?

5. Er du gutt eller jente?

6. Trener du jevnlig?

7. Hvor gammel er du?

1. 41,3

2. Ja

3. Jeg er fornøyd

4. 1.50

5. Jente

6. Neup.. Jeg er litt lat

7. 17

Playstation 3!

Det ønsker jeg meg ihvertfall.. Og Stabæk-genser.

Jeg må finne ut hva som er forskjellen på "svar" og "nytt emne"

blablabla