Notifikationer

Markér alle som læst Log ud

peaceofcake Nybegynder

16. april 2004 - 11:22 Der er 5 kommentarer og
1 løsning

Combo: Hvis værdi1 er valgt udføres regneformel i celle. Hvordan?

Hejsa

Jeg er rimelig ny i VBA, men til en faktura-makro skal jeg have lavet en funktion, der gør følgende:

På min userform findes flere ens comboboxe med en vareliste, hvortil hører to textboxe, hvor antal og beløb indtastes.
Værdierne insættes på regnearket på hver sin linie.

Eks:

Vare3 2 10,00
Vare1 3 20,00
Vare4 7 47,00

Nu skal jeg have lavet en funktion, der i en celle på regnearket indsætter en værdi, hvis man har valgt nogle bestemte varer fra comboboxen.
Hvis man vælger "Vare1" og/eller "Vare3" og dertil fx. antal "3" og "4" skal funktionen vælge summen af disses antal og gange den med 600. Men KUN hvis man har valgt "Vare1" eller "Vare3".
Og samtidig skal det være underordnet på hvilken linie på fakturaen "Vare1" og "Vare3" evt. er valgt.

Kan man det?

Synes godt om

jkrons Professor

16. april 2004 - 11:36 #1

Denne kode kører EFTER at tallene er sat ind i arket.

cnt = 0
For Each c In Sheets("Ark1").Range("a1:a10").Cells
If c.Value = "Vare1" Or c.Value = "Vare3" Then
a = a + c.Offset(0, 1).Value
End If
Next c
If a > 0 Then
a = a * 600
End If

Ret arknavn og område. Den forudsætter at antal står i cellen lige til højre for Varenavn.

Synes godt om

jkrons Professor

16. april 2004 - 11:37 #2

Du ender så med at have værdierne ganget med 600 i variablen a. Den kan du så sætte ind, hvor du vil.

Synes godt om

peaceofcake Nybegynder

16. april 2004 - 11:50 #3

Hvad så hvis jeg vil have sat resultatet ind i fx. celle "C20"...?

Synes godt om

jkrons Professor

16. april 2004 - 11:52 #4

Så slutter du med

Sheets("Ark1).Range("c20").value = a

lige inden den sidste End If

Synes godt om

peaceofcake Nybegynder

16. april 2004 - 11:56 #5

Wooohooo! Det virker! ;-)

Tusind tak!

Synes godt om

jkrons Professor

16. april 2004 - 11:58 #6

Velbekomme :-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre tal i en celle Af xvid i Excel	1	04/09/202616:05	04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel	7	31/08/202610:24	04/09/202602:08
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	18	17/08/202615:14	05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS