Avatar billede marten123 Nybegynder
25. juni 2007 - 21:52 Der er 4 kommentarer og
3 løsninger

summere beløb betinget af en anden værdi

jeg har en række data/poster i excel, som for hver kategori skal give 0,-. Gør de ikke det skal der vises en msgbox. fx.:

kategori/bilag (A):    beløb (B):
6                  600
6                  400
6                  -900

bilag 6 giver ikke 0 (men +100). Dvs. den skal komme med en msgbox.

mit spm er: hvordan koder jeg en makro der kan tælle (B) sammen for alle ens typer i (A)? (bilagene står i rækkefølge)

der er muligvis behov for en uddybning :)
Avatar billede excelent Ekspert
25. juni 2007 - 22:45 #1
Sub testSum()
Dim x(500)
Dim rk, z, y, t, t2, t3
rk = Cells(65500, 1).End(xlUp).Row
For t = 1 To rk
If Cells(t, 1) <> "" Then
For t2 = 1 To t3
If Cells(t, 1) = x(t3) Then z = 1 Else z = 0
Next
If z = 0 Then t3 = t3 + 1: x(t3) = Cells(t, 1)
End If
Next

For t = 1 To t3
For t2 = 1 To rk
If Cells(t2, 1) = x(t) Then y = y + Cells(t2, 2)
Next
If y <> 0 Then MsgBox ("Summen af bilag nr. ") & x(t) & " er : " & y
y = 0
Next
End Sub
Avatar billede marten123 Nybegynder
26. juni 2007 - 08:58 #2
hej excelent, Jeg prøver lige at teste ved lejlighed - tak for hurtig respons.
blot lige for at være sikker. Hvilken kolonne har du i din makro angivet som 1) bilag og 2) beløb?
Avatar billede excelent Ekspert
26. juni 2007 - 10:16 #3
bilag i A og beløb i B
Avatar billede excelent Ekspert
17. juli 2007 - 08:27 #4
hvordan går det ?
Avatar billede excelent Ekspert
12. september 2007 - 19:05 #5
*
Avatar billede excelent Ekspert
26. september 2007 - 10:28 #6
?
Avatar billede marten123 Nybegynder
26. oktober 2007 - 11:35 #7
sorry - har været "disconnected" et stykke tid
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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