[Excel] Het grote Excel vragen topic #28

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue
  donderdag 10 november 2011 @ 13:57:47 #151
62215 qu63
..de tijd drinkt..
pi_104200751
quote:
0s.gif Op donderdag 10 november 2011 13:50 schreef Mednor het volgende:
hmm die werkbalk tekenen werkt juist niet handig.. en ik ken MS Visio helemaal niet..

Bedankt voor de andere optie van pijl tekenen, maar dat ziet er nogal amateuristisch uit. ik kan me haast niet voorstellen dat je tegelijk een pijl kunt trekken tussen bepaalde cellen. weet iemand hoe dit moet??
Excel is gemaakt om formules en getallen te verwerken, niet om stroomdiagrammen, processen en organogrammen te maken, daar is MS Visio voor.

Excel snapt dus niet dat jij een bedrijfsproces hebt getekend. Enige optie is dus om zelf de werkbalk tekenen er bij te pakken en dan aan de slag te gaan.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_104201172
Klopt, kan niet, hoort niet, moet niet.. Enfin you get the point.
pi_104203505
that sucks :(

toch bedankt voor de reacties!
pi_104206791
quote:
0s.gif Op donderdag 10 november 2011 12:11 schreef Mednor het volgende:
Ik loop bij excel tegen het volgende aan: ik heb bedrijfsprocessen in kaart gebracht. elk proces is een aparte kolom waarbij elke handeling een cel is. Tussen de handelingen heb ik een rij leeg gelaten.

nu moet op elke lege rij een pijl tussen de cellen komen
[...]
quote:
0s.gif Op donderdag 10 november 2011 14:10 schreef DaFan het volgende:
Klopt, kan welniet, hoort niet, moet niet.. Enfin you get the point.
Daar heb ik een macro voor die als je twee cellen hebt geselecteerd er een pijl tussen tekent, maar eigenlijk hoort het gewoon in een flowchart (visio of word)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114		Sub ArrowDraw()
'tekent 2 pijlen tussen 2 geselecteerde cellen.
    Dim Rcell As Range
    Dim RngAryCellsSelectedX(2) As Long
    Dim RngAryCellsSelectedY(2) As Long
    
    Dim DblArrowStartX As Double
    Dim DblArrowStartY As Double
    Dim DblArrowEndX As Double
    Dim DblArrowEndY As Double
    
    Dim i As Long
    
    
    If Selection.Cells.Count <> 2 Then Exit Sub
    
    i = 0
    For Each Rcell In Selection
        i = i + 1
        RngAryCellsSelectedY(i) = Rcell.Row
        RngAryCellsSelectedX(i) = Rcell.Column
        
    Next Rcell
    
    For Each Rcell In Selection
        Rcell.Borders(xlDiagonalDown).LineStyle = xlNone
        Rcell.Borders(xlDiagonalUp).LineStyle = xlNone
        With Rcell.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Rcell.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Rcell.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Rcell.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    Next Rcell
    
    
    If Abs(RngAryCellsSelectedX(1) - RngAryCellsSelectedX(2)) >= 2 Then
        
        With ActiveWorkbook.ActiveSheet
            
            If RngAryCellsSelectedX(1) < RngAryCellsSelectedX(2) Then
                
                DblArrowStartX = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Left + .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Width
                DblArrowStartY = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Top + .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Height / 2
                DblArrowEndX = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Left
                DblArrowEndY = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Top + .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Height / 2
                ActiveSheet.Shapes.AddLine(DblArrowStartX, DblArrowStartY, DblArrowEndX, DblArrowEndY).Select
                Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
                Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
                Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
            
            Else
                
                DblArrowStartX = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Left + .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Width
                DblArrowStartY = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Top + .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Height / 2
                DblArrowEndX = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Left
                DblArrowEndY = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Top + .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Height / 2
                ActiveSheet.Shapes.AddLine(DblArrowStartX, DblArrowStartY, DblArrowEndX, DblArrowEndY).Select
                Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadTriangle
                Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium
                Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
            
            End If
        
        End With
        
    Else
        
        If Abs(RngAryCellsSelectedY(1) - RngAryCellsSelectedY(2)) < 2 Then Exit Sub
        
        With ActiveWorkbook.ActiveSheet
            
            If RngAryCellsSelectedY(1) < RngAryCellsSelectedY(2) Then
                
                DblArrowStartX = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Left + .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Width / 2
                DblArrowStartY = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Top + .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Height
                DblArrowEndX = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Left + .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Width / 2
                DblArrowEndY = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Top
                ActiveSheet.Shapes.AddLine(DblArrowStartX, DblArrowStartY, DblArrowEndX, DblArrowEndY).Select
                Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
                Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
                Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
            
            Else
                
                DblArrowStartX = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Left + .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Width / 2
                DblArrowStartY = .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Top + .Cells(RngAryCellsSelectedY(2), RngAryCellsSelectedX(2)).Height
                DblArrowEndX = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Left + .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Width / 2
                DblArrowEndY = .Cells(RngAryCellsSelectedY(1), RngAryCellsSelectedX(1)).Top
                ActiveSheet.Shapes.AddLine(DblArrowStartX, DblArrowStartY, DblArrowEndX, DblArrowEndY).Select
                Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadTriangle
                Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium
                Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
            
            End If
        End With
    
    End If
    
End Sub


[ Bericht 0% gewijzigd door Deetch op 11-11-2011 08:58:02 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_104310968
Oke ik werk dus nooit met Excel, vandaar dit stomme vraagje; Ik wil een cijferlijst onderhouden, met in een bepaalde kolom cijfers onder de 5.5 een rode kleur en 5.5 of hoger groen. Iemand enig idee hoe ik dit moet doen? Ik zit bij voorwaardelijke opmaak te kloten maar het lukt niet echt. Iemand die mij dit kan uitleggen?
  zondag 13 november 2011 @ 11:17:51 #156
65252 Bart
Slecht voor de gezondheid
pi_104311032
quote:
0s.gif Op zondag 13 november 2011 11:14 schreef -tape- het volgende:
Oke ik werk dus nooit met Excel, vandaar dit stomme vraagje; Ik wil een cijferlijst onderhouden, met in een bepaalde kolom cijfers onder de 5.5 een rode kleur en 5.5 of hoger groen. Iemand enig idee hoe ik dit moet doen? Ik zit bij voorwaardelijke opmaak te kloten maar het lukt niet echt. Iemand die mij dit kan uitleggen?
Google zoeken naar voorwaardelijke opmaak excel en je zal alles vinden wat je wil weten ;).
I have the cape. I make the fucking Whoosh noise.
Op donderdag 12 juli 2012 19:56 schreef Lithia het volgende:
Ik durf hier niets over te zeggen. Bart is koning hier.
pi_104311544
Top, is gelukt! Wat is Excel toch een aidsprogramma.
pi_104343333
quote:
0s.gif Op zondag 13 november 2011 11:40 schreef -tape- het volgende:
Top, is gelukt! Wat is Excel toch een aidsprogramma.
foei! o|O

Gebrek aan kennis is geen excuus om "de computer" de schuld te geven.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  woensdag 16 november 2011 @ 10:57:19 #159
95427 Hephaistos.
¯¯¯¯¯¯¯¯¯¯¯¯¯
pi_104428930
Ik heb een lijst met gegevens, waar ik graag de dubbele (die in zowel kolom A als B voorkomen) met een 1 gemarkeerd wil zien in kolom C.

Dus:

A ------ - B ------ - C
Piet - Sander - 0
Jan - Henk - 1
Kees - Marinus - 0
Kees - Kees - 1
Henk - Piet - 1

Dit moet natuurlijk kunnen, en is waarschijnlijk ook nog supersimpel, maar het lukt me maar niet. Wie kan helpen?
  woensdag 16 november 2011 @ 11:28:10 #160
62215 qu63
..de tijd drinkt..
pi_104429941
quote:
0s.gif Op woensdag 16 november 2011 10:57 schreef Hephaistos. het volgende:
Ik heb een lijst met gegevens, waar ik graag de dubbele (die in zowel kolom A als B voorkomen) met een 1 gemarkeerd wil zien in kolom C.

Dus:

A ------ - B ------ - C
Piet - Sander - 0
Jan - Henk - 1
Kees - Marinus - 0
Kees - Kees - 1
Henk - Piet - 1

Dit moet natuurlijk kunnen, en is waarschijnlijk ook nog supersimpel, maar het lukt me maar niet. Wie kan helpen?
je vraag komt redelijk overeen met deze: [Excel] Het grote Excel vragen topic #28
Die is zo opgeost: [Excel] Het grote Excel vragen topic #28
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 16 november 2011 @ 13:58:44 #161
95427 Hephaistos.
¯¯¯¯¯¯¯¯¯¯¯¯¯
pi_104434553
Thanks ^O^
pi_104465026
pivot vraag

Kun je een aantal.als() gebruiken in een pivot?
Heb namelijk een kolom in een data bereik waarin ofwel een 1, 2, 3, 4, 5 of hoger dan 5 staat,
en ik wil in mijn pivot dan ook zien hoeveel enen, tween, etc er zijn :)
  donderdag 17 november 2011 @ 11:12:32 #163
62215 qu63
..de tijd drinkt..
pi_104468474
quote:
0s.gif Op donderdag 17 november 2011 08:48 schreef Holy_Goat het volgende:
pivot vraag

Kun je een aantal.als() gebruiken in een pivot?
Heb namelijk een kolom in een data bereik waarin ofwel een 1, 2, 3, 4, 5 of hoger dan 5 staat,
en ik wil in mijn pivot dan ook zien hoeveel enen, tween, etc er zijn :)
Als in A1:C5 je pivot staat kan je in D1 gewoon aantal.als() zetten.. Of is dat niet wat je bedoelt?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_104469394
Hej vraagje:

ik heb een vergelijking tussen 2 cellen (A1 en B1) waarbij als ze gelijk zijn "1" als uitkomst/waarde moet komen in een andere cel (C1). Dat lukt, maar ik wil dat als de 2 te vergelijken cellen (A1 en B1) nog leeg zijn (blank) dat de uitkomst in C1 ook blank is. Nu staat er namelijk 1 omdat blank=blank gelijk is. Snap je? Dus:

=IF(A1=B1;"1")

Maar dan wil ik een uitzondering maken als ze leeg zijn. Ik heb iets gelezen met =ISBLANK, maar hoe toe te passen?

Alvast bedankt.
  donderdag 17 november 2011 @ 11:58:14 #165
74976 JDude
groetjes, veldmuis
pi_104469712
IF(AND(ISBLANK(A1);ISBLANK(B1));""; ... en dan de rest van je formule. Zoiets, uit m'n hoofd. Jammer dat ik nog geen Excel heb op deze laptop, anders was ik wel even wat gaan prutsen.
It's always around me, all this noise
But not nearly as loud as the voice saying
"Let it happen, let it happen (It's gonna feel so good)
Just let it happen, let it happen"
  donderdag 17 november 2011 @ 12:09:01 #166
62215 qu63
..de tijd drinkt..
pi_104470036
quote:
7s.gif Op donderdag 17 november 2011 11:58 schreef JDude het volgende:
IF(AND(ISBLANK(A1);ISBLANK(B1));""; ... en dan de rest van je formule. Zoiets, uit m'n hoofd. Jammer dat ik nog geen Excel heb op deze laptop, anders was ik wel even wat gaan prutsen.
Zo werkt ie alleen als A1 én B1 leeg zijn, als je AND vervangt door OR kan een van beide leeg zijn..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 17 november 2011 @ 12:10:43 #167
74976 JDude
groetjes, veldmuis
pi_104470086
quote:
0s.gif Op donderdag 17 november 2011 12:09 schreef qu63 het volgende:

Zo werkt ie alleen als A1 én B1 leeg zijn, als je AND vervangt door OR kan een van beide leeg zijn..
Maar als één van beide leeg is zijn ze niet gelijk, dus moet de uitkomst toch al 0 zijn :P.
It's always around me, all this noise
But not nearly as loud as the voice saying
"Let it happen, let it happen (It's gonna feel so good)
Just let it happen, let it happen"
  donderdag 17 november 2011 @ 12:14:31 #168
62215 qu63
..de tijd drinkt..
pi_104470206
quote:
6s.gif Op donderdag 17 november 2011 12:10 schreef JDude het volgende:

[..]

Maar als één van beide leeg is zijn ze niet gelijk, dus moet de uitkomst toch al 0 zijn :P.
TRUE

:P
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_104470966
quote:
0s.gif Op donderdag 17 november 2011 11:12 schreef qu63 het volgende:

[..]

Als in A1:C5 je pivot staat kan je in D1 gewoon aantal.als() zetten.. Of is dat niet wat je bedoelt?
uhms... ik heb sheet 1:
kolom A-Z: berg data
kolom AA: getallen tot en met 10

dan in sheet 2 een pivot van kolom A-AA
Daarin wil ik een veld hebben die mij aangeeft hoeveel getallen er 1 zijn in kolom AA,
hoeveel er 2 zijn in kolom AA, ... hoeveel er > 5 zijn in AA
  donderdag 17 november 2011 @ 12:41:19 #170
74976 JDude
groetjes, veldmuis
pi_104471039
Kolom AB vullen met alleen maar 1-tjes. Dan een draaitabel maken van de kolommen AA en AB, waarbij AA op de "y-as" komt te staan en AB wordt geteld.
It's always around me, all this noise
But not nearly as loud as the voice saying
"Let it happen, let it happen (It's gonna feel so good)
Just let it happen, let it happen"
pi_104493148
ik heb nu

IF(AND(ISBLANK(A1);ISBLANK(B1));"";)

dus nu heb ik bij een lege A1 en een lege B1 een waarde 0 in "C1".

Zolang de waarde bij A1 en B1 leeg is, moet waarde C1 ook nul zijn. Als waarde van A1 en B1 gelijk zijn (beide 1 of 2 enz..) dan moet C1 waarde 1 hebben. Dat is nu dus niet het geval.. Hoe vul ik die formule dan aan? :|W
pi_104493311
'Waarde 0' is niet hetzelfde als leeg...
Je krijgt nu een lege cel als A1 en B1 leeg zijn.
Je krijgt 0 omdat je geen nieuwe IF hebt als de eerste IF onwaar is.

Je formule zou volgens mij moeten worden;
=IF(AND(ISBLANK(A1);ISBLANK(B1));0;IF(A1=B1;1;0))
pi_104496564
Thanks so far DaFan!

Wat ik fout deed was dat A1 en B1 hun waardes ook weer uit andere cellen (D1 en D2) halen. A1 haalt zijn waarde uit D1, B1 uit D2. Daarnáááá ga ik pas A1 en B1 vergelijken en gebruik ik jouw formule om 0 of 1 punt toe te kennen. Maar wat moet ik dan bij A1 invoeren? =D1 klopt dus niet want dan krijg ik 0 in A1.

=OR(ISBLANK(D1));0;OR(D1)) werkt natuurlijk ook niet. Ik moet gewoon de waarde van D1 in A1 krijgen tenzij D1 blank is dan A1 blank zijn... t lijkt zo makkelijk
pi_104496804
=IF(ISBLANK(D1);"";D1)
pi_104553989
Na een export van outlook in excel staat er een kolom met telefoon nummers onder het verkeerde label. Deze meot aangepast worden om daarna terug te zetten in outlook. Echter voor alle nummers moet een + teken worden toegevoegd. Hoe krijg ik dit in godsnaam voor elkaar? :'). Bijkomend feit dat een deel van de vakjes in de kolom geen nummer bevatten en dus dienen te worden overgeslagen.

Het zijn 600 contacten dus heb weinig behoefte om dit met de hand te gaan doen. :')

edit: hmm lijkt alsof ik wat heb gevonden dat ikw eer kan knippen en plakken: ="+"&AL3

[ Bericht 6% gewijzigd door jpjedi op 19-11-2011 16:15:47 ]
pi_104620796
Ik heb in excel twee tabbladen. Blad 1 is gevuld met een lijst op deze manier:
1
2
3
4
5
6
7
8
9		Kolom A    Kolom B
NUMMER
                onderdeel1
                onderdeel2
                onderdeel3
NUMMER
                onderdeel1
                onderdeel2
etc.
(de nummers zijn uniek, de onderdelen niet)
Nu heb ik op tabblad twee een lijst met alleen de nummers staan:

1
2
3
4
5		Kolom A
NUMMER
NUMMER
NUMMER
etc

Hoe kan ik dan de nummers van blad 2 snel/automatisch koppelen aan die van blad 1 zonder dat ik elke keer: =Blad1!A1 etc. in hoef te tikken? Vulgrepen heeft geen zin aangezien ik de witregels niet mee wil nemen. Dit is inmiddels gelukt door toch te vulgrepen en de nullen weg te halen met wat VB :)

En dan nog iets:
Ik wil de onderdelen in blad 1 eigenlijk koppelen aan de nummers. Zodat ik in blad 2 twee of meer nummers kan vergelijken en dat mij dan verteld wordt hoeveel en welke onderdelen overeenkomen en hoeveel unieke onderdelen ze bevatten.

Uiteindelijk wil ik dan ook nog eens verschillende excel documenten aan elkaar koppelen, maar eerst dit maar eens :P
Alvast bedankt voor hulp!

[ Bericht 4% gewijzigd door Jesse_ op 21-11-2011 11:54:17 ]
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_104627197
Nog een vraagje:

Ik heb dit script gemaakt (uit andere voorbeelden):

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16		Sub Nummer_uitlijn()
Rw = 1
LastRow = 8000
NxtChk:
If [ISBLANK(Rw, "B")] Then
Rw = Rw + 1
Else
Rows(Rw, "A").Select
Selection.Insert Shift:=xlDown
Rw = Rw + 1

 End If
If Rw = LastRow Then Exit Sub

GoTo NxtChk
End Sub

De bedoeling is dat dit script kijkt of een vak in kolom B leeg is en als deze niets moet hij de cellen in kolom A naar beneden schuiven.
Ik begin met data die er zo uit ziet:

1
2
3
4
5
6
7		Kolom A Kolom B
12             
32            A
sd            A
3            
2              B
asd           

En als het klaar is moet het dit gemaakt hebben:

1
2
3
4
5
6
7		Kolom A Kolom B
12             
                A
                A
32            
                B
sd           

Maar het script werkt niet :P De error die ik krijg is 13 type mis match.
Aangezien dit mijn eerste VBA script is zie ik niet waar het fout gaat en van google word ik ook niet veel wijzer.
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_104629566
Welke regel? Ik denk...4
pi_104631437
quote:
0s.gif Op maandag 21 november 2011 14:46 schreef DaFan het volgende:
Welke regel? Ik denk...4
Regel 4 is een label en wordt later ook opnieuw aangeroepen. Dat zou moeten werken volgens mij.
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_104632592
Het is de enige regel waar iets vergeleken wordt, ik dacht dat dat wel een vereiste was voor error 13. Ik kijk vanavond even.
pi_104640273
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20		Sub Nummer_uitlijn()

    Rw = 1
    LastRow = 15
    
NxtChk:
    
    If Range("B" & Rw).Value = "" Then
        Rw = Rw + 1
    Else
        Cells(Rw, 1).Select
        Selection.Insert Shift:=xlDown
        Rw = Rw + 2
    End If
    
    If Rw = LastRow Then Exit Sub
    
    GoTo NxtChk
    
End Sub
pi_104642749
quote:
7s.gif Op maandag 21 november 2011 18:37 schreef DaFan het volgende:

[ code verwijderd ]

Dank je. Met een kleine aanpassing doet het precies wat ik nodig heb :)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20		Sub Nummer_uitlijn()

    Rw = 1
    LastRow = 100
    
NxtChk:
    
    If Range("B" & Rw).Value = "" Then
        Rw = Rw + 1
    Else
        Cells(Rw, "A").Select
        Selection.Insert Shift:=xlDown
        Rw = Rw + 1
    End If
    
    If Rw = LastRow Then Exit Sub
    
    GoTo NxtChk
    
End Sub

Nu kan ik mijn data ordenen en dan het belangrijkste, vergelijken.
Wat ik hiervoor wil doen is onderdelen koppelen aan nummers. Dus dat de getallen in kolom A gekoppeld zijn aan die in B.
Dus dat de getallen in A meerdere dingen in B onder zich hebben en ze dan vergelijken op overeenkomstigheid.
Hoe kan ik dit enigszins makkelijk aanpakken?
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_104643767
Je moet denk ik even Googlen op VLOOKUP met meerdere resultaten.
Dan kan je kolommen maken waarin je elk nummer neerzet die meerdere resultaten onder elkaar zet, en dan kan je ze vergelijken.
  dinsdag 22 november 2011 @ 21:56:08 #184
84430 kanovinnie
Wie dit leest is gek!
pi_104696318
Ben ik weer eens.....
In tablad 1 worden punten voor een wedstrijd bij elkaar opgeteld. Die komen in tablad 2.

In tablad 2 zet ik in kolom A (beginnende in cel 2) de namen neer die ik uit tablad 1 haal met een =tablad1!A8 code. De punten met dezelfde (maar dan V8 ipv A8). Die komen dan vanaf B2

Nu wil ik graag degene met de meeste punten bovenaan laten komen. Maar ik heb in A1 en B1 al tekst staan die bovenaan moet komen (Cel a1: Deelnemers, Cel a2 punten totaal)

Kan ik dus de 2 rijen zo koppelen oid dat degene met de meeste punten altijd bovenaan staat?
En ben ik zo duidelijk genoeg?
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
pi_104698072
Dan moet je je gegevens anders ophalen.
Je haalt eerst het aantal punten op dat het hoogste is
B2=GROOTSTE(V8:V18;RIJ()-1)

(Je doet RIJ()-1 omdat hij dan het rijnummer gebruikt ipv dat je handmatig 1;2;3 etc moet invullen, en dan is hij te slepen).
Vervolgens moet je het bijbehorende team ophalen:
A2=INDEX(A8:A10;VERGELIJKEN(B2;V8:V18;0))

Je moet deze constructie gebruiken omdat je op te zoeken waarde links staat van het puntenaantal (anders had je VERT.ZOEKEN kunnen gebruiken).
Je komt alleen in de soep als er mensen zijn met dezelfde aantal punten - is dat een probleem? Er valt wel omheen te werken maar maakt het allemaal net iets lastiger ;)
  woensdag 23 november 2011 @ 18:33:16 #186
84430 kanovinnie
Wie dit leest is gek!
pi_104727623
quote:
7s.gif Op dinsdag 22 november 2011 22:20 schreef DaFan het volgende:
Dan moet je je gegevens anders ophalen.
Je haalt eerst het aantal punten op dat het hoogste is
B2=GROOTSTE(V8:V18;RIJ()-1)

(Je doet RIJ()-1 omdat hij dan het rijnummer gebruikt ipv dat je handmatig 1;2;3 etc moet invullen, en dan is hij te slepen).
Vervolgens moet je het bijbehorende team ophalen:
A2=INDEX(A8:A10;VERGELIJKEN(B2;V8:V18;0))

Je moet deze constructie gebruiken omdat je op te zoeken waarde links staat van het puntenaantal (anders had je VERT.ZOEKEN kunnen gebruiken).
Je komt alleen in de soep als er mensen zijn met dezelfde aantal punten - is dat een probleem? Er valt wel omheen te werken maar maakt het allemaal net iets lastiger ;)
Het is mogelijk dat er mensen zijn met hetzelfde aantal punten. Krijg je dan 2 keer dezelfde naam erin?
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  woensdag 23 november 2011 @ 18:33:33 #187
84430 kanovinnie
Wie dit leest is gek!
pi_104727640
Zoals zovaak met excel wil ik het te mooi maken denk ik :@
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  woensdag 23 november 2011 @ 19:47:11 #188
345970 Doodloper
Is een hardloper.
pi_104730914
Oké ik ben hierheen gestuurd want mn topic mocht niet in GC blijkbaar :'(


Ik heb dat.
Ik wil graag dit:


of in het mooi:


Iemand een idee hoe ik dat doe?

Ik heb Office 2007 trouwens. Nederlands. :)

[ Bericht 4% gewijzigd door Doodloper op 23-11-2011 19:58:55 ]
We zullen zien, zei de blinde.
pi_104732813
Ik ben heel dicht bij Kanovinnie zn oplossing maar ik heb even een brainfart.

Ik heb
3
3
2

En het resultaat ernaast meot zijn
1 (eerste keer dat het voorkomt)
2 (tweede keer dat het voorkomt)
1 (eerste keer dat het voorkomt)

Iemand?
pi_104734148
Laat maar ik heb hem.

Voorwaarde is wel dat je je bronresultaten (A8:V8 in ieder geval) gesorteerd hebt op score van hoog naar laag.
Ik heb hem nu zo:


Het is wel een lastige.
In A1:B3 staat mijn bron.

In A10:C13 staan mijn resultaten.
(Let op Engelse versie, zelf even vertalen)

A11=
RANK(B1;$B$1:$B$3)

B11=
INDEX($A$1:$A$3;SMALL(IF($B$1:$B$3=C11;ROW($B$1:$B$3));COUNTIF($C$11:C11;C11))-ROW($B$1)+1)
Ctrl-Shift-Enter bij invoegen!

C11=
LARGE($B$1:$B$3;A11)

Succes met vertalen naar je eigen ranges ;)
pi_104736025
quote:
3s.gif Op donderdag 10 november 2011 16:37 schreef Deetch het volgende:

[..]

[..]

Daar heb ik een macro voor die als je twee cellen hebt geselecteerd er een pijl tussen tekent, maar eigenlijk hoort het gewoon in een flowchart (visio of word)
[ code verwijderd ]

Hey :P das mijn code :P
pi_104736166
quote:
7s.gif Op woensdag 23 november 2011 19:47 schreef Doodloper het volgende:
Oké ik ben hierheen gestuurd want mn topic mocht niet in GC blijkbaar :'(

[ afbeelding ]
Ik heb dat.
Ik wil graag dit:
[ afbeelding ]

of in het mooi:
[ afbeelding ]

Iemand een idee hoe ik dat doe?

Ik heb Office 2007 trouwens. Nederlands. :)
er bestaan dacht ik wel een of andere graph enhancer voor excel....
pi_104736203
Heb zelf ook een vraagje overigens. Kan ik users beletten sheets te adden of verwijderen in mijn workbook?
pi_104736292
quote:
0s.gif Op woensdag 23 november 2011 21:14 schreef Holy_Goat het volgende:
Heb zelf ook een vraagje overigens. Kan ik users beletten sheets te adden of verwijderen in mijn workbook?
http://office.microsoft.c(...)cel-HP005238854.aspx

Met Protect workbook - Structure dus
  woensdag 23 november 2011 @ 22:28:00 #195
84430 kanovinnie
Wie dit leest is gek!
pi_104741641
quote:
7s.gif Op woensdag 23 november 2011 20:44 schreef DaFan het volgende:
Laat maar ik heb hem.

