[EXCEL] Het grote Excel vragen topic, #17

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
pi_75676680
loblorenzo:
Als je in A1:A10 (of in A1034:A1044) je 10 waardes hebt staan, geeft de volgende formule in D1:D10 je laatste 10 waarden uit kolom A:

=INDIRECT(ADRES(VERGELIJKEN(9E+307;A:A)-(10-RIJ());1))

Dit werkt alleen als er 10 waarden achter elkaar staan, als er 9 staan bv dan wordt de eerste een 0 omdat de cel 10 rijen boven je laatste waarde leeg is.

Hoop dat je hier wat aan hebt.
pi_75676685
quote:
Op dinsdag 15 december 2009 21:31 schreef znarch het volgende:

[..]

Ik snap je Hij werkt alleen niet Ik krijg de ref fout
Geef je formule eens?
pi_75676837
quote:
Op woensdag 16 december 2009 02:59 schreef Nerobacsi het volgende:
Kan iemand mij helpen met een formule?
Ik wil graag de waarden selecteren die in drie kolommen tegelijk voorkomen. Het lukt me nu wel in twee stappen via voorwaardelijke opmaak, maar ik zou het liefst een lijstje van de drie-dubbelen netjes in een aparte kolom gepresenteerd krijgen.

Waar ik het voor nodig heb: voor een forum op een torrentsite maak ik graag raadseltjes in een wedstrijd. Daarvoor heb ik van IMDB van zo'n 300 TV-series alle acteurs in excel gezet. Per kolom een serie. Voor de puzzeltjes wil ik weten welke acteurs allemaal in dezelfde drie TV-series hebben meegedaan. Ik kies zelf de drie kolommen uit.

Zo doe ik het nu:
[ afbeelding ]

Maar het moet handiger kunnen, alleen ik weet niet hoe.
Dus je geeft de 3 kolommen al aan ergens?
Dus je kijkt niet welke waarden in welke 3 kolommen komen, maar welke waarden in 3 vaste kolommen voorkomen?
pi_75679303
quote:
Op woensdag 16 december 2009 08:25 schreef DaFan het volgende:

[..]

Dus je geeft de 3 kolommen al aan ergens?
Dus je kijkt niet welke waarden in welke 3 kolommen komen, maar welke waarden in 3 vaste kolommen voorkomen?
Ja, ik kies willekeurig een drietal kolommen uit om te proberen of en hoeveel acteurs in alle drie daarvan gespeeld hebben. Soms zet ik die kolommen voor het gemak even naast mekaar; ze hoeven niet op alfabet te blijven of zo.
pi_75680365
quote:
Op woensdag 16 december 2009 08:13 schreef DaFan het volgende:
loblorenzo:
Als je in A1:A10 (of in A1034:A1044) je 10 waardes hebt staan, geeft de volgende formule in D1:D10 je laatste 10 waarden uit kolom A:

=INDIRECT(ADRES(VERGELIJKEN(9E+307;A:A)-(10-RIJ());1))

Dit werkt alleen als er 10 waarden achter elkaar staan, als er 9 staan bv dan wordt de eerste een 0 omdat de cel 10 rijen boven je laatste waarde leeg is.

Hoop dat je hier wat aan hebt.
Ik vind het een goed idee, maar dit gaat niet lukken, helaas. Ik heb het geprobeerd, maar het probleem is dat er niet altijd 10 gevulde cellen zijn. Bij minder dan 10 gevulde cellen krijg ik inderdaad 0.

Wel snap ik wat je met het VERGELIJKEN of MATCH gedeelte wilt. Ik heb deze formule gevonden:
=MATCH(9.99999999999999E+307,E:E)
Nu krijg ik de laatste gevulde cell-waarde van rij E. Maar misschien is die formule op een of andere manier aan te passen zodat ik ook nog de 9 cell-waardes erboven krijg?

EDIT: kan ik bijvoorbeeld ook de een-na-laatste waarde vinden? Dan zou ik gewoon daarna nog de twee-na-laatste kunnen pakken etc. Of een formule die alle 9 waarden boven de gevonden laatste 10e waarde kan weergeven?

