Oprettet søn. d. 05. februar 2012 kl. 16:31:29

Jadl_2990
Jadl_2990 (780 point. Point ude: 30)

Opsummering af værdier i ét felt

Hvordan forøges en celles værdi med den værdi der skrives ind i en anden celle, hver gang den anden celle ændres?

Et hold elever får udleveret udleveret forskellige "produkter" på et aftenskole hold.
Hver gang en elev henter noget, så noterer de det i et regneark
De vælger deres navn i A1(liste A5:A10)og vælger "produkt" (liste B4:F4) i B1. Derefter taster de antal i C1 og trykker [Enter] herefter skal tabellen opdateres så man kan se hvor mange af hvert produkt den enkelte elev har anvendt.

Det svarer til et "ølregnskab" eller stakit optælling.
Listerne er ikke noget problem.
______________________________________________________________
A1        B1              C1
Bo        Produkt 2  18 

                Produkter
Elev navn  produkt 1 produkt 2 produkt 3  produkt 4 produkt 5
Bo                                    18
Lise
Hanne
Per
Ib
Sonja

Når Bo senere går op og tager 2 stk. af produkt 2 så skal skemaet opdateres så der står 20 i D5 og så fremdeles...

Når man trykker [Enter] så skal D5=D5+C1
Det må gerne være en makro.
Jeg synes ikke at kunne finde en funktion til det.

Og som sadvanligt så er der undervisning igen mandag ;-)

Skrevet søn. d. 05. februar 2012 kl. 20:32:43| #1

kabbak
kabbak (152.524 point)
www.kabbak.dk
Hvis du bruger A1, B1 og C1 til indtastning og lader række 4 være tom, så burde denne gøre det i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Data As Variant, I As Integer, X As Integer
    If Target.Address = "$C$1" Then
        If [A1] <> "" And [B1] <> "" Then
            Data = [A5].CurrentRegion
            For I = 2 To UBound(Data, 1)
                If UCase(Data(I, 1)) = UCase([A1]) Then Exit For
            Next
            For X = 2 To UBound(Data, 2)
                If UCase(Data(1, X)) = UCase([B1]) Then Exit For
            Next
            Data(I, X) = Data(I, X) + [C1]
            [A5].CurrentRegion = Data
        End If
    End If
End Sub

Skrevet man. d. 06. februar 2012 kl. 00:57:57| #2

Jadl_2990
Jadl_2990 (780 point)
Hmmm

Der sker ikke noget i regnearket når jeg taster noget ind i A1 B1 og C1.

Kan du sende mig dit test ark på jesper.adler(a)gmail.com?

Skrevet man. d. 06. februar 2012 kl. 08:27:14| #3


Skrevet man. d. 06. februar 2012 kl. 17:14:47| #4

Jadl_2990
Jadl_2990 (780 point)
Hej Kabbak

Tak for dit fine svar, det virkede efter hensigten.

Det ville være dejligt hvis det var muligt at vedhæfte en fil til et spørgsmål, så kunne man få meget mere ud af de mange svar og som ligger her inde.

Et eksempel siger mere end 1000 ord!

Nå men det er jo noget helt andet og sikkert ikke noget du kan ændre på...

Endnu en gang tak.

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   

   

Seneste spørgsmål

hjælp til at lave et træningsprogram

Oprettet den 26. maj 2012 kl. 20.44
janskov giver 30 point for svar | Giv et svar »

Datavalidering med anden workbook som referance

Oprettet den 26. maj 2012 kl. 09.05
KenneyD71 giver 60 point for svar | Giv et svar »

Søgeformel i Excel

Oprettet den 25. maj 2012 kl. 23.28
Torben1970 giver 60 point for svar | Giv et svar »



   




Tips & Tricks fra PC World

Teaser billede

Læserne: Her er vores værste it-indkøb

Det er ikke al it-udstyr, som er det rene guld. Her er nogle af læsernes skrækhistorier.


Anmeldelser fra PC World

Teaser billede

Test: Mobil med Ferrari-design - og en Trabant-motor

Motorola har begået endnu en smartphone med lækkert design og potentiale til at være blandt de bedste. Men den når ikke i mål. Se her hvorfor.


Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...


Nyheder fra PC World

Teaser billede

Sådan siger du farvel til Facebook

Læs her, hvordan du dropper Facebook og i stedet anvender nogle brugervenlige alternativer, så du stadig kan være social på nettet.


Nyheder fra Computerworld

Teaser billede

Galleri: De fedeste håndholdte gennem 40 år

Her har du de mest banebrydende håndholdte computere gennem alle tider.


Kurser
Samarbejdspartnere

Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger