Excel opgave

Her kan ses et lille billede...

www.lrq.dk/downloads/diesel.jpg

Linket virker ikke?

http://www.lrq.dk/downloads/diesel.jpg

Hov, beklager fejlen, men tak for rettelsen!
Håber der er en som kan hjælpe med det, for jeg kan ikke finde ud af, hvordan jeg får det til at virke...

Men som man kan se i række 12, så blev bilen ikke fyldt helt, hvilket vil sige, at den skal sammenlægge linie 12 samt 13 (og måske flere (hvem ved), og ligeledes sammenlægge samme linie med hensyn til kolonne G, for derefter at returnere værdien i kolonne H.

Håber det gav mening... :-)

Hej zenorph

Kan dette evt. bruges:

Udgangspunktet er dit eksempelark med de respektive kolonner.

Her og nu har jeg oprettet en kommandoknap, som via sin click-hændelse kalder VBA proceduren "JaEllerNej".

Proceduren gør følgende:
- undersøger sidst udfyldte række for "ja" eller "nej"
- hvis "nej" ... gør den ingenting.
- hvis "ja" ... undersøger den rækken før ... indtil der stødes på et "ja"
- Fra den sidst udfyldte række med et "ja" beregner den gennemsnittet "bagud" i rækkerne til forrige "ja"


Totalt volapyk ¤&%!!??¤/&%/ .... men håber det gi´r mening ??

Hvis du ikke vil bruge en knap til at aktivere beregningen efter hver indtastning ?? ... så finder vi sikkert også ud af det!


Men prøv lige om følgende kode virker ...


'Kommandoknap
Private Sub cmdJaEllerNej_Click()

    JaEllerNej

End Sub





'JaEllerNej proceduren
Public Sub JaEllerNej()

    Dim r As Long      'rækkenummeret på den sidst udfyldte række
    Dim i As Long      'tællevariabel til løkken der tæller ned fra sidst udfyldte række
    Dim v As Variant    'værdien af den aktive ja/nej celle
    Dim litertanket As Long 'værdien af liter tanket
    Dim triptæller As Long  'værdien af triptæller
    Dim gnsprltr            'værdien af gennemsnit pr. liter
    Dim tv As Integer      'tællevariabel til række Offset værdien, som tælles ned
   
   
   
   
    'finder den sidste udfyldte ja/nej celle i kolonne C
    r = Range("C65536").End(xlUp).Row
     
    'sætter den sidste udfyldte ja/nej celle i kolonne C ... aktiv
    Range("C" & r).Select
   
    'værdien af den aktive ja/nej celle i kolonne C
    v = ActiveCell.Value
   
   
   
    'undersøg værdien af den aktive ja/nej celle i kolonne C
    Select Case v


        'hvis værdien af den aktive ja/nej celle i kolonne C er "ja"
        Case "ja"

            'tildel variablerne de respektive værdier fra den aktive række (sidst udfyldte)
            litertanket = ActiveCell.Offset(0, 1).Value    'værdien fra kolonne D
            triptæller = ActiveCell.Offset(0, 4).Value      'værdien fra kolonne G


                'tællevariablen til Offset værdien sættes til -1 (der tælles baglæns!)
                tv = -1

                'tællevariabel i sættes = den sidste udfyldte rækkenummer
                For i = r To 1 Step -1
               
               
                        'hvis ja/nej værdien i rækken foran den aktive række er = "ja"
                        If ActiveCell.Offset(tv, 0).Value = "ja" Then
                       
                            'Gennemsnit pr. liter = liter tanket divideret med triptæller
                            gnsprltr = triptæller / litertanket
                           
                            'cellen i kolonne H i den aktive række tildeles kilometergennemsnitsværdien pr. liter.
                            ActiveCell.Offset(0, 5).Value = gnsprltr
                       
                            'forlad løkken
                            Exit For
                       
                       
                       
                        'hvis ja/nej værdien i rækken foran den aktive række er = "nej"
                        ElseIf ActiveCell.Offset(tv, 0).Value = "nej" Then
                       
                            'læg de respektive værdierne fra rækken foran den aktive række til variablerne
                            litertanket = litertanket + ActiveCell.Offset(tv, 1).Value
                            triptæller = triptæller + ActiveCell.Offset(tv, 4).Value
                       
                            'tællevariablen til Offset værdien tælles ned med yderligere 1 (der tælles baglæns!)
                            tv = tv - 1
                           
                           
                        'hvis ja/nej værdien i rækken foran den aktive række er alt andet end "ja" eller "nej" ??
                        Else
                       
                            'Gennemsnit pr. liter = liter tanket divideret med triptæller
                            gnsprltr = triptæller / litertanket
                           
                            'cellen i kolonne H i den aktive række tildeles kilometergennemsnitsværdien pr. liter.
                            ActiveCell.Offset(0, 5).Value = gnsprltr
                       
                            'forlad løkken
                            Exit For
                                           
                                           
                        End If
               
                           
                Next
       


        Case "nej"

            'Vent med at beregne til vi støder på et "ja" !!!
           
           
    End Select
   
   
 
End Sub



Med venlig hilsen, Nicolai

Troede slet ikke det ville være så indviklet :-(

Er slet ikke dygtig nok til at lave det du skriver :-(
Så skal jeg hellere finde en, som er Excel haj, som kan danne dokumentet, hehe!

Men tusind tak for hjælpen, og du er naturligvis helt velkommen til at smide et svar :-)

Hej zenorph

Hermed et "svar" ... men det er nu ikke så langhåret endda :o)

Hvis du er interesseret, så vil jeg gerne hjælpe dig med at oprette knappen (eller aktivere koden på anden vis)+ kopiere koden ind i dit Excel ark ??

Du kan evt. maile arket til mig.
Adressen finder du under profiloplysningerne.

mvh Nicolai

Jeg har prøvet at lave en løsning her
http://www.gratisupload.dk/download/47480/
hvor der ikke bruges makro.
Men de første rækker skal udfyldes af dig (markeret med rødt), og så skal bilen have en fyld tank mindst hver 5 gang

Hej zenorph

Tror faktisk jeg har en brugbar løsning ... uden knap.

Når der er tastet data ind i kolonnerne fra A til E og kolonne F og G automatisk er beregnet af Excel ... aktiveres den underliggende vba kode, som beregner kolonne H udfra om der er "ja" eller "nej" i kolonne C.

Det eneste du umiddelbart skal gøre er:
Skrive to små koder i første datarække (række 2) i kolonne F og G.
Kopiere koderne nedad i kolonne F og G
Slette koden i første datarække (række 2) i kolonne G
Kopiere vba kode ind i arkets Change-hændelse.
Kopiere vba kode ind i arkets generelle afsnit.

Og det var vist det ...

Er du interesseret ?, så gi´ lyd :o)

mvh Nicolai