[ Bericht 26% gewijzigd door lobzorenzo op 16-12-2009 11:25:36 ]
pi_75681982
Denk dat het ook wel anders kan.
Wil je dan alsnog de laatste 10 waardes, dus als er 8 zijn ingevuld, wil je dan ook de laatste 2 van de vorige 10?
pi_75682438
Nero:
Ik heb dit maar dit werkt alleen voor getallen
http://www.mrexcel.com/forum/showthread.php?t=362629

Helemaal uitgewerkt en shit, maar namen doet ie niet
Wel mooie formules (maar snap ze zelf ook niet )

Kijk ik nog even verder.
pi_75682455
maar als je toch een macro hebt die steeds verse getallen toevoegt kun je die toch ook de verse getallen in cellen D1 tm D10 laten schrijven of ben ik nou debiel. Hoe ziet die macro voor je verse getallen eruit, ws. kun je daar door 1 regeltje toe te voegen precies krijgen wat je wilt.
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_75682719
Hm zou dit voor je werken Nero:

Ik heb in A2:C6 een aantal waarden staan, waarvan in alle drie kolommen een bepaalde waarde drie keer voorkomt.

Via Voorwaardelijke opmaak, kies ik A2:C6, vanaf A2, en voer dan in als formule:
=AANTAL.ALS($A$2:$C$6;A2)>2
=COUNTIF($A$2:$C$6,A2)>2)

En dan kies ik een opmaak.
Alles wat nu in alle drie de kolommen voorkomt, wordt gekleurd.

Nadeel hiervan is dat ook als een naam dubbel in de lijst staat, deze wordt gekleurd (dus zeg maar 2x in kolom 1 en 1x in kolom 2, dan kleurt ie).
Maarrrr er staan nooit 2 acteurs in dezelfde kolom toch?

Werkt dat voor je?

Met een macro kan je evt later nog dan de gekleurde cellen zoeken in een kolom en die in een apart deel als output genereren.
pi_75682752
quote:
Op woensdag 16 december 2009 12:01 schreef Deetch het volgende:
maar als je toch een macro hebt die steeds verse getallen toevoegt kun je die toch ook de verse getallen in cellen D1 tm D10 laten schrijven of ben ik nou debiel. Hoe ziet die macro voor je verse getallen eruit, ws. kun je daar door 1 regeltje toe te voegen precies krijgen wat je wilt.
Ik hoop het. Ik heb de macro van internet geplukt, maar dit is 'em:

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		Public RunWhen As Double
Public Const cRunIntervalSeconds = 30 ' one minute
Public Const cRunWhat = "DoTheImport"  ' the name of the procedure to run

Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ImportTextFile
' This imports a text file into Excel.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub ImportTextFile(FName As String, Sep As String)

Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer

Application.ScreenUpdating = False
'On Error GoTo EndMacro:

SaveColNdx = 1
RowNdx = 1


Open FName For Input Access Read As #1

While Not EOF(1)
    Line Input #1, WholeLine
    If Right(WholeLine, 1) <> Sep Then
        WholeLine = WholeLine & Sep
    End If
    ColNdx = SaveColNdx
    Pos = 1
    NextPos = InStr(Pos, WholeLine, Sep)
    While NextPos >= 1
        TempVal = Mid(WholeLine, Pos, NextPos - Pos)
        Cells(RowNdx, ColNdx).Value = TempVal
        Pos = NextPos + 1
        ColNdx = ColNdx + 1
        NextPos = InStr(Pos, WholeLine, Sep)
    Wend
    RowNdx = RowNdx + 1
Wend

EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' END ImportTextFile
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Sub DoTheImport()
ImportTextFile FName:=textbestand.txt", Sep:=" "

StartTimer  ' Reschedule the procedure

End Sub


Het tekstbestand wordt dus per spatie opgedeeld in cells. De getallen die ik nodig heb staan steeds in A.
Ik vind het ook prima als het hele textbestand meteen bij import wordt omgekeerd. Dat zou zelfs nog mooier zijn Hoop dat het lukt!
pi_75683813
quote:
Op woensdag 16 december 2009 12:08 schreef DaFan het volgende:
Hm zou dit voor je werken Nero:

Ik heb in A2:C6 een aantal waarden staan, waarvan in alle drie kolommen een bepaalde waarde drie keer voorkomt.

Via Voorwaardelijke opmaak, kies ik A2:C6, vanaf A2, en voer dan in als formule:
=AANTAL.ALS($A$2:$C$6;A2)>2
=COUNTIF($A$2:$C$6,A2)>2)

En dan kies ik een opmaak.
Alles wat nu in alle drie de kolommen voorkomt, wordt gekleurd.

Nadeel hiervan is dat ook als een naam dubbel in de lijst staat, deze wordt gekleurd (dus zeg maar 2x in kolom 1 en 1x in kolom 2, dan kleurt ie).
Maarrrr er staan nooit 2 acteurs in dezelfde kolom toch?

Werkt dat voor je?

Met een macro kan je evt later nog dan de gekleurde cellen zoeken in een kolom en die in een apart deel als output genereren.
HET WERKT!!

En er komen inderdaad nooit dubbelen in dezelfde kolom voor, dus dat gaat perfect zo.

Geweldig bedankt voor de (snelle!) hulp!!
  woensdag 16 december 2009 @ 12:52:32 #176
62215 qu63
..de tijd drinkt..
pi_75684280
quote:
Op dinsdag 15 december 2009 20:51 schreef Deetch het volgende:
staan die getallen allemaal in 1 regel? Dan eerst uitsplitsen naar kolommen. Daarna kun je gewoon van elke cel de kolompositie berekenen.
Was die voor mij?

Zo ja, Het staat inderdaad in 6 kolommen naast elkaar, maar hoe kan je dan de kolompositie berekenen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_75684406
quote:
Op woensdag 16 december 2009 12:39 schreef Nerobacsi het volgende:

[..]

HET WERKT!!

En er komen inderdaad nooit dubbelen in dezelfde kolom voor, dus dat gaat perfect zo.

Geweldig bedankt voor de (snelle!) hulp!!
No problemo, succes met je quiz.
pi_75684470
qu63:
=MATCH(MIN(A1:F1),A1:F1,0) geeft de kolom waar de laagste waarde in staat.
Via RANK kan je dus ook de 2e, 3e etc vinden.
pi_75684869
quote:
Op woensdag 16 december 2009 11:50 schreef DaFan het volgende:
Denk dat het ook wel anders kan.
Wil je dan alsnog de laatste 10 waardes, dus als er 8 zijn ingevuld, wil je dan ook de laatste 2 van de vorige 10?

Nee die heb ik niet nodig. Waar denk je aan?
pi_75685650
Het is makkelijker om er 10 weer te geven dan 8 als er maar 8 zijn.
Ik moet er nog wel ff over nadenken...

Beginnen je gegevens wel altijd op een vaste rij, dus altijd een meervoud van 10 + 1 (1, 11, 21 etc)
pi_75685858
quote:
Op woensdag 16 december 2009 13:29 schreef DaFan het volgende:
Het is makkelijker om er 10 weer te geven dan 8 als er maar 8 zijn.
Ik moet er nog wel ff over nadenken...

Beginnen je gegevens wel altijd op een vaste rij, dus altijd een meervoud van 10 + 1 (1, 11, 21 etc)
Nee helaas niet, steeds verschillend hoeveel rijen ertussen zitten.
pi_75686047
voeg onder regel 45
1Cells(RowNdx, ColNdx).Value = TempVal

de volgende regel toe:
1Cells(RowNdx, 4).Value = TempVal

Volgens mij werkt het dan.
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_75686775
quote:
Op woensdag 16 december 2009 13:38 schreef Deetch het volgende:
voeg onder regel 45
[ code verwijderd ]

de volgende regel toe:
[ code verwijderd ]

Volgens mij werkt het dan.
Wat zou dit moeten doen dan? Want volgens mij kopieert ie de 4e kolom, namelijk D, naar kolom 4+1, namelijk E.
Maar misschien komt dat ook wel door mezelf :p

Kun je uitleggen wat het doet?
pi_75687496
is dat wat ie doet of wat je denkt dat ie doet?

Als ik die code goed heb gelezen leest je macro een regel en voegt elke waarde tussen spaties (sep=" ") in een nieuwe regel toe. Wat die nieuwe regel doet is dezelfde data in kolom D op dezelfde rij toevoegen.
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_75688487
Hallo,
even een simpele vraag; wat voor celinstellingen moet je gebruiken om het getaal 030 te kunnen typen? Hij verandert het telkens in 30 of 30,0
https://www.booksformanagers.nl
  woensdag 16 december 2009 @ 14:38:01 #186
15967 Frollo
You know I am a righteous man
pi_75688505
quote:
Op woensdag 16 december 2009 14:37 schreef GuitarJJ het volgende:
Hallo,
even een simpele vraag; wat voor celinstellingen moet je gebruiken om het getaal 030 te kunnen typen? Hij verandert het telkens in 30 of 30,0
Aangepaste notatie > 000
pi_75688589
quote:
Op woensdag 16 december 2009 14:38 schreef Frollo het volgende:

[..]

Aangepaste notatie > 000
Held
https://www.booksformanagers.nl
  woensdag 16 december 2009 @ 14:41:39 #188
62215 qu63
..de tijd drinkt..
pi_75688642
quote:
Op woensdag 16 december 2009 14:37 schreef GuitarJJ het volgende:
Hallo,
even een simpele vraag; wat voor celinstellingen moet je gebruiken om het getaal 030 te kunnen typen? Hij verandert het telkens in 30 of 30,0
of begin met een ' (je kan er dan alleen niet meer mee rekenen, maar ik gok dat het om kengetallen gaat)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_75689636
quote:
Op woensdag 16 december 2009 14:11 schreef Deetch het volgende:
is dat wat ie doet of wat je denkt dat ie doet?

Als ik die code goed heb gelezen leest je macro een regel en voegt elke waarde tussen spaties (sep=" ") in een nieuwe regel toe. Wat die nieuwe regel doet is dezelfde data in kolom D op dezelfde rij toevoegen.
Als ik de regel toevoeg aan de macro, dan kopieert ie alle gevulde cellen uit kolom E naar kolom D.
De lege cellen van kolom E worden niet gekopieerd, daar blijft de data die oorspronkelijk in kolom D staat gewoon staan.

Maar wat nu
pi_75689704
quote:
Op woensdag 16 december 2009 14:41 schreef qu63 het volgende:

[..]

of begin met een ' (je kan er dan alleen niet meer mee rekenen, maar ik gok dat het om kengetallen gaat)
Het is een grootboekrekeningnummer waar niet meer gerekend hoeft te worden
https://www.booksformanagers.nl
  woensdag 16 december 2009 @ 15:57:56 #191
62215 qu63
..de tijd drinkt..
pi_75691787
quote:
Op woensdag 16 december 2009 15:09 schreef GuitarJJ het volgende:

[..]

Het is een grootboekrekeningnummer waar niet meer gerekend hoeft te worden
Dan kan je het ook doen dmv een apostrof (')
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_75692722
quote:
Op woensdag 16 december 2009 15:07 schreef lobzorenzo het volgende:

[..]

Als ik de regel toevoeg aan de macro, dan kopieert ie alle gevulde cellen uit kolom E naar kolom D.
De lege cellen van kolom E worden niet gekopieerd, daar blijft de data die oorspronkelijk in kolom D staat gewoon staan.

Maar wat nu
Ik zal mijn vorige code nog eens herschrijven om hem sneller te maken, blijkbaar heb ik jouw gekopieerde macro verkeerd begrepen. Vanavond meer.
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 december 2009 @ 18:00:09 #193
283395 HeetBoven
componist van lullige liedjes
pi_75696407
quote:
Op woensdag 16 december 2009 15:57 schreef qu63 het volgende:

[..]

Dan kan je het ook doen dmv een apostrof (')
Of als je wel moet rekenen: je gaat naar celeigenschappen, dan maak je de bij Getal -> aangepast een nieuw type aan dmv onder Type zoveel nullen in te geven als je nodig hebt.
pi_75698080
quote:
Op woensdag 16 december 2009 08:14 schreef DaFan het volgende:

[..]

Geef je formule eens?
ik was niet in staat eerder te reageren, sorry.

Ik gebruik jouw formule:

1=INDIRECT(A1 & "!A1")


In cel A1 staat de naam van de Tab waar hij moet kijken genaamd: 2009 Week 51 (of zoiets) (de cel geeft de huidige week weer).

mijn !A1 (de 2de) staat op !S32, deze cel (op sheet 2009 Week 51) is de waarde die ik wil zien.
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
  woensdag 16 december 2009 @ 18:46:16 #195
62215 qu63
..de tijd drinkt..
pi_75698139
quote:
Op woensdag 16 december 2009 18:00 schreef HeetBoven het volgende:

[..]

Of als je wel moet rekenen: je gaat naar celeigenschappen, dan maak je de bij Getal -> aangepast een nieuw type aan dmv onder Type zoveel nullen in te geven als je nodig hebt.
quote:
Op woensdag 16 december 2009 14:38 schreef Frollo het volgende:

[..]

Aangepaste notatie > 000
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_75699272
quote:
Op woensdag 16 december 2009 16:20 schreef Deetch het volgende:

[..]

Ik zal mijn vorige code nog eens herschrijven om hem sneller te maken, blijkbaar heb ik jouw gekopieerde macro verkeerd begrepen. Vanavond meer.
je bent nu al m'n held, of het nou lukt of niet
pi_75699727
quote:
Op woensdag 16 december 2009 18:44 schreef znarch het volgende:

[..]

ik was niet in staat eerder te reageren, sorry.

Ik gebruik jouw formule:
[ code verwijderd ]

In cel A1 staat de naam van de Tab waar hij moet kijken genaamd: 2009 Week 51 (of zoiets) (de cel geeft de huidige week weer).

mijn !A1 (de 2de) staat op !S32, deze cel (op sheet 2009 Week 51) is de waarde die ik wil zien.
je moet even met extra aanhalingstekens werken:

"'" & A1 & "'!A1"
Omdat er spaties instaan dienen er nog aanhalingstekens omheen
pi_75700576
Zo bedoel je ? =INDIRECT("E8" & "!S32")

of waarom die "" voor de & ? in jouw eeste formule staat die & sowieso maar 2x

Trouwens in de formule staan geen spaties he, allen zo:

=INDIRECT("E8" & "!S32")

in cel e8 staat wel een een naam met spaties ja. Al helpt dit ook niet

[ Bericht 38% gewijzigd door znarch op 16-12-2009 20:57:57 ]
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
pi_75707429
Nee je snapt me niet. Er moeten enkele aanhalingstekens om de sheetnaam heen. Dat doe je door daar weer dubbele omheen te zetten, en dan pas de sheetnaam eraan te plakken dmv &.

"'" = dubbel, enkel, dubbel
& A1 = plakt de enkele aan de sheetnaam vast (alleen links)
& "'!A1" = dubbel, enkel etc

Hoop dat het zo duidelijker is
pi_75707936
Jep
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
pi_75717337
quote:
Op woensdag 16 december 2009 22:20 schreef znarch het volgende:
Jep
pi_75722182
quote:
Op woensdag 16 december 2009 19:16 schreef lobzorenzo het volgende:

[..]

je bent nu al m'n held, of het nou lukt of niet :D
Wellicht dat deze code sneller is:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24		Sub lijstje()

'begin en eindrij zoeken van laatst toegevoegde data
ActiveSheet.Range("a10000").End(xlUp).Select
eindrij = ActiveCell.Row
i = 0
Do While ActiveCell.Offset(-i, 0).Value <> ""
    i = i + 1
Loop
beginrij = eindrij - i + 1
'MsgBox beginrij & ", " & eindrij

'array vullen met waarden
myArray = Range("A" & beginrij & ":" & "A" & eindrij)

'kolom D leegmaken
Range("D:D").Clear

'gegevens uit array plaatsen
For i = 1 To UBound(myArray)
    Range("D" & i).Value = myArray(i, 1)
Next i

End Sub
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_75724313
quote:
Op donderdag 17 december 2009 11:25 schreef Deetch het volgende:

[..]

Wellicht dat deze code sneller is:
[ code verwijderd ]


Ja dat werkt!!! Bedankt! Echt super!
pi_75728386
quote:
Op donderdag 17 december 2009 12:19 schreef lobzorenzo het volgende:

[..]

Ja dat werkt!!! Bedankt! Echt super!
hahaha ik roeleer. Toch geen verloren dag dan zo ingeschneeuwd in Groningen.
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_75729908
Luie donder ga gewoon werken!!
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[EXCEL] Het grote Excel vragen topic, #17
Index

» digital corner

» software

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