Voorwaarde is wel dat je je bronresultaten (A8:V8 in ieder geval) gesorteerd hebt op score van hoog naar laag.
Ik heb hem nu zo:
[ afbeelding ]

Het is wel een lastige.
In A1:B3 staat mijn bron.

In A10:C13 staan mijn resultaten.
(Let op Engelse versie, zelf even vertalen)

A11=
RANK(B1;$B$1:$B$3)

B11=
INDEX($A$1:$A$3;SMALL(IF($B$1:$B$3=C11;ROW($B$1:$B$3));COUNTIF($C$11:C11;C11))-ROW($B$1)+1)
Ctrl-Shift-Enter bij invoegen!

C11=
LARGE($B$1:$B$3;A11)

Succes met vertalen naar je eigen ranges ;)
Maar als de bron al gesorteerd is hoef ik het toch verder niet te sorteren?
Ik ga hier morgen met een nuchter hoofd nog eens naar kijken.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
pi_104742959
quote:
0s.gif Op woensdag 23 november 2011 22:28 schreef kanovinnie het volgende:

[..]

Maar als de bron al gesorteerd is hoef ik het toch verder niet te sorteren?
...goed punt.
Wtf heb ik dan lopen maken.
pi_104750112
quote:
7s.gif Op woensdag 23 november 2011 19:47 schreef Doodloper het volgende:
Oké ik ben hierheen gestuurd want mn topic mocht niet in GC blijkbaar :'(

[ afbeelding ]
Ik heb dat.
Ik wil graag dit:
[ afbeelding ]

of in het mooi:
[ afbeelding ]

Iemand een idee hoe ik dat doe?

Ik heb Office 2007 trouwens. Nederlands. :)
Je kunt aan je grafiek data labels toevoegen (in je ribbon chart tools, data labels). Daar kies je bij label options de series name.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_104762234
Ik gebruik momenteel Excel om een gigantische lijst met titels allemaal van links te voorzien (eerste rij bevat [url=, 2e de URL, 3e ] etc), wat met name handig is omdat ik de titels dan ook nog kan ordenen en niet iedere keer de hele code in hoef te voren.. helaas merk ik dat wanneer ik het naar een browser of wordpad kopieer er een hoop ruimte (tab?) ontstaat tussen iedere kolom.. kennelijk veroorzaakt de overgang van kolom 1 naar 2 een paar spaties, etc..

Is dit op één of andere manier uit te schakelen?
Don't let your shadow spoil the view of what's around you
  donderdag 24 november 2011 @ 15:35:19 #199
62215 qu63
..de tijd drinkt..
pi_104762328
quote:
0s.gif Op donderdag 24 november 2011 15:32 schreef Maartel het volgende:
Ik gebruik momenteel Excel om een gigantische lijst met titels allemaal van links te voorzien (eerste rij bevat [url=, 2e de URL, 3e ] etc), wat met name handig is omdat ik de titels dan ook nog kan ordenen en niet iedere keer de hele code in hoef te voren.. helaas merk ik dat wanneer ik het naar een browser of wordpad kopieer er een hoop ruimte (tab?) ontstaat tussen iedere kolom.. kennelijk veroorzaakt de overgang van kolom 1 naar 2 een paar spaties, etc..

Is dit op één of andere manier uit te schakelen?
Nee,

wat je wel kan doen is in de volgende kolom dit te zetten:
1=A1&B1&C1
Waarbij in A1 "[url=" staat, in B1 de link en in C1 "]"

:)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_104762384
Ah, dan moet ik dat idd maar eens proberen..
Misschien zie ik een handigere manier over het hoofd hoor, maar los van dit euvel lijkt Excel hier wel de perfect hulp voor.

Edit: geprobeerd, perfect, thanks!
Don't let your shadow spoil the view of what's around you
actieve topics nieuwe topics
abonnement Unibet Coolblue
[Excel] Het grote Excel vragen topic #28
Index

» digital corner

» software

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')