Avatar billede hillmann Nybegynder
08. juli 2008 - 11:00 Der er 7 kommentarer og
4 løsninger

Excell formel

Hej.
Jeg sidder med et regne som ser du som nedenstående.

Kundenr - Produkt - xx - xx - xx
111          A
111          B
111          C
222          B
222          C

Det jeg gerne vil er at rydde lidt op i listen. Dvs. den kun skal vise højest rangeret produkt på hver kunde, i dette viste eksempel er produkt A højest på¨kundenr 111 og ved kundenr 2 er B højeset. Der skal kun fremgå et kundenr pr linje med højest rangeret produkt. Håber der sidder en som forstå mit spørgsmål og som kan hjælpe mig. PFT. Vh Bo
Avatar billede mowi Nybegynder
08. juli 2008 - 11:32 #1
Ligger der et tal bag højest rangeret produkt?

Hvis der gør, så kan du anvende en pivottabel, der i dataområdet viser "max" for hver kunde.
Avatar billede hillmann Nybegynder
08. juli 2008 - 11:38 #2
nej desværre ikke, men kan man ikke hurtigt lave en kolonne mere med en hvis formel?
Avatar billede hillmann Nybegynder
08. juli 2008 - 12:29 #3
har lige tilføjet en kolonne hvor jeg rangerer de 3 produkter med hhv 1,2 og 3 hvor 1 er højest. Der kommer stadig flere linjer pr kundenr, hvad gør jeg galt?
Avatar billede excelent Ekspert
08. juli 2008 - 13:04 #4
Denne kode bevarer første forekomst af alle kundenumre
alle øvrige række slettes, så prøv lige på en kopi først

Marker kundenumre og kør makro

Sub Rydop()
r1 = ActiveCell.Row
r2 = Selection.Rows.Count + r1 - 1
kol = Selection.Column

For t = r1 To r2
For t2 = t + 1 To r2
If Cells(t, kol) = Cells(t2, kol) Then Cells(t2, kol) = ""
Next
Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Avatar billede hillmann Nybegynder
09. juli 2008 - 11:05 #5
Takker...den vil jeg prøve. Men vil da gerne vide/lære hvordan man løser denne problemstilling...så kan du ikke fortælle hvad makroen gør :-) tak tak.
Avatar billede excelent Ekspert
09. juli 2008 - 11:31 #6
Denne skjuler uønskede rækker, det er måske mere det du søger
så den kan køres uden risiko da du efterfølgende blot kan unhide rækkerne igen

Sub Skjul()
r1 = ActiveCell.Row
r2 = Selection.Rows.Count + r1 - 1
kol = Selection.Column

For t = r1 To r2
For t2 = t + 1 To r2
If Cells(t, kol) = Cells(t2, kol) Then Rows(t2).EntireRow.Hidden = True
Next
Next
End Sub
Avatar billede hillmann Nybegynder
10. juli 2008 - 15:34 #7
hvordan lukker jeg spørgsmålet og giver point??? :-)
Avatar billede excelent Ekspert
12. juli 2008 - 16:31 #8
marker box med navn og klik accepter
Avatar billede excelent Ekspert
16. juli 2008 - 18:19 #9
husk lige at lukke
Avatar billede excelent Ekspert
26. juli 2008 - 10:33 #10
husk lige at lukke
Avatar billede excelent Ekspert
31. juli 2008 - 12:16 #11
?
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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