abonnement Unibet Coolblue
  vrijdag 16 december 2011 @ 17:22:11 #1
62215 qu63
..de tijd drinkt..
pi_105662542


Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.

Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?

Stel dan hier je vraag!!!

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen:
http://dolf.trieschnigg.nl/excel/excel.html
http://branders.name/files/Excel-Function-Reference.pdf

Alle vorige topics zijn hier terug te vinden.

Nieuw topic? Haal de OP bij de wiki ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_105662715
Hmm.. hij werkte nu dus alleen als ALLE criteria onwaar zijn.

quote:
=ALS(OF(datum(jaar(vandaag());maand(vandaag())-11;dag(vandaag())>vandaag();;"UIT DATUM")
Dit is toch een formule voor 1 criteria ?

Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.

=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")

Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe.. -O-
  vrijdag 16 december 2011 @ 17:40:34 #3
62215 qu63
..de tijd drinkt..
pi_105663171
quote:
0s.gif Op vrijdag 16 december 2011 17:27 schreef Mind_State het volgende:
Hmm.. hij werkte nu dus alleen als ALLE criteria onwaar zijn.

[..]

Dit is toch een formule voor 1 criteria ?

Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.

=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")

Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe.. -O-
Het enige waar de voorwaardelijke opmaak op controleert is of iets waar is of niet. Als het onwaar is doet ie niets, als het waar is geeft ie een kleurtje (of iets anders) aan de cel waarvoor de voorwaardelijke opmaak hebt ingesteld.

Deze zou moeten werken:

=ALS(OF(DATUM(JAAR(A1);MAAND(A1)-11;DAG(A1))>G1;DATUM(JAAR(B1);MAAND(B1)-11;DAG(B1))>G1;DATUM(JAAR(C1);MAAND(C1)-11;DAG(C1))>G1);WAAR;ONWAAR)

Of praten we nu compleet langs elkaar heen :?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_105663628
Hmm.. Ja als ik die formule invul dan zegt hij eigenlijk altijd ONWAAR.. ook als ik de datum van gister 3x invul.

Deze werkt nu hoe ik het wil:
=ALS(EN(A1+730>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")

De OF-functie moest dus een EN-functie worden in ieder geval, want nu toont hij UIT DATUM als 1 van de criteria ONWAAR is. Het enige nadeel is nu nog dat hij nog steeds niet precies op de datum is ivm schrikkeljaren, maar ik bouw dan desnoods wel gwn een buffer in dat is geen probleem.
  vrijdag 16 december 2011 @ 18:31:44 #5
84430 kanovinnie
Wie dit leest is gek!
pi_105664897
Mijn macro doet het trouwens, maar ik ben er nog niet tevreden over. Want na het printen laat hij ze op verborgen staan, en dat is niet de bedoeling.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  vrijdag 16 december 2011 @ 18:36:07 #6
85514 ralfie
!Yvan eht nioj
pi_105665031
@mind_state

Wordt wel erg ingewikkeld zo...

mocht je macros kunnen gebruiken kun je deze gebruiken:

1
2
3
4
Function MaandenGeleden(datum As Date) As Long
     MaandenGeleden = DateDiff("m", datum, DateTime.Now)
     If Day(datum) > Day(DateTime.Now) Then MaandenGeleden = MaandenGeleden - 1
End Function
kun je als functie gebruiken

ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
pi_105667952
quote:
0s.gif Op vrijdag 16 december 2011 18:36 schreef ralfie het volgende:
@mind_state

Wordt wel erg ingewikkeld zo...

mocht je macros kunnen gebruiken kun je deze gebruiken:
[ code verwijderd ]

kun je als functie gebruiken

ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.
pi_105669957
quote:
0s.gif Op vrijdag 16 december 2011 19:51 schreef Mind_State het volgende:

[..]

Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.
???
pi_105717424
k wil gegevens uit cellen A1 t/m A50 kopiėren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt :)
  zondag 18 december 2011 @ 11:29:59 #10
84430 kanovinnie
Wie dit leest is gek!
pi_105717530
=A1&","&A2&","&A3
Wel met een formule, maar een andere manier zou ik zo niet weten.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
pi_105717991
Knippen, Plakken speciaal -> Transponeren.
Je kan er dan niet snel komma's tussen plakken zonder formule of VBA.
  zondag 18 december 2011 @ 11:52:00 #12
49641 Individual
Meet John Doe...
pi_105718046
quote:
0s.gif Op zondag 18 december 2011 11:23 schreef EL_Presidente het volgende:
k wil gegevens uit cellen A1 t/m A50 kopiėren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt :)
http://uk.answers.yahoo.c(...)0070929072105AAjHDWu

Je hebt dan wel MS Word nodig. (en paste special rich text)
reset
pi_105718753
quote:
0s.gif Op zondag 18 december 2011 11:23 schreef EL_Presidente het volgende:
k wil gegevens uit cellen A1 t/m A50 kopiėren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt :)
1
2
3
4
5
6
7
8
9
10
Sub AddCellVal()
    Dim Str As String
    Dim i As Integer
    
    For i = 1 To 50
        Str = Str & Cells(i, 1) & ","
    Next
    
    ActiveCell.Value = Str
End Sub

Plak dit in de VBA editor in de betreffende sheet

Als je nu "run macro" doet zal in de cel waar je in staat bij het runnen van de macro jouw rij met gegevens staan
pi_105718894
quote:
0s.gif Op zondag 18 december 2011 12:22 schreef KritischeMassa het volgende:

[..]
[ code verwijderd ]

Plak dit in de VBA editor in de betreffende sheet

Als je nu "run macro" doet zal in de cel waar je in staat bij het runnen van de macro jouw rij met gegevens staan
kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt.. :@
pi_105718910
quote:
0s.gif Op zondag 18 december 2011 12:28 schreef EL_Presidente het volgende:

[..]

kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt.. :@
welke excel versie heb je (versie en taal?)
pi_105718934
quote:
0s.gif Op zondag 18 december 2011 12:29 schreef KritischeMassa het volgende:

[..]

welke excel versie heb je (versie en taal?)
Excel voor Mac 2011 (versie 14.0) Nederlands
pi_105719093
aaaarrgh

Ik had alles verwacht behalve mac...

ok heb even gegoogled en het schijnt dat de 2011 versie weer VBA ondersteunt (vanaf 2008 niet meer namelijk)

Er schijnt een "develepper Tab" te bestaan met hier de "VBA editor"

Als je deze editor opent zie je als het goed is dit:



(exclusief de modules, want die heb je nog niet)

dubbelclick op "sheet1" en het rechter paneer is een wit werkblad

hierin plak je de code die ik je gaf

je kan de editor nu sluiten

sla je sheet op en zoek naar "macro's"

run macro en kies de macro "AddCellVal"

in de cel die je hebt geselecteerdstaan tijdens het draaien van de macro zou de regel moeten verschijnen
pi_105719171
moet ik die getallen 1 t/m 10 in de code ook pasten of zonder?
pi_105719221
quote:
0s.gif Op zondag 18 december 2011 12:39 schreef EL_Presidente het volgende:
moet ik die getallen 1 t/m 10 in de code ook pasten of zonder?
zonder

dat is automagische toevoeging

dus code is zonder codetag:

Sub AddCellVal()
Dim Str As String
Dim i As Integer


For i = 1 To 50
Str = Str & Cells(i, 1) & ","
Next

ActiveCell.Value = Str

End Sub
pi_105719336
quote:
0s.gif Op zondag 18 december 2011 12:40 schreef KritischeMassa het volgende:

[..]

zonder

dat is automagische toevoeging

dus code is zonder codetag:

Sub AddCellVal()
Dim Str As String
Dim i As Integer


For i = 1 To 50
Str = Str & Cells(i, 1) & ","
Next

ActiveCell.Value = Str

End Sub
ik moet het kennelijk niet op een gewone manier opslaan, omdat er macro's zitten.. hoe dan wel?

pi_105719350
.xlsm
pi_105719446
klikken op uitvoeren?
pi_105719460
ja
pi_105719623
quote:
0s.gif Op zondag 18 december 2011 12:46 schreef KritischeMassa het volgende:
ja
Die komma's op het eind, is daar wat aan te doen en is het mogelijk om na elke komma één spatie te krijgen?
pi_105719700
tuurlijk:

Sub AddCellVal()
Dim Str As String
Dim i As Integer


For i = 1 To 50
if cells(i,1)="" then exit for
Str = Str & Cells(i, 1) & ", "

Next

ActiveCell.Value = Str

End Sub

[ Bericht 7% gewijzigd door #ANONIEM op 18-12-2011 12:54:41 ]
pi_105719906
quote:
0s.gif Op zondag 18 december 2011 12:51 schreef KritischeMassa het volgende:
tuurlijk:

Sub AddCellVal()
Dim Str As String
Dim i As Integer


For i = 1 To 50
if cells(i,1)="" then exit for
Str = Str & Cells(i, 1) & ", "

Next

ActiveCell.Value = Str

End Sub
sweet, het werkt.. _O_

pi_105719976
hoe doe ik dit bijvoorbeeld als ik de kolom A1 t/m A15 in een sheet heb, en de cel waarin ik deze wil plakken in een andere sheet zit? dus als je met 2 sheets werkt.
pi_105720086
nou
quote:
0s.gif Op zondag 18 december 2011 12:58 schreef EL_Presidente het volgende:
hoe doe ik dit bijvoorbeeld als ik de kolom A1 t/m A15 in een sheet heb, en de cel waarin het wil plakken in een andere sheet zit? dus als je met 2 sheets werkt.
door activecell=str

te vervangen door

SHEETNAAM.cells(RIJ NUMMER , KOLOMNUMMER).value = str

te typen

caps houdt in dat je die moet vervangen door passende waarden

Cells werken met rij en kolom nummers je kan ook bijvoorbeeld .range("A1") gebruiken
pi_105720210
quote:
0s.gif Op zondag 18 december 2011 13:00 schreef KritischeMassa het volgende:
nou

[..]

door activecell=str

te vervangen door

SHEETNAAM.cells(RIJ NUMMER , KOLOMNUMMER).value = str

te typen

caps houdt in dat je die moet vervangen door passende waarden

Cells werken met rij en kolom nummers je kan ook bijvoorbeeld .range("A1") gebruiken
ok.. KritischeMassa je hebt me geweldig geholpen, super bedankt.. ^O^ moet wel vet zijn als je dit allemaal kan, lijkt me.. :)
pi_105720233
quote:
0s.gif Op zondag 18 december 2011 13:03 schreef EL_Presidente het volgende:

[..]

ok.. KritischeMassa je hebt me geweldig geholpen, super bedankt.. ^O^ moet wel vet zijn als je dit allemaal kan, lijkt me.. :)
Geen probleem ;) enne jij kan het nu toch ook?
pi_105720288
quote:
0s.gif Op zondag 18 december 2011 13:04 schreef KritischeMassa het volgende:

[..]

Geen probleem ;) enne jij kan het nu toch ook?
Ja dat is waar :) , maar jij kent/spreekt echt die codetaal, hoe je het moet aanpassen enzo.. :P
  zondag 18 december 2011 @ 13:24:54 #32
62215 qu63
..de tijd drinkt..
pi_105721033
quote:
0s.gif Op zondag 18 december 2011 13:05 schreef EL_Presidente het volgende:

[..]

Ja dat is waar :) , maar jij kent/spreekt echt die codetaal, hoe je het moet aanpassen enzo.. :P
Google kan je ook goed helpen ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_105730535
quote:
0s.gif Op zondag 18 december 2011 13:24 schreef qu63 het volgende:

[..]

Google kan je ook goed helpen ;)
dat geldt voor zowat iedere vraag in dit topic, en maakt daarmee het topic zinloos

Daarbij, je moet wel weten wat je zoekt, ik denk dat voor El_presidente zelf had uitgevonden dat hij met een for loop door cellen kon lopen om deze in een string variabele samen te voegen hij sneller was geweest door handmatig cel 1 tot 16 samen te voegen.

De kracht van een topic als dit is juist dat je elkaar verder helpt met kennis die voor jou paraat is.

Ik hoop dat El_Presidente geļnspireerd is geraakt en voortbouwt op het stukje code dat ik hem aangaf. Bijvoorbeeld dat hij de code ook kan draaien door deze aan een button toe te wijzen.

Zijn we niet allemaal begonnen door te vragen?
  zondag 18 december 2011 @ 16:58:47 #34
62215 qu63
..de tijd drinkt..
pi_105730856
quote:
0s.gif Op zondag 18 december 2011 16:52 schreef KritischeMassa het volgende:

[..]

dat geldt voor zowat iedere vraag in dit topic, en maakt daarmee het topic zinloos

Daarbij, je moet wel weten wat je zoekt, ik denk dat voor El_presidente zelf had uitgevonden dat hij met een for loop door cellen kon lopen om deze in een string variabele samen te voegen hij sneller was geweest door handmatig cel 1 tot 16 samen te voegen.
Nee, maar zelf doorzoeken op een antwoord wat hier gegeven wordt is imho leerzamer :)
Je gaf El_presidente een zet in de goede richting, iets wat met google mss niet gelukt was, maar google had daarna wel kunnen helpen denk ik :)
quote:
De kracht van een topic als dit is juist dat je elkaar verder helpt met kennis die voor jou paraat is.

Ik hoop dat El_Presidente geļnspireerd is geraakt en voortbouwt op het stukje code dat ik hem aangaf. Bijvoorbeeld dat hij de code ook kan draaien door deze aan een button toe te wijzen.

Zijn we niet allemaal begonnen door te vragen?
Ja, en mede daarom blijf ik hier ook nog steeds hangen :)

Misschien dat ik wat verder ben qua Excelkennis en VBA een beetje kan lezen en daardoor een code makkelijker werkend kan krijgen..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_105731168
Ben het deels eens met qu63. Je had een goede voorzet gegeven, de overige vragen had hij zelf wel over kunnen nadenken en uitvogelen...
Maar goed, nu de code stap voor stap doornemen en snappen, dan schiet je er wat me op ;)
pi_105732488
Ja ok, maar ik heb een hekel aan "google is your friend" reacties, ze voegen zelden wat toe.

Maar op verzoek:

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
Sub AddCellVal() 'open een subroutine met een herkenbare naam

Dim Str As String 'declareer een string variabele met de naam Str
Dim i As Integer 'declareer teller i als integer (waarde van -32000 tot +32000)

'we maken een loop met een teller
'in de for loop tellen we met stappen van 1 tot 50
'je kan ook met stappen van bijvoorbeeld twee tellen door
'for i = 1 to 50 step 2 te gebruiken
'werken met een teller is handig omdat we de teller 
'meteen gebruiken voor navigatie door de sheet

For i = 1 To 50
'als er een lege cel wordt aangetroffen stopt de loop 
'door "exit for" 
if cells(i,1)="" then exit for

'als er geen lege cel wordt aangetroffen
'rijgen we de stringvariabele "Str" met de celwaarden aaneen
'voorzien van een ", " komma spatie
'we lopen door de sheet heen waarin de code is 
'aangebracht. Als je deze code vanuit een andere sheet of uit een module draait
'moet je aanwijzen waar de cells zich bevinden door
'bijvoorbeeld sheets("SHEETNAAM").cells(RIJ,KOLOM) of activesheet.cells(RIJ,KOLOM)
'ik maak gebruik van cells in plaats van Range omdat ik dan kan tellen door zowel 
'rijen als kolommen (range vraagt celnamen, bv "A1")  

Str = Str & Cells(i, 1) & ", "

'door de statement "Next" springt de code terug naar het begin van de loop
'als de for loop wordt onderbroken door "exit for" of als er tot 50 is geteld
'gaat de code verder na de "next" statement
Next

'De cel die geselecteerd was toen je de code liet draaien
'is de active cell, alternatief kun je verwijzen naar een statische cel
'door deze vast te zetten, bijvoorbeeld cel C1 -> activesheet.cells(1,3) of
'cel C1 in een tabblad met de naam "resultaat" -> sheets("resultaat").cells(1,3)
'ook kun je in dit geval gebruik maken van Range: sheets("resultaat").range("C3")
'zie ook activeworkbook en worbooks("workbooknaam") om 
'tussen twee verschillen excel workbooks te schakelen

ActiveCell.Value = Str

End Sub 

een volledige verwijzing die onafhankelijk van de sheet of module waar de code instaat ziet er als volgt uit:

workbooks("werkboeknaam").sheets("sheetnaam").cells(RIJNUMMER, KOLOMNUMMER)

[ Bericht 5% gewijzigd door #ANONIEM op 18-12-2011 17:52:36 ]
pi_105958382
Ik heb een excel bestand waarin vanuit een ander bestand plaatjes zijn geplakt. Kan ik op 1 of andere manier excel deze plaatsjes laten lezen, dus bijvoorbeeld wanneer er ergens een plaatje van een plusje staat dat excel dat herkent?
pi_105958586
nee, ik denk niet dat dat mogelijk is, misschien OCR wat?
pi_105959291
Not a chance dat Excel dat doet.
pi_105962627
quote:
0s.gif Op vrijdag 23 december 2011 12:59 schreef DaFan het volgende:
Not a chance dat Excel dat doet.
ook niet met een gave sumproduct-formule?
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_105963364
quote:
3s.gif Op vrijdag 23 december 2011 14:24 schreef Deetch het volgende:

[..]

ook niet met een gave sumproduct-formule?
I wish... Fap fap fap
  vrijdag 23 december 2011 @ 18:50:05 #42
62215 qu63
..de tijd drinkt..
pi_105972032
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_105973250
quote:
Ja, deze code scant naar plaatjes in een excel file en geeft het relatieve adres, herkenning van wat in het plaatje te zien is doet het echter niet.

Dan zou je moeten doorcoderen met gebruik van een OCR lib, maar die zijn gesloten (vaak)

dus, geen kans
  vrijdag 23 december 2011 @ 20:20:50 #44
62215 qu63
..de tijd drinkt..
pi_105975910
quote:
0s.gif Op vrijdag 23 december 2011 19:21 schreef KritischeMassa het volgende:

[..]

Ja, deze code scant naar plaatjes in een excel file en geeft het relatieve adres, herkenning van wat in het plaatje te zien is doet het echter niet.

Dan zou je moeten doorcoderen met gebruik van een OCR lib, maar die zijn gesloten (vaak)

dus, geen kans
Ow :P Had het artikel ff snel gescand, niet goed gelezen dus ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_105984266
quote:
0s.gif Op vrijdag 23 december 2011 20:20 schreef qu63 het volgende:

[..]

Ow :P Had het artikel ff snel gescand, niet goed gelezen dus ;)
zou ook hele knappe code zijn, google zou dol op die jongen zijn, en captcha makers niet zo
  zaterdag 24 december 2011 @ 10:42:08 #46
62215 qu63
..de tijd drinkt..
pi_105994840
quote:
0s.gif Op vrijdag 23 december 2011 23:02 schreef KritischeMassa het volgende:

[..]

zou ook hele knappe code zijn, google zou dol op die jongen zijn, en captcha makers niet zo
Nou ja, een zwart plusje op een witte achtergrond is wel heel anders dan kromme, onduidelijke letters op een gekleurde achtergond ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 24 december 2011 @ 18:44:52 #47
85514 ralfie
!Yvan eht nioj
pi_106009320
Het kan best, er zijn open source OCR bibliotheken die je met excel (al dan niet met wat klussen) aan kan spreken.

Het waarom blijft echter.
pi_106010676
quote:
0s.gif Op zaterdag 24 december 2011 18:44 schreef ralfie het volgende:
Het kan best, er zijn open source OCR bibliotheken die je met excel (al dan niet met wat klussen) aan kan spreken.

Het waarom blijft echter.
Dat had ik ook al aangegeven in post #43 maar ik vraag me af in hoevere die gedocumenteerd en open zijn. Daarbij inderdaad, hoe interessant is het om je erin te verdiepen, ik ben het zelf nog nooit tegengekomen (de wens om plaatjes te lezen in excel)
pi_106176567
Ik loop al een dag te worstelen met een probleem dat volgens mij redelijk makkelijk opgelost kan worden. Ik heb een uitgebreide database (>500.000 records) met privacy gevoelige informatie waar ik graag wat analyses op los wil laten. Omdat ik deze database helaas niet kan delen, heb ik een document bijgevoegd waarin ik enkele fictieve gegevens heb genoteerd, maar waarop ik wat betreft systemathiek vergelijkbare analyses wil draaien.

Het bijgevoegde voorbeeld kent drie bladen; één met filtercriteria , één met de database en één waarin de output geplaats moet worden. Op basis van de criteria geplaatst in het eerste blad wil ik graag in het derde blad alle spelers krijgen die aan beide criteria voldoen. Omdat sommige spelers meerdere keren voorkomen in de database, zou ik graag zien dat elke speler maar één keer in het derde blad (de output) terecht komt.

Ik redelijk thuis in Excel, maar van het programmeren in VBA heb ik absoluut geen kaas gegeten. Met filteren kom ik al een heel eind, maar de slag naar unieke records kan ik maar niet slaan. Daarnaast zou het ook heerlijk zijn om alleen maar criteria in te hoeven vullen in plaats van telkens de filters aan te passen. Volgens mij moet dit mogelijk zijn met behulp van VBA, maar ik ken de krachten van die tool ook niet echt goed...

http://www.mediafire.com/?h4sx6dmyjf5oh5d
pi_106177203
Beste Thijs,

Ik heb de file bekeken en dat is heel goed mogelijk, ik zou dit in een handomdraai kunnen programmeren, echter, wat is jouw doel?

Wil je een kant en klaar product of wil je leren hoe je het aan moet pakken?

Daarbij heb ik wel aanvullende vragen over de filtercriteria, namelijk in je eerste criteria "kwaliteit" noem je eigenlijk twee keuzemogelijkheden.

Wil je dus een formulier met drie rolmenutjes die als volgt heten:

Kwaliteit 1
Kwaliteit 2 (optioneel)
Lengte

En dan een ok button die alle unieke spelers in blad drie neergooit?

[ Bericht 0% gewijzigd door #ANONIEM op 29-12-2011 19:38:53 ]
pi_106177310
en bedoel je met >500.000 records 500.000 regels?

Want dan wordt VBA wel een erge trage optie (ik neem ook aan dat je excel >2007 draait?)
pi_106177515
En wat maakt een speler uniek, zijn naam of een combinatie van naam en leeftijd, want ik zie alleen maar voornamen, en ik kan me voorstellen dat Dubaern een uniek persoon is maar Chris kan denk ik vele malen een ander persoon zijn (ik ken er al 3)
pi_106177830
Heb mijn bestand nog even nagekeken, en het blijken gelukkig niet meer dan een half miljoen regels te zijn, maar 'maar' 200.000.

En een uitleg hoe het zou moeten zou fijn en leerzaam zijn, maar denk ik dat ik beter eerst kan beginnen met een standaardcursus programmeren om zo zelf tot een uitkomst te komen. Een VBA code zou wat betreft betreft dus al genoeg zijn en ontzettend gewaardeerd worden! Met de opzet van zo'n code zou ik deze aan kunnen passen zodat 'ie toepasbaar is op de database waarvoor de code daadwerkelijk gebruikt gaat worden.

De sheet die bijgevoegd is, is min of meer een voorbeeld van mijn volledige database die bedrijfsgevoelige informatie bevat. De 'voetballers' -voorbeelden zijn meer een greep uit mijn eigen belevingswereld :) De namen zelf in dit voorbeeld zijn de unieke regels

De criteria die ik graag wil gebruiken zijn twee verschillende;

1. Alle regels uit kolom C met óf "eigenschap 1" óf "eigenschap 2" overhouden
2. Alle regels uit kolom D met een waarde tussen "x" en "y"
pi_106178345
quote:
0s.gif Op donderdag 29 december 2011 19:51 schreef Thijsssss het volgende:
De namen zelf in dit voorbeeld zijn de unieke regels
Ja, dat zijn ze dus niet, dus nogmaals, hebben de echte regels een voor en achternaam of gaat het hier ook om alleen voornamen?

Daarnaast, 200.000 regels is veel voor VBA, wat je namelijk gaat doen is tellen en door de cellen lopen met een for loop

-----pseudocode-------------------------
For i = 1 to endoflist

if cell(i,3)= criteria1 and cell (i,4) = criteria3 or cell(i,3) = criteria2 and cell (i,4) = criteria3 then

kopieer naar ander blad

end if

next
----------------------------------------------------------

Daarna zal je in blad met resultaten nog een keer moeten loopen om alle dubbels eruit te gooien

zegmaar

Bij 200000 regels ga je denken dat excel vast is gelopen

Ik vraag me ook af in welke database de data oorspronkelijk staat, met een simpele SQL opdracht heb je dan in een handomdraai je data
pi_106178698
Ik ga zo een filmpje kijken met vrouwlief dus ben offline, probeer de vragen die ik je stel zo goed mogelijk te beantwoorden.

(bv welke excelversie draai je)

Ik ga geen kant en klaar product leveren, tenminste niet zomaar, je zal hier zelf effort in moeten steken. Ik wil je wel uitleggen hoe je door bladen heen loopt en hoe je een formulier aanmaakt en een rolmenu vult.

Je zal echter zeker moeten zijn dat je een database hebt met werkelijk unieke records, iets wat in excel (zeker met 200000 regels) erg lastig wordt, is chris van 24 jaar dezelfde chris van 25 jaar? of zijn er twee chrissen van 24?

Ben je überhaupt thuis ind e VBA editor van Excel?

Wat voor taal is jouw excel?
  donderdag 29 december 2011 @ 20:33:16 #56
85514 ralfie
!Yvan eht nioj
pi_106179688
Waarom loop je te kutten in Excel, dit is waar Access voor gemaakt is. Ja het kan, net zoals je met je Suzuki Alto tonnen zand kunt vervoeren, maar handig is anders.
pi_106179820
Dank voor de eerste opzet! Ik ga hier zelf wel even verder mee kloten, samen met mijn goede vriend Google :) Fijn dat je er al naar gekeken hebt!

Voornaamste reden waarom het niet in Access staat is dat ik op deze werkplek geen Access heb... Belachelijk maar waar. Ik ga het thuis proberen te plaatsen in Access. Is er ook een topic voor vragen over dat programma? :P
pi_106183799
Nee is er niet...open maar een nieuw topic ervoor of zet het hier neer. Volgens mij is het gros hier ook wel bekend met Access.
pi_106316793
Mijn vraag:
Ik probeer via een vlookup meerdere resultaten weer te geven. Dat heb ik gedaan d.m.v.
http://www.get-digital-he(...)ng-vlookup-in-excel/
(En dan het onderste voorbeeld, met VBA)
Nu heb ik het in mijn eigen workbook gezet ( http://dl.dropbox.com/u/7579065/Vlookup_Macro_Test.xlsm
) alleen krijg geeft de functie elke keer alleen het eerste resultaat weer.
Dus in de eerste rij op blad twee staat 9x 69947373E, terwijl ik graag 69947373E 69947374F 69947375G, etc. zou willen zien. Hoe krijg ik dit voor elkaar? In het voorbeeld van de bovengenoemde site doen ze het, volgens mij, precies zo als ik het gedaan heb.

Het is een beetje een warrig verhaal, weet niet beter hoe ik het moet omschrijven. Daarom heb ik mijn excel file maar even online gezet. Hopelijk wil iemand er even naar kijken :)

En dan nog een vraag, kan ik met deze, of een aangepaste functie, niet alleen zoeken op de inhoud van een cel maar ook op de opmaak? Ik heb namelijk aardig wat identieke nummers die ik in mijn sheets uit elkaar houd door de cel een achtergrondkleur te geven.
Dus als ik zoek naar [1x] wil ik niet dat [BLAUWEACHTERGROND 1x] zijn resultaten weergegeven worden. En vice versa natuurlijk.
Kan dat? :)

Als iets niet duidelijk is of ik te weinig informatie heb gegeven dan hoor ik het graag.
Alvast bedankt voor alle eventuele hulp! :)
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106317349
Ik heb in excel 2007 op mijn werk pc een sheet gemaakt waarin een dropown van de datum zit.
(Invoegen, meer besturings elementen, microsoft date and time picker)

Zie ook hier :

http://danielcurran.com/i(...)excel-choose-a-date/

Op mijn pc werkt dit goed, maar als ik deze excel sheet bij collegas inlees klopt er niets meer van die dropdown, die wordt bij de ene collega opeens heel groot met een veel grotere spatiering tussen de datums waardoor het niet meer overzichtelijk is, en bij de andere collega krijg ik bij de dropdown alleen heel groot linksonder te zien van de datums.

Heeft iemand hier misschien een idee wat er precies fout is op die andere pc's of bij mij toevallig wel goed is. ;)
  maandag 2 januari 2012 @ 17:28:39 #61
62215 qu63
..de tijd drinkt..
pi_106317774
quote:
0s.gif Op maandag 2 januari 2012 17:17 schreef Basp1 het volgende:
Ik heb in excel 2007 op mijn werk pc een sheet gemaakt waarin een dropown van de datum zit.
(Invoegen, meer besturings elementen, microsoft date and time picker)

Zie ook hier :

http://danielcurran.com/i(...)excel-choose-a-date/

Op mijn pc werkt dit goed, maar als ik deze excel sheet bij collegas inlees klopt er niets meer van die dropdown, die wordt bij de ene collega opeens heel groot met een veel grotere spatiering tussen de datums waardoor het niet meer overzichtelijk is, en bij de andere collega krijg ik bij de dropdown alleen heel groot linksonder te zien van de datums.

Heeft iemand hier misschien een idee wat er precies fout is op die andere pc's of bij mij toevallig wel goed is. ;)
Schermresolutie en zoomniveau in Excel is overal gelijk?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 2 januari 2012 @ 17:36:24 #62
62215 qu63
..de tijd drinkt..
pi_106318026
quote:
7s.gif Op maandag 2 januari 2012 17:03 schreef Jesse_ het volgende:
En dan nog een vraag, kan ik met deze, of een aangepaste functie, niet alleen zoeken op de inhoud van een cel maar ook op de opmaak? Ik heb namelijk aardig wat identieke nummers die ik in mijn sheets uit elkaar houd door de cel een achtergrondkleur te geven.
Dus als ik zoek naar [1x] wil ik niet dat [BLAUWEACHTERGROND 1x] zijn resultaten weergegeven worden. En vice versa natuurlijk.
Kan dat? :)

Als iets niet duidelijk is of ik te weinig informatie heb gegeven dan hoor ik het graag.
Alvast bedankt voor alle eventuele hulp! :)
http://thefinch.wordpress(...)terhalen-zonder-vba/
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106344130
Excel en CSV is nooit echt een goed huwelijk geweest.
Maar Excel, CSV en Unicode is helemaal een ramp.
Misschien een gouden tip voor het hanteren van Non-western CSV's, zonder dat ik naar zoiets als LibreOffice ( ;( ) moet grijpen?

Alvast bedankt.
pi_106344154
quote:
0s.gif Op maandag 2 januari 2012 17:28 schreef qu63 het volgende:

[..]

Schermresolutie en zoomniveau in Excel is overal gelijk?
Schermresolutie volgens mij niet, het zoomniveau heb ik wel overal op 100% gezet. Het zou natuurlijk ook nog aan de land instellingen en of tekengrote / andere profiel/ thema gerelateerde dingen kunnen liggen. Alhoewel ik dat niet zou verwachten. Dadelijk maar eens even wat testen.
pi_106344177
quote:
0s.gif Op dinsdag 3 januari 2012 08:45 schreef STING het volgende:
Excel en CSV is nooit echt een goed huwelijk geweest.
Maar Excel, CSV en Unicode is helemaal een ramp.
Misschien een gouden tip voor het hanteren van Non-western CSV's, zonder dat ik naar zoiets als LibreOffice ( ;( ) moet grijpen?

Alvast bedankt.
csv is toch afhankelijk van je landinstellingen of het werkt zoals het ooit bedoelt was. CSV staat eigenlijk voor comma separated values. Maar microsoft heeft bedacht dat de comma's niet perse gebruikt hoeven te worden en als je in je landinstellingen een ander scheidingsteken instelt schrijft excel daarme de csv uit. Als je dan wat oudere programma's hebt die er standaard vanuit gaan dat csv wel door comma's gescheiden worden gaat het fout.
pi_106344208
quote:
0s.gif Op dinsdag 3 januari 2012 08:51 schreef Basp1 het volgende:

[..]

csv is toch afhankelijk van je landinstellingen of het werkt zoals het ooit bedoelt was. CSV staat eigenlijk voor comma separated values. Maar microsoft heeft bedacht dat de comma's niet perse gebruikt hoeven te worden en als je in je landinstellingen een ander scheidingsteken instelt schrijft excel daarme de csv uit. Als je dan wat oudere programma's hebt die er standaard vanuit gaan dat csv wel door comma's gescheiden worden gaat het fout.
Dat was idd ook een probleem, maar hebben we idd opgelost door het locale op United Kingdom te zetten :') Zelfs in Excel 2010 werkt dat gaar.
Het probleem is hier dat bepaalde non-western characters in vraagtekens veranderen, zodra je ze convert van XLS naar CSV in Excel (2003).
pi_106344787
quote:
Aha, dank je :)
Nu mijn eerste probleem nog. Dus als iemand er even naar kijken, heel graag.

Ik heb nu het volgende bedacht:
met dit VBA script:
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
Function vbaVlookup(lookup_value As Range, tbl As Range, col_index_num As Integer, Optional layout As String = "v")
Dim r As Single, Lrow, Lcol As Single, temp() As Variant

ReDim temp(0)

For r = 1 To tbl.Rows.Count
    If lookup_value = tbl.Cells(r, 1) Then
        temp(UBound(temp)) = tbl.Cells(r, col_index_num)
        ReDim Preserve temp(UBound(temp) + 1)
    End If
Next r

If layout = "h" Then
    Lcol = Range(Application.Caller.Address).Columns.Count
    For r = UBound(temp) To Lcol
        temp(UBound(temp)) = ""
        ReDim Preserve temp(UBound(temp) + 1)
    Next r
    ReDim Preserve temp(UBound(temp) - 1)
    vbaVlookup = temp
Else
    Lrow = Range(Application.Caller.Address).Rows.Count
    For r = UBound(temp) To Lrow
        temp(UBound(temp)) = ""
        ReDim Preserve temp(UBound(temp) + 1)
    Next r
    ReDim Preserve temp(UBound(temp) - 1)
    vbaVlookup = Application.Transpose(temp)
End If

End Function
(zit in een module in de link hierboven)
Wil ik de resultaten die bij een productnummer horizontaal laten weer geven,
dus prodnr.131 onderdeel1 onderdeel2. etc. tot alle genoemd zijn.
En de range die ik hierin mee geef wil ik graag afhankelijk laten worden van de kleur die de cell heeft. Dit d.m.v. een script zoals hier gepost. Ik heb alleen +/- 10 verschillende kleuren, kan ik dit in een IF statement verwerken in de zelfgemaakte functie vbaVlookup?

Het eerste deel van mijn eerste post is op dit moment nog wat belangrijker voor mij, want zonder dat kan ik wat ik nu bedacht heb niet gaan testen :)

(heb hem nogmaals online gezet, zonder de makro aangezien vast niet iedereen dat vertrouwt)
http://dl.dropbox.com/u/7579065/Vlookup_Macro_Test.xlsx De makro in de code hierboven moet er dan alleen nog los als een module ingezet worden.
Alvast bedankt voor de eventuele hulp en moeite :)
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106346033
Hello, als nieuweling in dit topic zal ik proberen me zo goed mogelijk aan de regels te houden ondanks dat het juist onderdeel van mijn probleem is:

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Biedt geen uitkomst :(

Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Excel 2003 Engels

Tip 3: Zet macrocode even tussen [ code ] tags
Tja... dat is 'm nou net. Heb een sheet van een ander die naar ik vermoed een query bevat die door een macro gestart kan worden en data uit een ERP (o.i.d.) systeem haalt.

Bij openen van het bestand vraagt Excel, zoals gebruikelijk, toestemming macro's te gebruiken, die geef ik. Vervolgens ontbreekt ieder spoor van de macro.

Hoe vind ik deze macro terug die mijn query kan starten? (Tools, Macro, Macro's / Alt + F8 heb ik natuurlijk al geporbeerd)

Alvast bedankt!
pi_106346235
Alt-F11? Anders is uw mss verstopt?
pi_106346247
quote:
0s.gif Op dinsdag 3 januari 2012 10:40 schreef Goofy88 het volgende:
Hello, als nieuweling in dit topic zal ik proberen me zo goed mogelijk aan de regels te houden ondanks dat het juist onderdeel van mijn probleem is:

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Biedt geen uitkomst :(

Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Excel 2003 Engels

Tip 3: Zet macrocode even tussen [ code ] tags
Tja... dat is 'm nou net. Heb een sheet van een ander die naar ik vermoed een query bevat die door een macro gestart kan worden en data uit een ERP (o.i.d.) systeem haalt.

Bij openen van het bestand vraagt Excel, zoals gebruikelijk, toestemming macro's te gebruiken, die geef ik. Vervolgens ontbreekt ieder spoor van de macro.

Hoe vind ik deze macro terug die mijn query kan starten? (Tools, Macro, Macro's / Alt + F8 heb ik natuurlijk al geporbeerd)

Alvast bedankt!
probeer alt f11 even, dan kom je bij VBA dingen terecht
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106347156
quote:
1s.gif Op dinsdag 3 januari 2012 10:48 schreef DaFan het volgende:
Alt-F11? Anders is uw mss verstopt?
Mijn mss verstopt? Wat betekent dat? Alt+F11 geeft: Zie onderstaand

quote:
7s.gif Op dinsdag 3 januari 2012 10:48 schreef Jesse_ het volgende:

[..]

probeer alt f11 even, dan kom je bij VBA dingen terecht
thnx, daarin staat:

"Sub XXXXXXonRefresh(queryID As String, resultArea As Range)

End Sub"

Verder niets, kan ik daar iets mee? VCA is niet voor mij :@
pi_106347481
Als die sub leeg is kan hij ook niks, volgens mij dan :)
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106348850
Oh autocorrect, sorry.
Ja code kan gehuwde zijn dus dat je er niet bij kan als je bv wachtwoord niet hebt.
pi_106360387
Wat is het maximum aantal geneste if statements in excel 2007? (en 2010?) Ik lees namelijk dat 2003 er max 7 aankan, terwijl ik er 16 nodig heb voor mijn oplossing :')
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106360504
quote:
7s.gif Op dinsdag 3 januari 2012 16:34 schreef Jesse_ het volgende:
Wat is het maximum aantal geneste if statements in excel 2007? (en 2010?) Ik lees namelijk dat 2003 er max 7 aankan, terwijl ik er 16 nodig heb voor mijn oplossing :')
Denk dat je dan onderhand moet gaan denken aan een alternatieve oplossing.
pi_106360977
quote:
10s.gif Op dinsdag 3 januari 2012 16:37 schreef Citizen.Erased het volgende:

[..]

Denk dat je dan onderhand moet gaan denken aan een alternatieve oplossing.
Dat laat mijn kennis van excel en VBA niet toe :')

Misschien dat iemand hier een oplossing heeft:

Ik gebruik deze formule om nummers uit een ander sheet horizontaal weer te geven (dit werkt)
1INDEX(Nummers!$C$2:$C$538; SMALL(IF($A1=Nummers!$A$2:$A$538; ROW(Nummers!$A$2:$A$538)-MIN(ROW(Nummers!$A$2:$A$538))+1; ""); COLUMN(A1)))

Nou wil ik alleen niet dat voor elk getal uit kolom A het hele andere bestand (of sheet) doorzocht wordt.Dit omdat er dubbelen in staan.
Deze dubbele entries zijn ondanks dat ze de naam delen wel degelijk uniek en ik maak onderscheid door ze een kleur te geven.
Nu wil ik dus dat deze zoekopdracht per kleur een afgebakend gebied van de sheet met de data doorzoekt.
Dit heb ik geprobeerd door in kolom B de kleur, d.m.v. een VBA script, om te zetten in een nummer. En dit nummer bepaalt in welk deel
gezocht mag worden.
Dit had ik me zo voorgesteld:
1IF($B2=3;INDEX(kleurtest!$B$17:$B$38; SMALL(IF($A2=kleurtest!A17:A38; ROW(kleurtest!A17:A38)-MIN(ROW(kleurtest!A17:A38))+1; ""); COLUMN(A1))); IF($B2=6;INDEX(kleurtest!B2:B14; SMALL(IF($A2=kleurtest!A2:A14; ROW(kleurtest!A2:A14)-MIN(ROW(kleurtest!A2:A14))+1; ""); COLUMN(A1)));"Etcetera, alleen kom ik IFjes tekort")
Ik heb alleen meer dan 7 IF statements nodig omdat ik meer kleuren gebruik (minder onderscheid kan helaas niet).
Is er hier iemand die misschien een handige oplossing weet? Of me in ieder geval in een oplossingsrichting kan duwen?
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106361321
Lukt dat met je kleurtjes ook niet met de functie voorwaardelijk opmaak waarbij hij ook dubbele kan markeren.

Verder zou ik als ik jou was dan voor sommige zoekfuncties met losse tabbladen waar wel dingen mogen verdwijnen gaan werken.
pi_106364349
Ben al de hele middag aan het zoeken maar vind alleen maar varianten die het allemaal net niet zijn volgens mij en die ik ook zo snel niet aangepast krijg naar wat ik zou moeten hebben. Ongetwijfeld een simpele oplossing, maar als je het weet is alles simpel.

Ik wil in een macro het aantal rijen (zonder filters aan o.i.d.) van een lijst hebben. Met dat aantal wil ik een For/Next ding maken om per rij telkens wat gegevens uit cellen over te plaatsen naar cellen op een ander tabblad. Ook hoe ik tijdens die loop dan die cellen en rijen zou moeten benoemen (juiste syntax zeg maar) is me nog niet helemaal duidelijk.

Anyone iets om me op weg te helpen? Exacte code is handig natuurlijk, maar daar leer ik verder niet zoveel van. ;).
  dinsdag 3 januari 2012 @ 18:28:48 #79
249182 Holy_Goat
mhččhčhč
pi_106364594
ga eens stoeien met deze termen die ik zo in willekeurige volgorde heb neergemikt

for rij = n to m
next rij
cells(rij,kolom)
sheets('sheetnaam')
pi_106367148
Eh ja, zover was ik zelf ook allang.
  woensdag 4 januari 2012 @ 02:09:58 #81
62215 qu63
..de tijd drinkt..
pi_106384197
quote:
0s.gif Op dinsdag 3 januari 2012 19:33 schreef Modus het volgende:
Eh ja, zover was ik zelf ook allang.
Wat heb je dan zelf gevonden waar je neit uit komt?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106386703
Ja vanalles. Ik heb de hele middag zitten zoeken op 'VBA count rows' e.d. in weetikhoeveel varianten, en dingetjes met een loop. Dan kom ik bv. een script tegen dat het aantal rijen telt en met een loop vanaf de laatste rij terug elke lege rij delete. Leuk, maar dat is het net niet, en zelfs dat tellen is al niet helemaal zoals ik het wil hebben.

Maar goed, ik ga wel verder zoeken.
  woensdag 4 januari 2012 @ 11:33:53 #83
85514 ralfie
!Yvan eht nioj
pi_106389518
quote:
0s.gif Op woensdag 4 januari 2012 09:18 schreef Modus het volgende:
Ja vanalles. Ik heb de hele middag zitten zoeken op 'VBA count rows' e.d. in weetikhoeveel varianten, en dingetjes met een loop. Dan kom ik bv. een script tegen dat het aantal rijen telt en met een loop vanaf de laatste rij terug elke lege rij delete. Leuk, maar dat is het net niet, en zelfs dat tellen is al niet helemaal zoals ik het wil hebben.

Maar goed, ik ga wel verder zoeken.
je vraag is dus niet 'snap het niet' maar 'kan iemand dit voor mij maken'?
pi_106390107
quote:
0s.gif Op woensdag 4 januari 2012 09:18 schreef Modus het volgende:
Ja vanalles. Ik heb de hele middag zitten zoeken op 'VBA count rows' e.d. in weetikhoeveel varianten, en dingetjes met een loop. Dan kom ik bv. een script tegen dat het aantal rijen telt en met een loop vanaf de laatste rij terug elke lege rij delete. Leuk, maar dat is het net niet, en zelfs dat tellen is al niet helemaal zoals ik het wil hebben.

Maar goed, ik ga wel verder zoeken.
Kan je die vba dingen die het bijna doen dan niet wat aanpassen?
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
  woensdag 4 januari 2012 @ 13:21:14 #85
340838 VakantieNancy
Altijd op Vakantie
pi_106392772
Ik zit al een tijdje de dubben over een sheet voor het berekenen van hypotheeklasten en voor sparen
Als je namelijk een schuld X hebt, en je lost iedere maand een deel af en iedere maand een deel rente van je hele rentesom over dat jaar. Hoe bereken je dan een jaarlast? Want aan het begin van het jaar is de Rentelast hoger dan aan het eind van het jaar, je hebt immers afgelost
Net als met sparen, de rente die je ontvangt, als je iedere maand wat spaart, hoe bereken je dan de rente over het hele jaar, want aan het eind van het jaar staat er meer op de rekening dan aan het begin.
Zonnenschijn en Champagne, van Spanje tot Rockanje
  woensdag 4 januari 2012 @ 13:28:40 #86
62215 qu63
..de tijd drinkt..
pi_106393027
quote:
0s.gif Op woensdag 4 januari 2012 13:21 schreef VakantieNancy het volgende:
Ik zit al een tijdje de dubben over een sheet voor het berekenen van hypotheeklasten en voor sparen
Als je namelijk een schuld X hebt, en je lost iedere maand een deel af en iedere maand een deel rente van je hele rentesom over dat jaar. Hoe bereken je dan een jaarlast? Want aan het begin van het jaar is de Rentelast hoger dan aan het eind van het jaar, je hebt immers afgelost
Net als met sparen, de rente die je ontvangt, als je iedere maand wat spaart, hoe bereken je dan de rente over het hele jaar, want aan het eind van het jaar staat er meer op de rekening dan aan het begin.
Er zijn verschillende manieren om dat te bereken, met ook ieder een verschillende uitkomst. Met rente is het soms zo dat je aan het einde van het jaar rente krijgt over het gemiddelde bedrag wat op je rekening staat. Dus sparen in januari is gunstiger dan in december. Het kan ook zijn dat je bank het berekend aan de hand van het saldo op 1-1 en je extra rente geeft voor iedere euro daarboven die je op je rekening laat staan. Op deze manier wordt geld opnemen eigenlijk ontmoedigt..

Met je hypotheek zou je 12 keer je maandlasten uit kunnen rekenen, die bij elkaar optellen en delen door 12, dan heb je je gemiddelde maandlasten in 1 jaar. Vraag anders even na bij je bank/hypotheekverstrekker hoe zij het berekenen :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106396625
quote:
0s.gif Op woensdag 4 januari 2012 11:33 schreef ralfie het volgende:
je vraag is dus niet 'snap het niet' maar 'kan iemand dit voor mij maken'?
Zoals ik al zei, een compleet iets zou handig zijn maar daar leer ik weer niks van. Dus ik zoek nog wel even verder.
pi_106398972
1
2
3
4
5
6
7
8
9
10
11
12
13
=IF($B2=-4142;INDEX('[Alles.xlsx]-4142'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]-4142'!$A$2:$A$7209; ROW('[Alles.xlsx]-4142'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]-4142'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
IF($B2=3;INDEX('[Alles.xlsx]3'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]3'!$A$2:$A$7209; ROW('[Alles.xlsx]3'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]3'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
IF($B2=6;INDEX('[Alles.xlsx]6'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]6'!$A$2:$A$7209; ROW('[Alles.xlsx]6'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]6'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
IF($B2=12;INDEX('[Alles.xlsx]12'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]12'!$A$2:$A$7209; ROW('[Alles.xlsx]12'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]12'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
IF($B2=14;INDEX('[Alles.xlsx]14'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]14'!$A$2:$A$7209; ROW('[Alles.xlsx]14'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]14'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
IF($B2=33;INDEX('[Alles.xlsx]33'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]33'!$A$2:$A$7209; ROW('[Alles.xlsx]33'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]33'!$A$2:$A$7209))+1; ""); COLUMN(A1)));
 IF($B2=37;INDEX('[Alles.xlsx]37'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]37'!$A$2:$A$7209; ROW('[Alles.xlsx]37'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]37'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
 IF($B2=40;INDEX('[Alles.xlsx]40'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]40'!$A$2:$A$7209; ROW('[Alles.xlsx]40'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]40'!$A$2:$A$7209))+1; ""); COLUMN(A1)));
 IF($B2=43;INDEX('[Alles.xlsx]43'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]43'!$A$2:$A$7209; ROW('[Alles.xlsx]43'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]43'!$A$2:$A$7209))+1; ""); COLUMN(A1)));
 IF($B2=44;INDEX('[Alles.xlsx]44'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]44'!$A$2:$A$7209; ROW('[Alles.xlsx]44'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]44'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
 IF($B2=46;INDEX('[Alles.xlsx]46'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]46'!$A$2:$A$7209; ROW('[Alles.xlsx]46'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]46'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
 IF($B2=47;INDEX('[Alles.xlsx]47'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]47'!$A$2:$A$7209; ROW('[Alles.xlsx]47'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]47'!$A$2:$A$7209))+1; ""); COLUMN(A1))); 
 IF($B2=53;INDEX('[Alles.xlsx]53'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]53'!$A$2:$A$7209; ROW('[Alles.xlsx]53'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]53'!$A$2:$A$7209))+1; ""); COLUMN(A1))); "ERROR, geen matchende kleurcode!")))))))))))))
(er zitten enters in voor de leesbaarheid)

Iemand misschien enig idee hoe ik dit efficiėnter kan doen? Excel en mijn pc hebben er nog al wat moeite mee om een sheet hiermee weer te geven.

Elke IF laat de functie zoeken op een tablad in het bestand Alles dat overeenkomt met een kleur in een cel eerder.
Ik heb al wel de grootste tabladen de laagste nummers gegeven maar dat helpt vrijwel niks :')
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106399432
Werkt de case functie niet, of bestaat deze niet in vba excel?
pi_106399674
quote:
0s.gif Op woensdag 4 januari 2012 15:55 schreef Basp1 het volgende:
Werkt de case functie niet, of bestaat deze niet in vba excel?
Ik ben nog niet bekend met deze functie :P
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
  woensdag 4 januari 2012 @ 16:28:44 #91
85514 ralfie
!Yvan eht nioj
pi_106400984
quote:
0s.gif Op woensdag 4 januari 2012 15:55 schreef Basp1 het volgende:
Werkt de case functie niet, of bestaat deze niet in vba excel?
functie? je bedoelt gewoon
1
2
3
4
5
6
select case Cells(1,1).Value
     case "jantje"
           MsgBox "het is jantje"
     case Else
           MsgBox "het is iemand anders"
end select
pi_106402303
quote:
0s.gif Op woensdag 4 januari 2012 16:28 schreef ralfie het volgende:

functie? je bedoelt gewoon
Ja die bedoel ik dan heeft de vraag steller geen last van het beperkt kunnen nesten van if then els constructies.

Zie ook onderstaande voorbeelden :

http://www.databison.com/(...)-statement-in-excel/
pi_106405182
quote:
7s.gif Op woensdag 4 januari 2012 15:46 schreef Jesse_ het volgende:

[ code verwijderd ]

(er zitten enters in voor de leesbaarheid)

Iemand misschien enig idee hoe ik dit efficiėnter kan doen? Excel en mijn pc hebben er nog al wat moeite mee om een sheet hiermee weer te geven.

Elke IF laat de functie zoeken op een tablad in het bestand Alles dat overeenkomt met een kleur in een cel eerder.
Ik heb al wel de grootste tabladen de laagste nummers gegeven maar dat helpt vrijwel niks :')
VLOOKUP en je INDEX maken met namen in cellen en INDIRECT.
  donderdag 5 januari 2012 @ 13:19:29 #94
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_106435833
Ik heb Excel 2007, NL.

Ik heb in cel A1 een waarde als grondslag. Bij deze grondslag hoort een tabel met zoek bedragen en daarbij de waarde die ik wil weten. Deze bedragen zijn niet per definitie gelijk (dus VLOOKUP werkt niet) maar afgerond. Nu wil ik de afgeleide waarde weten. Hierbij moet echter gezocht worden naar de waarde die het dischte bij de grondslag ligt, maar nooit hoger is dan de grondslag.

Dus bv. een grondslag van 3250,51.
In de zoektabel komen zoekwaarden voor van bv. 3249,85 (met afgeleide waarde van 350) en 3250,52 (met afgeleide waarde van 375).

Hij moet dan de afgeleide waarde geven die hoort bij 3249,85 (dus eigenlijk een vlookup die zoekt naar de dichtsbijliggende waarde maar nooit hoger dan de grondslag); in dit geval dus 350.

Iemand een suggestie hoe dit te doen??
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_106436560
Met VLOOKUP en je laatste argument een 1 (benaderen, en die doet het grootste getal dat kleiner is dan te zoeken waarde).
Nadeel is wel dat je lijst gesorteerd MOET zijn.
  donderdag 5 januari 2012 @ 14:30:15 #96
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_106438525
quote:
1s.gif Op donderdag 5 januari 2012 13:37 schreef DaFan het volgende:
Met VLOOKUP en je laatste argument een 1 (benaderen, en die doet het grootste getal dat kleiner is dan te zoeken waarde).
Nadeel is wel dat je lijst gesorteerd MOET zijn.
Dat het zo simpel zou zijn...... ^O^

Thanks.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_106476503
Wij werken met een gedeelde schijf waar al onze (oa) exceldocumenten op staan. Er kan steeds slechts één iemand werken in een document. De rest gaat automatisch in 'alleen lezen'.

Is er ook een mogelijkheid om een document sowieso te openen in alleen-lezen? Zodat anderen gewoon in het originele bestand kunnen.
pi_106476667
Niet vanuit je share, wel vanuit Excel. Openen -> opzoeken en dan naast Openen op dropdown pijltje klikken en kiezen voor Openen met kenmerk alleen-lezen.
pi_106520900
Ik heb een excel bestand die data uit een access database haalt. Nu wil weten wat de locatie van dat access bestand is. Wanneer ik "edit query" doe, kom ik in MS Query. In de SQL code in MS Query staan de tabelnamen, maar geen bestandsnaam.

Hoe kom ik er nu achter uit welk access bestand het excel bestand zijn data haalt?

Thanks
pi_106550114
Kay. Ben ff met iets bezig. Maar lukt niet helemaal.

Wat ik dus wil, is dat er in een cel gechecked word of een andere cel een cijfer bevat.

Voorbeeld:
A1: 1.
B1: 1.
C1: 1.
D1: 4.

En dan moet er in een andere cel - we noemen hem voor het gemak A3 - , naar A1 t/m D1 gekeken worden of er een cijfer in staat. Wanneer er een 1 in staat, dan moet er een 1 bij geteld worden bij het originele getal (wat standaard op 0 staat) dat in A3 staat. Maar, dat moet dus continu gebeurd worden. Dus, als er in A1 staat: dan is het 0+1. Echter, als in B1 ook een 1 staat, dan moet er nog een 1 bij opgeteld worden. Kan dat?

Ik hoop dat jullie het snappen. :')
pi_106550634
Heb het al. COUNT.IF / AANTAL.ALS *O*
pi_106694009
Misschien dat een van de excel kenners hier me kan helpen:

Voor mijn werk (office 2010), heb ik een lijst in excel met gegevens van klanten, deze bevat o.a.
naam bedrijf, plaats bedrijf, e-mail adres, heer/mevrouw, naam contactpersoon.
Elke dag komt er vanuit ons eigen software pakket (zoals SAP) een excel lijst met dezelfde gegevens en extra offerte informatie. Alleen de e-mail adressen ontbreken. Omdat ik vanuit bestand 2 in word een verzendlijst maak, en nu elke dag apart de betreffende mail adressen een voor een kopieer, vroeg ik me af of het mogelijk is in bestand 2 een nieuwe lege kolom toe te voegen en die met behulp van bestand 1 te laten invullen. Als het kan wel met een check van naam persoon en bedrijfsnaam. Zou me veel werk schelen, maar ik ben niet zo handig met excel.
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106694375
Kan jullie eigen software zoals sap niet meteen een emailadres in de lijst toevoegen dan ben je meteen klaar.
pi_106694755
ja dat kan eenvoudig

bijvoorbeeld met een simpele teller

Uitgangspunten

sheet 2:
alles staat in het eerste tablad, eerste regel bevat kolomnamen
naam staat in sheet2.kolom 1
bedrijfsnaam in sheet2.kolom 2
het email adres moet in kolom 3 komen

sheet 1
alles staat in het eerste tabblad, eerste regel bevat kolomnamen
naam staat in sheet1.kolom 1
bedrijfsnaam in sheet1.kolom 2
email adres in sheet1.kolom 3

1
2
3
4
5
6
7
8
9
10
11
12
13
for i = 2 to 32000

for j = 2 to 32000

if workbooks("sheet1").sheets("blad1").cells(j,1)=workbooks("sheet2").sheets("blad1").cells(i,1) and workbooks("sheet1").sheets("blad1").cells(j,2)=workbooks("sheet2").sheets("blad1").cells(i,2) then

workbooks("sheet2").sheets("blad1").cells(i,3) = workbooks("sheet1").sheets("blad1").cells(j,3)
exit for
end if

next

next


[ Bericht 0% gewijzigd door #ANONIEM op 11-01-2012 19:51:52 ]
pi_106695195
Ik verwacht dat de lijst 2 per dag verschillend is anders zou vraagsteller ook dagelijks 1 kolom gekopieerd kunnen hebben.
pi_106695281
quote:
0s.gif Op woensdag 11 januari 2012 20:00 schreef Basp1 het volgende:
Ik verwacht dat de lijst 2 per dag verschillend is anders zou vraagsteller ook dagelijks 1 kolom gekopieerd kunnen hebben.
Nou dat maakt toch ook niet uit

Je loopt door lijst 1 heen en als de naam uit lijst 1 overeenkomt met de naam uit lijst 2 en idem voor bedrijfsnaam pak je het email adres

het punt is alleen dat de workbooks geen vaste naam zullen hebben.

Dus ik zou het oplossen door er een add-in van te maken met een simpel formulier met twee browse knoppen, 1 voor het bron bestand en 1 voor het doelbestand

edit;
daarbij tel ik nu tot 32000 en als ik het echt zou bouwen zou ik waarschijnlijk de lastactivecell pakken, maar dat is bijschaven

[ Bericht 7% gewijzigd door #ANONIEM op 11-01-2012 20:03:48 ]
pi_106695579
Klopt mijn fout. Gaat alleen jou oplossing niet een hele lang runtime hebben met 2 for loops in elkaar tot 32000?

En zoals ik zei dat pakket zoals sap waar het uit komt zal waarschijnlijk toch ook wel de mailadressen bevatten dus gewoon het rapport wat lijst 2 genereerd aanpassen. Sterker nog ze zouden een rapport moeten maken wat meteen de word documenten genereerd ipv die omslachtige wegen die bewandeld worden.
pi_106695684
quote:
0s.gif Op woensdag 11 januari 2012 20:08 schreef Basp1 het volgende:
Klopt mijn fout. Gaat alleen jou oplossing niet een hele lang runtime hebben met 2 for loops in elkaar tot 32000?

En zoals ik zei dat pakket zoals sap waar het uit komt zal waarschijnlijk toch ook wel de mailadressen bevatten dus gewoon het rapport wat lijst 2 genereerd aanpassen. Sterker nog ze zouden een rapport moeten maken wat meteen de word documenten genereerd ipv die omslachtige wegen die bewandeld worden.
Zoals ik al zei, ik zou lastactivecell pakken

32000 is het max wat je een integer kan geven (of 64000 maar ik weet niet meteen of ze signed of unsigned zijn in vba)...

Daarbij doe ik exit for als het email adres is gevonden

maar ja, het kan wel een minuut of wat duren afhankelijk van je systeem

tijd voor koffie, beter dan adressen harken ;)

edit;

En ja, SAP moet dit kunnen, maar ik snap de vraagsteller wel ,want als je ooit een wijziging hebt aangevraagd in SAP snap je dat ze het zelf liever nu oplost dan pas over drie jaar en twaalf budgetvergaderingen en 16 nieuwe bugs haar zin te hebben

:') SAP

[ Bericht 12% gewijzigd door #ANONIEM op 11-01-2012 20:11:42 ]
pi_106698901
bedankt voor de antwoorden! ik ga er eens mee spelen morgen.
SAP zou dit inderdaad moeten kunnen, alleen hebben we niet de mogelijkheid om bij een contactpersoon een mail adres in te voeren. Ergens dit jaar komt er een nieuwe SAP, en ik heb dit ook aangegeven, maar ja in de tussentijd zou het mijn werk een stuk sneller maken.
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106700162
Maakt het trouwens nog uit wat voor namen de bestanden krijgen?
Wat knap trouwens dat jullie er zoveel van weten! Ik ben al blij dat ik de autosom functie weet te gebruiken. :@
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106712875
quote:
0s.gif Op woensdag 11 januari 2012 21:18 schreef gekkie000000 het volgende:
Maakt het trouwens nog uit wat voor namen de bestanden krijgen?
Ja, sheet1 en sheet2 zijn de werkboeknamen

blad1 is de naam van het tabblad waar de data staat

in mijn voorbeeld moeten beide workbooks open staan

Ik zou de code testen onder een macro:

1
2
3
4
5
sub macro1()

code

end sub

en die macro aanroepen

Uiteindelijk wil je een vaste oplossing, je zou een add-in kunnen maken (een derde sheet die je opslaat als add-in)

daar maak je de macro in en die kun je bijvoorbeeld aan een formulier (dialoogschermpje) hangen met twee browse knoppen om de juiste bestanden aan te wijzen.

Die add-in laad je vast in in excel. De macro kun je dan bijvoorbeeld onder een knop in een ribbon plaatsen. Die knop is er dan altijd en als je erop drukt komt er een dialoogschermpje met de browse knoppen.

Het is een hoop gehobby om dat uit te vogelen, maar aan de andere kant, je leert er een hoop van.

In het uiterste geval wil ik je ook wel helpen hoor, maar dan wil ik graag de twee sheets zien (zonder data, alleen kolomkoppen).

Alleen uit principe vind ik dat je eerst zelf moet vogelen en uitproberen ;)

browseknop:

1
2
3
4
5
6
7
8
Dim fn as string
dim Worbook_1 as string
fn = Application.GetOpenFilename 
If fn = False Then 
    MsgBox "U drukte op Cancel" 
Else 
    workbook_1= fn
End If 

Met bovenstaande code onder een knop kun je workbook_1 en (met aanpassing) workbook_2 "aanwijzen"

Je moet elke routine in een sub vangen (zoals in het eerste stukje code sub Macro1(). .. end sub)

Je kan vanuit de ene sub de andere sub aanroepen door de naam te noemen van die routine(sub)

Vervang de 32000 uit mijn eerste post door bijv. 100 (100 regels) als het werkt kun je verder vogelen en uitzoeken hoe lastactivecell werkt. (als je code misgaat ergens en je telt 32000 keer naar 32000 dan lijkt het alsof je pc hangt)

Ellendig is dat Nl mensen de begrippen sheet verkeerd gebruiken, het bestand is eigenlijk een workbook, de tabbladen zijn sheets, in bovenstaande code heb ik het dus ook over workbook_1, dat is wat jij bedoelde met sheet1...

[ Bericht 3% gewijzigd door #ANONIEM op 12-01-2012 06:35:48 ]
pi_106713562
Ik ga het straks even proberen, maar ik het is echt abracadabra voor mij. Maar inderdaad, hoe meer ik zelf probeer, hoe meer ik er zelf van leer. Ik laat je wel iets weten.
Ben je voor je werk met excel bezig, dat je er zoveel van weet? Of is het een hobby?
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106713666
Gekkie0000 let even op of de toolbar/ribbon voor ontwikkelaars wel aanstaat (in ieder geval in office 2007 moet ik dat altijd bij een nieuwe installatie altijd doen) anders kun je geen macro's ed toevoegen.
pi_106714009
quote:
0s.gif Op donderdag 12 januari 2012 08:48 schreef Basp1 het volgende:
Gekkie0000 let even op of de toolbar/ribbon voor ontwikkelaars wel aanstaat (in ieder geval in office 2007 moet ik dat altijd bij een nieuwe installatie altijd doen) anders kun je geen macro's ed toevoegen.
Waar zie ik dat?
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106714108
quote:
0s.gif Op donderdag 12 januari 2012 09:12 schreef gekkie000000 het volgende:

[..]

Waar zie ik dat?
Als je hem niet ziet moet je hem aanzetten :P
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106714474
quote:
7s.gif Op donderdag 12 januari 2012 09:18 schreef Jesse_ het volgende:

[..]

Als je hem niet ziet moet je hem aanzetten :P
Help of zeg niets

in ieder geval:

http://msdn.microsoft.com/en-us/library/ee814737.aspx

To enable the Developer tab

1.
On the File tab, choose Options to open the Excel Options dialog box.

2.
Click Customize Ribbon on the left side of the dialog box.

3.
Under Choose commands from on the left side of the dialog box, select Popular Commands.

4.
Under Customize the ribbon on the right side of the dialog box, select Main tabs, and then select the Developer check box.

5.
Click OK.
pi_106714681
quote:
0s.gif Op donderdag 12 januari 2012 09:42 schreef KritischeMassa het volgende:

[..]

Help of zeg niets
Oh boehoe :')
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_106727836
Kritische massa, als je me zou willen helpen als je er tijd voor hebt een keer zou ik het heel erg op prijs stellen. Ik heb de helft van de dag gevogeld, maar ik snap er echt niets van. Voel me heel dom...





Dit zijn de begin bestanden.
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106728426
quote:
0s.gif Op donderdag 12 januari 2012 16:57 schreef gekkie000000 het volgende:
Kritische massa, als je me zou willen helpen als je er tijd voor hebt een keer zou ik het heel erg op prijs stellen. Ik heb de helft van de dag gevogeld, maar ik snap er echt niets van. Voel me heel dom...

[ afbeelding ]

[ afbeelding ]

Dit zijn de begin bestanden.
Je hebt PM :) ik heb een voorbeeld voor je gebouwd ;)

http://www.mediafire.com/?n4hg8l23afynnr1

Volgens mij heb ik het geupload (vrij nieuwe materie, ik load nooit up ;) )

Het is wel in excel 2003 format, dus ik weet niet of je als je mailmerge.xls inlaadt een net menu krijgt, maar dat schaven we wel bij ;)

[ Bericht 20% gewijzigd door #ANONIEM op 12-01-2012 17:28:42 ]
pi_106729449
*O* Bedankt! Ga morgen testen, thuis ziet het menu er in ieder geval perfect uit!
Ben helemaal happy.
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106729593
:)

let op he:

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

    Workbooks.Open (WB_1)
    WB_1_Name = ActiveWorkbook.Name
    WB_1_LastCell = Workbooks(WB_1_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
    Workbooks.Open (WB_2)
    WB_2_Name = ActiveWorkbook.Name
    WB_2_LastCell = Workbooks(WB_2_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
    
    For i = 2 To WB_1_LastCell
        For j = 2 To WB_2_LastCell
            If Workbooks(WB_1_Name).Sheets(1).Cells(i, 1) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 1) And Workbooks(WB_1_Name).Sheets(1).Cells(i, 2) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 2) Then
                Workbooks(WB_2_Name).Sheets(1).Cells(j, 3) = Workbooks(WB_1_Name).Sheets(1).Cells(i, 3)
                
            End If
        Next
    Next

End Sub

Cells(i, 1) de 1 wijst hier naar kolom 1, als je kolom C wil vergelijken maak je hier kolom 3 van (gewoon tellen dus)
pi_106768877
@Kritische massa, je bent geweldig! vandaag getest met mijn "eigen" bestanden en zelf de kolomnummers aangepast en het werkt perfect. Nog een keer hardstikke bedankt! ^O^
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106769079
quote:
0s.gif Op vrijdag 13 januari 2012 17:49 schreef gekkie000000 het volgende:
@Kritische massa, je bent geweldig! vandaag getest met mijn "eigen" bestanden en zelf de kolomnummers aangepast en het werkt perfect. Nog een keer hardstikke bedankt! ^O^
:D

Dat is mooi :)

Probeer de code ook te snappen ;) heel ingewikkeld is het namelijk niet

Als je de sheet "mailmerge" opslaat als add-in (.xla) kun je hem via add-in inladen vast in excel zetten, zo heb je dat menu altijd en heb je niet die extra sheet meer nodig

http://www.dq.winsila.com(...)-and-excel-2010.html

En je kunt het form natuurlijk altijd zelf pimpen met jouw naam in het userfform, zodat als collega's het gebruiken ze herinnerd worden aan jouw briljantheid ;)
pi_106771262
quote:
0s.gif Op vrijdag 13 januari 2012 17:54 schreef KritischeMassa het volgende:

En je kunt het form natuurlijk altijd zelf pimpen met jouw naam in het userfform, zodat als collega's het gebruiken ze herinnerd worden aan jouw briljantheid ;)
Ik heb al lang verteld dat een geweldige fokker dit voor me gemaakt heeft. Ik ga maandag verder proberen. Fijn weekend!
Hey amigos . . .Adelante amigos . . .Vamos vamos mi amor, Me gusta mucho tu sabor, No no no no tu corazón, Mucho mucho tu limón, Dame de tu fruta
Vamos mi amor . . .Te quiero puta! Te quiero puta! Ay que rico
pi_106795978
Omdat dit een helptopic is en misschien mensen interesse hebben hoe ik Gekkie000000 heb geholpen zal ik in deze post uitleggen wat ik heb gedaan.

In de VBA editor heb ik een form ingevoegd met 4 commandbuttons, twee tekstvakken en twee labels zoals weergegeven in het plaatje.

Ook heb ik twee modules ingevoegd en deze een handige naam gegeven, namelijk:

Routines
Variabelen




Ik heb eerst mijn variabelen gedeclareerd en deze public gemaakt zodat ze tussen routines uitgewisseld kunnen worden:

module "Variabelen"
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'voor het overzicht declareer ik mijn variabelen altijd in een aparte module
'ik maak ze allemaal public, ook de tellers
'omdat deze voor navigatie worden gebruikt en ik ze eventueel bij uitbreiding van code en functies
'misschien wel wil hergebruiken

Public fn              As String
Public WB_1            As String
Public WB_1_Name       As String
Public WB_2            As String
Public WB_2_Name       As String
Public WB_1_LastCell   As Integer
Public WB_2_LastCell   As Integer
Public i               As Integer
Public j               As Integer

In de module Routines heb ik de code gezet die het eigenlijke prgramma vormen en die moeten worden aangeroepen:

module "Routines"
1
2
3
4
5
6
Sub Dialoog()
'Aanroepen Userform1, start van de routine MailMerge
'Deze routine wordt niet gebruikt maar is wel een macro die kan worden aangeroepen als het plaatsen
'van het menu niet is gelukt (ivm met office 2010 ribbon en het feit dat de code in office 2003 is gebouwd)
    UserForm1.Show
End Sub

1
2
3
4
5
Sub Get_File()
'Aanroepen interne verkenner van Excel
'Het gekozen bestand wordt in de variabele "fn" opgeslagen
    fn = Application.GetOpenFilename
End Sub

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
Sub Samenvoegen()
'Routine die wordt uitgevoerd wanneer er op "samenvoegen" wordt geklikt

'WB_1 is het bronbestand waar de email adressen in staan
'Deze is aangewezen door met behulp van de browse knop een bestand te kiezen
    Workbooks.Open (WB_1)
'Sla de naam van het workbook op in de variabele "WB_1_Name"
    WB_1_Name = ActiveWorkbook.Name
'Zoek de laatste actieve cell op van sheet WB_1
    WB_1_LastCell = Workbooks(WB_1_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
'WB_2 is het SAP uitvoerbestand waar de email adressen in moeten komen
'Deze is aangewezen door met behulp van de browse knop een bestand te kiezen
    Workbooks.Open (WB_2)
'Sla de naam van het workbook op in de variabele "WB_2_Name"
    WB_2_Name = ActiveWorkbook.Name
'Zoek de laatste actieve cell op van sheet WB_1
    WB_2_LastCell = Workbooks(WB_2_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row
    
'met teller i lopen we door het bronbestand met de email adressen
'om de routine niet onnodig lang te laten duren tellen we tot de laatste actieve cel
    For i = 2 To WB_1_LastCell

'met teller j lopen we door het doelbestand waar de email adressen heen moeten
'om de routine niet onnodig lang te laten duren tellen we tot de laatste actieve cel
        For j = 2 To WB_2_LastCell
'Als de naam uit kolom 1 overeenkomt en het bedrijf uit kolom 2 kopieeren we het emailadres uit kolom 3 naar kolom 3
            If Workbooks(WB_1_Name).Sheets(1).Cells(i, 1) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 1) And Workbooks(WB_1_Name).Sheets(1).Cells(i, 2) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 2) Then
                Workbooks(WB_2_Name).Sheets(1).Cells(j, 3) = Workbooks(WB_1_Name).Sheets(1).Cells(i, 3)
            End If
        Next
    Next

End Sub

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
Sub AddMenus()
'Routine om een menu item toe te voegen aan excel
'We declareren een control, commandbar en een commandbarcontrol
'We willen het nieuwe menu voor het Help item in excel plaatsen
    Dim cMenu1 As CommandBarControl
    Dim cbMainMenuBar As CommandBar
    Dim iHelpMenu As Integer
    Dim cbcCustomMenu As CommandBarControl

'Schakel errordetectie uit omdat we geen lelijke melding willen in het volgende stuk
'voor de netheid verwijderen we namelijk eerst het menu item
'om te voorkomen dat er twee identiek menuitems kunnen bestaan
    On Error Resume Next

'verwijder het menu "mailmerge"
'als mailmerge niet bestaat geeft dit een fout
'maar foutdetect staat uit, dus code zal gewoon doorgaan
    Application.CommandBars("Worksheet Menu Bar").Controls("MailMerge").Delete
    
'zet error detect weer aan
    On Error GoTo 0
    
'stel een commandbar in in excel (application)
    Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
    
'stel vast welk indexnummer het menu "Help" heeft
    iHelpMenu = cbMainMenuBar.Controls("Help").Index
    
'voeg het menu toe aan excel, voor het menu "Help"
'menutype is pop-up
    Set cbcCustomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=iHelpMenu)
'stel de naam in van het menu
    cbcCustomMenu.Caption = "MailMerge"
    
'Voeg een item toe aan het menu
    With cbcCustomMenu.Controls.Add(Type:=msoControlButton)
'geef het item een naam
    .Caption = "Mailbestand Samenvoegen"
'geef het item een uit te voeren routine
    .OnAction = "OpenMe"
'geef het item een kek plaatje
    .FaceId = 733
    End With

End Sub

Overzicht Kekke plaatjes inclusief FaceID nummer

1
2
3
4
5
Sub OpenMe()
'er is geklikt op "mailbestand samenvoegen"in het menu "MailMerge"
'het dialoogscherm wordt aangeroepen
    UserForm1.Show
End Sub

1
2
3
4
5
6
7
Sub DeleteMenu()
'als de gebruiker excel, of het bestand "MailMerge.xls", afsluit
'wordt deze routine aangeroepen om de menubar weer op te ruimen
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("MailMerge").Delete
    On Error GoTo 0
End Sub

Vervolgens heb in "ThisWorkbook" code toegevoegd die moet worden uitgevoerd bij openen en sluiten van het workbook:

code in "ThisWorkbook"
1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
'actie als workbook wordt geopend
    AddMenus
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'actie als workbook wordt gesloten
    DeleteMenu
End Sub

In het form heb ik code toegevoegd die moet worden uitgevoerd bij het indrukken van de knoppen

code in "Userform1"
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
'Commandbuttonactie Browse bestand 1
    Get_File
    TextBox1.Text = fn
    WB_1 = fn
End Sub

Private Sub CommandButton2_Click()
'Commandbuttonactie Browse bestand 2
    Get_File
    TextBox2.Text = fn
    WB_2 = fn
End Sub

Private Sub CommandButton3_Click()
'Commandbuttonactie Samenvoegen
    Samenvoegen
    Unload Me
End Sub

Private Sub CommandButton4_Click()
'Commandbuttonactie Annuleer
    Unload Me
End Sub

In excel ziet het nieuwe menu er dan zo uit:



[ Bericht 4% gewijzigd door #ANONIEM op 14-01-2012 11:14:45 ]
  zaterdag 14 januari 2012 @ 11:25:40 #126
62215 qu63
..de tijd drinkt..
pi_106796422
Nette en duidelijk post KM! ^O^
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106797221
Dank u :)

Ik weet dat het in dit topic niet de bedoeling is om kant en klare programma's aan te reiken maar in dit geval was de oplossing tegelijk eenvoudig en ingewikkeld.

De code voor het samenvoegen is immers zo aan iemand uit te leggen, maar hoe je vervolgens ervoor zorgt dat je willekeurige workbooks kunt bewerken en hoe je ervoor zorgt dat de code op een gebruiksvriendelijke manier aan te bieden is, is andere koek.

In principe vind ik dat mensen zelf moeten vogelen, en afhankelijk van de uitgangskennis van de vraagsteller kan je ook wel inschatten of dat goed gaat komen, of niet.

Als iemand de VBA editor met moeite kan vinden is het goed om (naar mijn mening) een wat meer "kant en klare" oplossing aan te bieden in de hoop dat diegene dan verder kan vogelen om de code aan te passen naar eigen wens.

In het meest ideale geval raken mensen geļnspireerd en leren ze op basis van wat ze is aangereikt zichzelf nieuwe "skills" aan.

Ik het geval van Gekkie waren er een aantal zaken, waarvan de eerste ook terecht werd aangegeven, zorg ervoor dat SAP dit zelf doet! Echter uit ervaring weet ik dat je als individuele gebruiker erg hard moet trekken om iets voor elkaar te krijgen.

Juist de vrijheid die je hebt als je zelf in staat bent om met behulp van eigen kennis in de kantooromgeving zelf je eigen tools te bouwen (en die heb je met VBA) kan inspirerend werken.

Edit:

Ik heb een voorbeeld toegevoegd van een wat meer uitgebreid menu

FOK! Menu



SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.


[ Bericht 39% gewijzigd door #ANONIEM op 14-01-2012 14:21:50 ]
  zaterdag 14 januari 2012 @ 15:14:43 #128
185588 Irritatie100
RATATATATATA!!!!
pi_106802260
Is het mogelijk om een recursieve functie uit te rekenen met Excel?
  zaterdag 14 januari 2012 @ 15:17:37 #129
62215 qu63
..de tijd drinkt..
pi_106802344
quote:
0s.gif Op zaterdag 14 januari 2012 15:14 schreef Irritatie100 het volgende:
Is het mogelijk om een recursieve functie uit te rekenen met Excel?
Heb je hier wat aan?
http://social.msdn.micros(...)3c-a990-046e987ab421
http://www.excelforum.com(...)ursive-function.html
bron: google...
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106802430
quote:
0s.gif Op zaterdag 14 januari 2012 15:14 schreef Irritatie100 het volgende:
Is het mogelijk om een recursieve functie uit te rekenen met Excel?
Een recursieve functie als in Ackerman recursie? Dan denk ik dat je MathLab moet hebben.

Wat wil je precies doen?
  zaterdag 14 januari 2012 @ 15:28:03 #131
185588 Irritatie100
RATATATATATA!!!!
pi_106802619
quote:
0s.gif Op zaterdag 14 januari 2012 15:20 schreef KritischeMassa het volgende:

[..]

Een recursieve functie als in Ackerman recursie? Dan denk ik dat je MathLab moet hebben.

Wat wil je precies doen?
SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Ik weet van te voren de gegevens in A1, A2 en A3. A4 is uitgerekend met de functie BET. Het antwoord dat ik wil weten is het bedrag in B17. Alleen de bedoeling is dat ik dat antwoord niet verkrijg door zo'n hele tabel op te stellen, maar door 1 formule (dus maar 1 cel) te gebruiken.
pi_106802758
Ik denk niet dat Excel daar een kant en klare functie voor heeft, maar je kan zelf functies bouwen in excel.

http://office.microsoft.c(...)ons-HA001111701.aspx
  zaterdag 14 januari 2012 @ 17:52:55 #133
185588 Irritatie100
RATATATATATA!!!!
pi_106807405
Ik heb het al anders gedaan. Ik had de formule van de bijbehorende rekenkundige rij opgesteld, een vriend gezocht die wiskunde studeert en hem de functie laten aanpassen zodat hij niet meer recursief was. En het werkte :D
Ik ga nu eens kijken of ik een vriend heb die informatica studeert zodat ik wel zo'n directe functie in Excel heb :P
pi_106808107
quote:
0s.gif Op zaterdag 14 januari 2012 17:52 schreef Irritatie100 het volgende:
Ik heb het al anders gedaan. Ik had de formule van de bijbehorende rekenkundige rij opgesteld, een vriend gezocht die wiskunde studeert en hem de functie laten aanpassen zodat hij niet meer recursief was. En het werkte :D
Ik ga nu eens kijken of ik een vriend heb die informatica studeert zodat ik wel zo'n directe functie in Excel heb :P
Je wil dat het dus gebouwd wordt voor je, zeg dat dan...

1
2
3
4
5
6
7
8
9
10
Function FOK(rente, startbedrag, aflossing, looptijd)

    For i = 1 To looptijd
    
        FOK = startbedrag - (aflossing - (rente / 100 * startbedrag))
        startbedrag = FOK
    
    Next

End Function

Deze code in een module zetten en voila



Type in =FOK() en druk op fx

[ Bericht 1% gewijzigd door #ANONIEM op 14-01-2012 18:19:49 ]
  zaterdag 14 januari 2012 @ 18:23:55 #135
185588 Irritatie100
RATATATATATA!!!!
pi_106808413
quote:
12s.gif Op zaterdag 14 januari 2012 18:14 schreef KritischeMassa het volgende:

[..]

Je wil dat het dus gebouwd wordt voor je, zeg dat dan...
[ code verwijderd ]

Deze code in een module zetten en voila

[ afbeelding ]

Type in =FOK() en druk op fx
Alleen verandert de verhouding tussen aflossing en rente elk jaar, dan kan je dit toch niet gebruiken?
  zaterdag 14 januari 2012 @ 18:43:35 #136
185588 Irritatie100
RATATATATATA!!!!
pi_106809046
Maar ik zal hem zo proberen, eerst even het volgende :D

Dit is de situatie:
SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Ik moet uitzoeken welke waarde er in cel B3 komt te staan, zodat de waardes in F11 en J11 gelijk zijn. Kan ik de doelzoeker gebruiken? En zo ja: hoe moet ik die invullen?
Als er verder nog info nodig is over de gegevens die er in de sheet staan hoor ik het wel :P
pi_106809048
quote:
0s.gif Op zaterdag 14 januari 2012 18:23 schreef Irritatie100 het volgende:

[..]

Alleen verandert de verhouding tussen aflossing en rente elk jaar, dan kan je dit toch niet gebruiken?
Nou dat gebeurt toch ook, het startbedrag wordt steeds ge-update

Volgens mij werkt het, heb je het al getest?

Die looptijd in de functie is dus bijvoorbeeld 10

[ Bericht 4% gewijzigd door #ANONIEM op 14-01-2012 18:44:58 ]
  zaterdag 14 januari 2012 @ 18:47:27 #138
185588 Irritatie100
RATATATATATA!!!!
pi_106809168
quote:
0s.gif Op zaterdag 14 januari 2012 18:43 schreef KritischeMassa het volgende:

[..]

Nou dat gebeurt toch ook, het startbedrag wordt steeds ge-update

Volgens mij werkt het, heb je het al getest?

Die looptijd in de functie is dus bijvoorbeeld 10
Ik heb het net getest, maar als ik als aflossing die 24081,89 invul, looptijd 10, rente 5,5% en startbedrag 350.000, dan komt er iets heel anders uit...
pi_106809364
quote:
0s.gif Op zaterdag 14 januari 2012 18:47 schreef Irritatie100 het volgende:

[..]

Ik heb het net getest, maar als ik als aflossing die 24081,89 invul, looptijd 10, rente 5,5% en startbedrag 350.000, dan komt er iets heel anders uit...
is die 5,5 het getal 5,5 of 5,5% want ik deel die 5,5 eerst door 100
  zaterdag 14 januari 2012 @ 18:53:59 #140
185588 Irritatie100
RATATATATATA!!!!
pi_106809396
quote:
0s.gif Op zaterdag 14 januari 2012 18:53 schreef KritischeMassa het volgende:

[..]

is die 5,5 het getal 5,5 of 5,5% want ik deel die 5,5 eerst door 100
0,055 en dan de cel als eigenschap percentage meegegeven.
pi_106809425
quote:
0s.gif Op zaterdag 14 januari 2012 18:53 schreef Irritatie100 het volgende:

[..]

0,055 en dan de cel als eigenschap percentage meegegeven.
Probeer het eens met het getal 5,5?
  zaterdag 14 januari 2012 @ 18:56:17 #142
185588 Irritatie100
RATATATATATA!!!!
pi_106809471
quote:
0s.gif Op zaterdag 14 januari 2012 18:54 schreef KritischeMassa het volgende:

[..]

Probeer het eens met het getal 5,5?
Ja, nu werkt ie. Thanks!
Nu deze: :P
quote:
0s.gif Op zaterdag 14 januari 2012 18:43 schreef Irritatie100 het volgende:
Maar ik zal hem zo proberen, eerst even het volgende :D

Dit is de situatie:
SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Ik moet uitzoeken welke waarde er in cel B3 komt te staan, zodat de waardes in F11 en J11 gelijk zijn. Kan ik de doelzoeker gebruiken? En zo ja: hoe moet ik die invullen?
Als er verder nog info nodig is over de gegevens die er in de sheet staan hoor ik het wel :P
pi_106809521
quote:
0s.gif Op zaterdag 14 januari 2012 18:56 schreef Irritatie100 het volgende:

[..]

Ja, nu werkt ie. Thanks!
Nu deze: :P

[..]

Lieverd, kijk naar de code en help jezelf verder

Ik vind je best lief denk ik maar ik ben geen code-FEBO, waar je half warme code uit de muur trekt. Als je er niet uitkomt en je hebt specifieke vragen wil ik ze best beantwoorden...

;)
  zaterdag 14 januari 2012 @ 19:01:33 #144
185588 Irritatie100
RATATATATATA!!!!
pi_106809622
quote:
0s.gif Op zaterdag 14 januari 2012 18:57 schreef KritischeMassa het volgende:

[..]

Lieverd, kijk naar de code en help jezelf verder

Ik vind je best lief denk ik maar ik ben geen code-FEBO, waar je half warme code uit de muur trekt. Als je er niet uitkomt en je hebt specifieke vragen wil ik ze best beantwoorden...

;)
Code-FEBO _O-
Maar ik hoef geen code :P Ik vraag me alleen af of ik de doelzoeker kan gebruiken om cel B3 te veranderen in een waarde waarbij F11 en J11 gelijk zijn. Want ik heb een aantal dingen geprobeerd met die doelzoeker, maar het lukt me niet. En om nou de hele tijd willekeurige dingen in te vullen totdat F11 en J11 gelijk zijn....
pi_106845963
bij verticaal zoeken: Zoekt in de meest linkse kolom in de matrix naar een bepaalde waarde.
is er ook een mogelijkheid dat ie juist zoekt in de meest rechtse kolom? :@
pi_106846508
quote:
0s.gif Op zondag 15 januari 2012 20:47 schreef EL_Presidente het volgende:
bij verticaal zoeken: Zoekt in de meest linkse kolom in de matrix naar een bepaalde waarde.
is er ook een mogelijkheid dat ie juist zoekt in de meest rechtse kolom? :@
Nee, met Verticaal zoeken moet je op te zoeken waarde links staan.
Anders moet je INDEX(VERGELIJKEN(etc)) gebruiken. Succes, eerst zelf proberen ;)
pi_106846635
quote:
7s.gif Op zondag 15 januari 2012 20:56 schreef DaFan het volgende:

[..]

Nee, met Verticaal zoeken moet je op te zoeken waarde links staan.
Anders moet je INDEX(VERGELIJKEN(etc)) gebruiken. Succes, eerst zelf proberen ;)
eerst zelf proberen?.. _O-
gast ik heb de ballenverstand van Excel daarom vraag ik het ook hier.. :')

maar uh ik heb dus dit..
=VERT.ZOEKEN(A:A;Blad1!A:B;2;ONWAAR) (hij zoekt dus (default) in de meest linker kolom)

wat moet ik hiervan maken zodat ie in de meest rechter kolom zoekt? :?
  zondag 15 januari 2012 @ 21:05:30 #148
62215 qu63
..de tijd drinkt..
pi_106847198
quote:
0s.gif Op zondag 15 januari 2012 20:57 schreef EL_Presidente het volgende:

[..]

eerst zelf proberen?.. _O-
gast ik heb de ballenverstand van Excel daarom vraag ik het ook hier.. :')
En dan geeft iemand het antwoord, werkt het niet, moeten we t aanpassen, werkt nog niet, etc., tot dat het wel werkt. En een week later weer een vraag.. ;)

En dat je er de ballen verstand van hebt is geen probleem, dat je het ook niet wil weten (en dus geen inzet toont) wel..
quote:
maar uh ik heb dus dit..
=VERT.ZOEKEN(A:A;Blad1!A:B;2;ONWAAR) (hij zoekt dus (default) in de meest linker kolom)

wat moet ik hiervan maken zodat ie in de meest rechter kolom zoekt? :?
Een hele andere formule, met bijvoorbeeld =INDEX(VERGELIJKEN())) zoals DaFan al zei..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106847443
quote:
0s.gif Op zondag 15 januari 2012 21:05 schreef qu63 het volgende:

[..]

En dan geeft iemand het antwoord, werkt het niet, moeten we t aanpassen, werkt nog niet, etc., tot dat het wel werkt. En een week later weer een vraag.. ;)

En dat je er de ballen verstand van hebt is geen probleem, dat je het ook niet wil weten (en dus geen inzet toont) wel..

[..]

Een hele andere formule, met bijvoorbeeld =INDEX(VERGELIJKEN())) zoals DaFan al zei..
dat is als excelexpert makkelijk praten tegen een excelnoob die gisteren excel ontdekt heeft.. :{
pi_106847477
En dan tussen de haakjes ongeveer wat je bij VERT.ZOEKEN al had staan ;)
pi_106847580
quote:
7s.gif Op zondag 15 januari 2012 21:09 schreef DaFan het volgende:
En dan tussen de haakjes ongeveer wat je bij VERT.ZOEKEN al had staan ;)
even uitproberen dan maar. :P
pi_106847633
Fine.
Je formule kan niet. Je zoekwaarde is een kolom, dat kan niet.
Maar stel dat je in B:B je op te zoeken waarden staan. In A:A je resultaten, in C1 je op te zoeken waarde
INDEX(A:A;VERGELIJKEN(C1;B:B;0))
pi_106847760
quote:
7s.gif Op zondag 15 januari 2012 21:12 schreef DaFan het volgende:
Fine.
Je formule kan niet. Je zoekwaarde is een kolom, dat kan niet.
Maar stel dat je in B:B je op te zoeken waarden staan. In A:A je resultaten, in C1 je op te zoeken waarde
INDEX(A:A;VERGELIJKEN(C1;B:B;0))
als ik de formule in die cel moet doen he, begin ik dan eerst met INDEX of begin ik eerst met VERGELIJKEN? :?

[ Bericht 0% gewijzigd door EL_Presidente op 15-01-2012 22:59:14 ]
pi_106847886
quote:
7s.gif Op zondag 15 januari 2012 21:12 schreef DaFan het volgende:
Fine.
Je formule kan niet. Je zoekwaarde is een kolom, dat kan niet.
Maar stel dat je in B:B je op te zoeken waarden staan. In A:A je resultaten, in C1 je op te zoeken waarde
INDEX(A:A;VERGELIJKEN(C1;B:B;0))
mijn zoekwaarde staat in kolom A van Blad 2 (resultaat Vlookup moet komen in kolom B van dit Blad)
en de matrix is kolom A en B van Blad 1, en ik wil dus dat ie de meest rechtse kolom neemt. ;)
  zondag 15 januari 2012 @ 21:54:58 #155
62215 qu63
..de tijd drinkt..
pi_106850530
quote:
0s.gif Op zondag 15 januari 2012 21:09 schreef EL_Presidente het volgende:

[..]

dat is als excelexpert makkelijk praten tegen een excelnoob die gisteren excel ontdekt heeft.. :{
Denk je dat ik als 'expert' geboren ben dan?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  FOK!-Schrikkelbaas zondag 15 januari 2012 @ 22:03:35 #156
862 Arcee
Look closer
pi_106851099
Nederlandstalige Excel... *ril* :{
  zondag 15 januari 2012 @ 22:23:53 #157
62215 qu63
..de tijd drinkt..
pi_106852265
quote:
0s.gif Op zondag 15 januari 2012 22:03 schreef Arcee het volgende:
Nederlandstalige Excel... *ril* :{
Erger is nog een Engelse Excel met de functies in t Nederlands. Dus alle menu's e.d. in 't Engels, functies in NL's. *ril*
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106853954
quote:
0s.gif Op zondag 15 januari 2012 21:54 schreef qu63 het volgende:

[..]

Denk je dat ik als 'expert' geboren ben dan?
laat maar.. :|W ik vraag het wel ergens anders.. :{
  FOK!-Schrikkelbaas zondag 15 januari 2012 @ 23:28:31 #159
862 Arcee
Look closer
pi_106855390
quote:
0s.gif Op zondag 15 januari 2012 22:23 schreef qu63 het volgende:
Erger is nog een Engelse Excel met de functies in t Nederlands. Dus alle menu's e.d. in 't Engels, functies in NL's. *ril*
Daar doelde ik eigenlijk ook op. :P
  zondag 15 januari 2012 @ 23:41:59 #160
62215 qu63
..de tijd drinkt..
pi_106856040
quote:
0s.gif Op zondag 15 januari 2012 22:58 schreef EL_Presidente het volgende:

[..]

laat maar.. :|W ik vraag het wel ergens anders.. :{
Dat was niet mijn bedoeling, maar inzit van jouw kant wordt iig beloond met inzet van mijn kant. De helpfunctie van Excel had je al kunnen vertellen dat VERT.ZOEKEN() niet kon doen wat jij wilde, en een korte Google-zoekopdracht had je al een stuk verder geholpen..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106856162
quote:
0s.gif Op zondag 15 januari 2012 23:41 schreef qu63 het volgende:

[..]

Dat was niet mijn bedoeling, maar inzit van jouw kant wordt iig beloond met inzet van mijn kant. De helpfunctie van Excel had je al kunnen vertellen dat VERT.ZOEKEN() niet kon doen wat jij wilde, en een korte Google-zoekopdracht had je al een stuk verder geholpen..
is cool man.. ;)
ik swap wel die twee kolommen van plek, dan kan ik in principe alsnog ''verticaal zoeken'' gebruiken >:)
  zondag 15 januari 2012 @ 23:46:09 #162
62215 qu63
..de tijd drinkt..
pi_106856223
quote:
0s.gif Op zondag 15 januari 2012 23:44 schreef EL_Presidente het volgende:

[..]

is cool man.. ;)
ik swap wel die twee kolommen van plek, dan kan ik in principe alsnog ''verticaal zoeken'' gebruiken >:)
Kijk, dat is ook een oplossing! Roep maar als je weer vast loopt ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 16 januari 2012 @ 16:21:52 #163
249182 Holy_Goat
mhččhčhč
pi_106873806
quote:
0s.gif Op zondag 15 januari 2012 22:03 schreef Arcee het volgende:
Nederlandstalige Excel... *ril* :{
Gewoon allebei kunnen.
Alhoewel ik laatst aan het zoeken was wat de nl versie was van trim()

(spaties.verwijderen)
  maandag 16 januari 2012 @ 16:37:13 #164
62215 qu63
..de tijd drinkt..
pi_106874519
quote:
0s.gif Op maandag 16 januari 2012 16:21 schreef Holy_Goat het volgende:

[..]

Gewoon allebei kunnen.
Alhoewel ik laatst aan het zoeken was wat de nl versie was van trim()

(spaties.verwijderen)
Daar gebruik ik deze link uit de OP voor: http://dolf.trieschnigg.nl/excel/excel.html
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 16 januari 2012 @ 17:01:34 #165
85514 ralfie
!Yvan eht nioj
pi_106875554
quote:
0s.gif Op maandag 16 januari 2012 16:37 schreef qu63 het volgende:

[..]

Daar gebruik ik deze link uit de OP voor: http://dolf.trieschnigg.nl/excel/excel.html
je kunt ook cell.formula gebruiken; hierin staat altijd de engelse syntax. nl->engels is dus formule in excel invoeren en in vba uitlezen, engels->nl is net andersom
pi_106926714
Hallo,

Ik heb een probleem en ik kom er niet uit, hebben jullie een advies; een reeks aan getallen die ik graag allemaal op dezelfde notatie wil in Excel, namelijk de komma vanaf achter bekeken 4 getallen naar voren ongeacht een eventuele punt of komma, maar het lukt me niet.

Hierbij het voorbeeld:

Huidig > Wenselijk

249000 > 24,9000
44100 > 4,4100
0.0000 > 0,0000
0.1234 > 0,1234
0.7100 > 0,7100
1,287.9876 > 1287,9876
1417500 > 141,7500
152549 > 15,2549
  dinsdag 17 januari 2012 @ 22:02:35 #167
85514 ralfie
!Yvan eht nioj
pi_106930719
quote:
0s.gif Op dinsdag 17 januari 2012 20:51 schreef maartensep1 het volgende:
Hallo,

Ik heb een probleem en ik kom er niet uit, hebben jullie een advies; een reeks aan getallen die ik graag allemaal op dezelfde notatie wil in Excel, namelijk de komma vanaf achter bekeken 4 getallen naar voren ongeacht een eventuele punt of komma, maar het lukt me niet.

Hierbij het voorbeeld:

Huidig > Wenselijk

249000 > 24,9000
44100 > 4,4100
0.0000 > 0,0000
0.1234 > 0,1234
0.7100 > 0,7100
1,287.9876 > 1287,9876
1417500 > 141,7500
152549 > 15,2549
Geen idee of het in excel zelf kan in een of ander ingebouwd menutje, maar hier heb je in ieder geval een manier:

als je in kolom A je getallen hebt staan, is dit de formule voor kolom b:
1=SUBSTITUEREN(SUBSTITUEREN(A1;",";"");".";"")
en dit voor kolom c:
1=LINKS(B1;LENGTE(B1)-4) & "," & RECHTS(B1;4)
kolom c heeft dus het antwoord dat je zoekt.
  dinsdag 17 januari 2012 @ 22:16:25 #168
62215 qu63
..de tijd drinkt..
pi_106931553
quote:
0s.gif Op dinsdag 17 januari 2012 22:02 schreef ralfie het volgende:

[..]

Geen idee of het in excel zelf kan in een of ander ingebouwd menutje, maar hier heb je in ieder geval een manier:

als je in kolom A je getallen hebt staan, is dit de formule voor kolom b:
[ code verwijderd ]

en dit voor kolom c:
[ code verwijderd ]

kolom c heeft dus het antwoord dat je zoekt.
Maar die laatste zal niet werken met 123456789 bijvoorbeeld..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 17 januari 2012 @ 23:43:20 #169
85514 ralfie
!Yvan eht nioj
pi_106935480
quote:
0s.gif Op dinsdag 17 januari 2012 22:16 schreef qu63 het volgende:

[..]

Maar die laatste zal niet werken met 123456789 bijvoorbeeld..
123456789 wordt 12345,6789 en dat is wat het moest zijn?
  woensdag 18 januari 2012 @ 02:23:39 #170
62215 qu63
..de tijd drinkt..
pi_106938786
quote:
0s.gif Op dinsdag 17 januari 2012 23:43 schreef ralfie het volgende:

[..]

123456789 wordt 12345,6789 en dat is wat het moest zijn?
Ohja, shit.. Foutje!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106943759
Weet iemand hoe ik twee lijsten kan vergelijken en dan gelijk kan zien hoeveel hits er in elke lijst zitten.

Ik heb 1 lijst met allemaal namen

en ongeveer 5 lijsten met andere namen

Ik wil dus graag zien hoeveel namen er uit lijst 1 bijvoorbeeld in lijst 2 voorkomen
pi_106943907
staan alle lijsten in het zelfde bestand?

Even een simpel voorbeeldje:
lijst 1 staat in kolom A, andere namen staan in kolommen B,C,D,E,F.

In een lege cel zet je de volgende formule:
=countif(A1,B:B)

A1 is de naam uit lijst 1
B:B betekend tellen in kolom B

Echter: de namen moeten dan wel exact hetzelfde zijn in de lijsten
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_106944928
quote:
3s.gif Op woensdag 18 januari 2012 11:38 schreef Deetch het volgende:
staan alle lijsten in het zelfde bestand?

Even een simpel voorbeeldje:
lijst 1 staat in kolom A, andere namen staan in kolommen B,C,D,E,F.

In een lege cel zet je de volgende formule:
=countif(A1,B:B)

A1 is de naam uit lijst 1
B:B betekend tellen in kolom B

Echter: de namen moeten dan wel exact hetzelfde zijn in de lijsten
n4 is de cel die ik wil opzoeken

a2:a35 is de lijst waarin ik wil zoeken

maar hij geeft alleen 0 weer, ook al staat hij wel in de lijst

=COUNTIF(N4;$A$2:$A$35)

zie ik nog iets over het hoofd?
pi_106945039
probeer eens =COUNTIF(N4,$A$2:$A$35)

zijn de tekst in N4 en in de lijst exact hetzelfde?

Jansen en jansen zijn voor excel 2 totaal verschillende namen
"jansen" en " jansen" (met spatie) ook
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_106945188
IN het nederlands moet je bij aantal als (de engelse count if) als eerste het bereik opgeven, en daarna pas de zoekwaarde, is dat in het engels ook niet zo?

Dan zou het COUNTIF($A$2:$A$35,N4) moeten zijn.
pi_106945199
quote:
3s.gif Op woensdag 18 januari 2012 12:17 schreef Deetch het volgende:
probeer eens =COUNTIF(N4,$A$2:$A$35)

zijn de tekst in N4 en in de lijst exact hetzelfde?

Jansen en jansen zijn voor excel 2 totaal verschillende namen
"jansen" en " jansen" (met spatie) ook
De komma werkt niet, dan geeft ie een error aan.

De teksten zijn exact het zelfde (inclusief spaties en hoofdletters)
pi_106946266
quote:
0s.gif Op woensdag 18 januari 2012 12:22 schreef Basp1 het volgende:
IN het nederlands moet je bij aantal als (de engelse count if) als eerste het bereik opgeven, en daarna pas de zoekwaarde, is dat in het engels ook niet zo?

Dan zou het COUNTIF($A$2:$A$35,N4) moeten zijn.
haha, noog vet lang doorgezocht en het uiteindelijk gevonden.

wil ik trots het resultaat posten, zie ik deze post

ze moeten idd andersom, thx!
pi_106946687
quote:
0s.gif Op woensdag 18 januari 2012 12:57 schreef Pablooo het volgende:

[..]

haha, noog vet lang doorgezocht en het uiteindelijk gevonden.

wil ik trots het resultaat posten, zie ik deze post

ze moeten idd andersom, thx!
Maar ook hier kun je natuurlijk perfect zelf achterkomen door een keer de FX button te gebruiken en te zien wat er nu precies gevraag wordt per argument. ^O^
pi_106953970
Ik heb een raar probleempje met excel. Heb een zooitje data met in elke cel meerdere regels tekst, maar bij elke enter in de cel is er een raar tekentje gekomen wat er zo uitziet:

(links van de 10 YR)

Dit is dus zoals het er uitziet als het niet geselecteerd is. Als ik echter de cel selecteer ziet het er in de sheet zelf wel normaal uit, maar zie ik een tekentje in de formulebalk:



Lijkt wel of dit een kopieer bug of iets dergelijks is. Het zit dus zo door de hele sheet. Iemand een idee hoe ik dit goed kan krijgen? Het ziet er zo niet zo erg uit, maar als ik het als pdf opsla is de cel in zijn geheel niet meer goed leesbaar.

Alvast bedankt. :)
pi_106954465
Het heeft waarschijnlijk te maken met stuurtekens. De harde return zul je er op de een of andere manier uit moeten gooien.

=SUBSTITUEREN(P7;TEKEN(9);TEKEN(32))

Bovenstaande code is alleen om tabs te veranderen in spaties, ik weet niet welk teken de return is.
  woensdag 18 januari 2012 @ 16:37:00 #181
62215 qu63
..de tijd drinkt..
pi_106954676
quote:
0s.gif Op woensdag 18 januari 2012 16:31 schreef Basp1 het volgende:
Het heeft waarschijnlijk te maken met stuurtekens. De harde return zul je er op de een of andere manier uit moeten gooien.

=SUBSTITUEREN(P7;TEKEN(9);TEKEN(32))

Bovenstaande code is alleen om tabs te veranderen in spaties, ik weet niet welk teken de return is.
http://www.asciitable.com/
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_106955729
quote:
0s.gif Op woensdag 18 januari 2012 16:31 schreef Basp1 het volgende:
Het heeft waarschijnlijk te maken met stuurtekens. De harde return zul je er op de een of andere manier uit moeten gooien.

=SUBSTITUEREN(P7;TEKEN(9);TEKEN(32))

Bovenstaande code is alleen om tabs te veranderen in spaties, ik weet niet welk teken de return is.
TEKEN(13)

Maar werkt het niet als het tekentje kopieert uit de menubalk en dan zoeken, vervangen door "" doet?
pi_106956370
quote:
0s.gif Op woensdag 18 januari 2012 17:03 schreef KritischeMassa het volgende:

[..]

TEKEN(13)

Maar werkt het niet als het tekentje kopieert uit de menubalk en dan zoeken, vervangen door "" doet?
Als eerst degen boven jou bedankt voor de asciitabel.

Volgens mij werkt het niet zo makkelijk sturingtekens zijn volgens mij niet te selecteren met die functie.

Probeer ook maar eens zomaar sturingstekens in een excel sheet te krijgen zonder een import te maken, dat is zo geod als onmogelijk. Bij een return of een tab wordt de celinvoer afgebroken, ik heb geprobeerd nog even vanuit word wat te pasten met deze sturingstekens erbij maar dat ging ook niet.
pi_106958616
quote:
0s.gif Op woensdag 18 januari 2012 17:23 schreef Basp1 het volgende:

[..]

Als eerst degen boven jou bedankt voor de asciitabel.

Volgens mij werkt het niet zo makkelijk sturingtekens zijn volgens mij niet te selecteren met die functie.

Probeer ook maar eens zomaar sturingstekens in een excel sheet te krijgen zonder een import te maken, dat is zo geod als onmogelijk. Bij een return of een tab wordt de celinvoer afgebroken, ik heb geprobeerd nog even vanuit word wat te pasten met deze sturingstekens erbij maar dat ging ook niet.
Als je aanneemt dat het inderdaad een sturingteken is kan dat wel kloppen echter ik weet dat niet zeker, het kan ook een, in de huidige charset, onbekend teken zijn.

Als het selecteerbaar is en te kopieren kan mijn oplossing werken.

Ik zou de sheet graag zien, als is het maar met 1 gevulde cel
pi_106958802
Daarbij, ter info, de tabel is niet compleet, ascii gaat tot 255

Doe maar eens in excel:

cel a1

=teken(b1)

en in cel b1: "1"

en dan doortrekken tot B255

edit:

:') ach, er staat een tabel onder... :|

[ Bericht 27% gewijzigd door #ANONIEM op 18-01-2012 18:36:23 ]
pi_106981379
Thanks voor jullie hulp. Ik had gister nog even die =substitute functie geprobeert met wat combinaties van ascii symbolen, maar het werd er niet beter op. Met de =clean functie was dat tekentje weg, maar dan is ook de gehele return in de cel weg en is de data dus niet goed meer leesbaar.

Ik heb de file thuis met excel 2010 geopend en daarin wordt alles wel goed weergeven, dus het is in ieder geval opgelost. Naja niet opgelost, maar het is geen probleem meer. :+

Thanks. :)
  donderdag 19 januari 2012 @ 11:37:18 #187
38651 yozd
FR1908 Vakkie R
pi_106983049
Ik heb in een cell het volgende staan:

abcdef:12345:abcdef:3435:abcdef

Nu wil ik graag de tekst hebben achter de 3e komma. Tekst naar kolommen gaat echter niet, omdat er in die tekst die ik eruit wil filteren soms ook een komma staat. Dan krijg ik die tekst dus in meerdere cellen, en ik wil m in 1 cel. Hoe kan ik dit doen?
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
  donderdag 19 januari 2012 @ 11:50:20 #188
62215 qu63
..de tijd drinkt..
pi_106983468
quote:
0s.gif Op donderdag 19 januari 2012 11:37 schreef yozd het volgende:
Ik heb in een cell het volgende staan:

abcdef:12345:abcdef:3435:abcdef

Nu wil ik graag de tekst hebben achter de 3e komma. Tekst naar kolommen gaat echter niet, omdat er in die tekst die ik eruit wil filteren soms ook een komma staat. Dan krijg ik die tekst dus in meerdere cellen, en ik wil m in 1 cel. Hoe kan ik dit doen?
Komma? Of dubbele punt?

Je kan ook zelf een scheidingsteken opgeven, probeer eens ", " (een komma met een spatie er achter)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 19 januari 2012 @ 11:56:39 #189
38651 yozd
FR1908 Vakkie R
pi_106983696
Stom! Ik bedoelde natuurlijk een dubbele punt.

Bedankt alvast, ik ga even prutsen!
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
  donderdag 19 januari 2012 @ 12:28:21 #190
93643 DumDaDum
We Have Unfinished Business
pi_106984627
quote:
0s.gif Op donderdag 19 januari 2012 11:37 schreef yozd het volgende:
Ik heb in een cell het volgende staan:

abcdef:12345:abcdef:3435:abcdef

Nu wil ik graag de tekst hebben achter de 3e komma. Tekst naar kolommen gaat echter niet, omdat er in die tekst die ik eruit wil filteren soms ook een komma staat. Dan krijg ik die tekst dus in meerdere cellen, en ik wil m in 1 cel. Hoe kan ik dit doen?
Dit kan je mss in een paar stappen doen:





De reeks eindigt wanneer er -1 in kolom C komt te staan. De cel rechtsonder geeft dan je resultaat.

De stappen kan je combineren (genest inbouwen) in 1 formule. Alleen moet het aantal repetities dan altijd >= aan het max aantal tekens dat je zoekt. Of je moet uitgebreidere foutcorrectie inbouwen :)

[ Bericht 6% gewijzigd door DumDaDum op 19-01-2012 12:35:50 ]
“I'm not touched but I'm aching to be”
— Heather Nova
| myHiFi | myMusic | Chuck Norris
  donderdag 19 januari 2012 @ 14:34:59 #191
85514 ralfie
!Yvan eht nioj
pi_106989429
@Jozd

1=RECHTS(B3;LENGTE(B3)-VIND.SPEC("|";SUBSTITUEREN(B3;":";"|";3);3))
Vervang het | symbool met een ander mocht deze in je text kunnen voorkomen...
pi_107020590
Beste Fokkers,

Ik heb een Vloopup gemaakt die bij een match het woordje "Match" presenteert in de gewenste kolom en wanneer er geen match is komt er #N/A te staan.

Alleen nu vroeg ik me af of het mogelijk was of in geval er geen match is en er #N/A in het veld komt te staan, ik een voorgedefinieerd woord kan laten verschijnen.

Is dit mogelijk met wat Jut & Jul Excel, of moet daar flink voor geprogrammeerd worden?

Excel 2010 (Engels)

Bedankt alvast!

Grt. Jeroen
  vrijdag 20 januari 2012 @ 10:35:47 #193
85514 ralfie
!Yvan eht nioj
pi_107021457
quote:
0s.gif Op vrijdag 20 januari 2012 09:54 schreef StookerT het volgende:
Beste Fokkers,

Ik heb een Vloopup gemaakt die bij een match het woordje "Match" presenteert in de gewenste kolom en wanneer er geen match is komt er #N/A te staan.

Alleen nu vroeg ik me af of het mogelijk was of in geval er geen match is en er #N/A in het veld komt te staan, ik een voorgedefinieerd woord kan laten verschijnen.

Is dit mogelijk met wat Jut & Jul Excel, of moet daar flink voor geprogrammeerd worden?

Excel 2010 (Engels)

Bedankt alvast!

Grt. Jeroen
1IFERROR(VLOOKUP(zooi),"Niet gevonden")
pi_107021542
Bedankt voor de reactie ralfie, dan zou ik hier op uitkomen:

=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0),"Niet gevonden")

Maar die geeft een error....., dus ik zal ergens nog wel een foutje hebben laten staan denk ik.
pi_107021657
quote:
0s.gif Op vrijdag 20 januari 2012 10:38 schreef StookerT het volgende:
Bedankt voor de reactie ralfie, dan zou ik hier op uitkomen:

=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0),"Niet gevonden")

Maar die geeft een error....., dus ik zal ergens nog wel een foutje hebben laten staan denk ik.
Ja, je hebt een , voor niet gevonden, dat moet een ; zijn :s)
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107021689
BAM !!!! Hij doet het!

Wat een geniaal programma kan Excel toch zijn. Jesse_ en ralfie, bedankt voor de feedback. :-P
pi_107025268
Luitjes,

Ik heb in een Excel-sheet een databaseje gemaakt met een kolom met data (meervoud van datum :P ) staan. Nu wil ik in een andere cel een totaalsom hebben voor een maand. Bijvoorbeeld er zijn 19 records met een datum die in oktober vallen, dan wil ik in die cel '19' zien staan.

Ik heb al gekloot met COUNTIF en SUMPRODUCT, maar ik kom er niet echt uit.
pi_107027228
wil je nu de som of het aantal records weten?

maak iig eerst een kolom aan met =Month(a1) waarin je dus de maand van alle datums berekend

vervolgens kun je met een simpele =countif(b1:b100,1) tellen hoeveel records er in januari vallen

of met sumif(b1:b100,1,c1:c100) de waarden in kolom C optellen waarbij de maand januari is
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_107027312
of zonder hulpkolom met een gave sumproduct:

Alleen het aantal records tellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1))

de waarden van de juiste recors optellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1),B1;B4)
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_107034423
Is het mogelijk om in macro's ergens uit te lezen welke worksheet geselecteerd is?
Ik wil graag iets doen met alleen de worksheet die op dat moment open staat, maar weet niet hoe ik de naam daarvan opvraag ofzo.

Alvast bedankt voor je antwoord.

EDIT:
Het antwoord is heel simpel, gewoon ActiveSheet.Name

[ Bericht 12% gewijzigd door FZN05 op 20-01-2012 18:32:20 ]
pi_107074905
Hoi,

ik heb een aantal excelsheets met allemaal info, deze zijn als volgt opgebouwd:

nr - cijfer
221 - 10,0
222 - 6,9
223 - 7,8
224 - 6,8

Hoe zorg ik ervoor dat ik al deze sheets kan combineren tot éen grote? Het kan dus ook voorkomen dat bijv. 222 niet in sheet 2 staat.
pi_107074984
als het eenmalige actie is zou ik alles in 1 sheet zetten en vervolgens sorteren op kolom 1
pi_107074991
quote:
6s.gif Op zaterdag 21 januari 2012 19:54 schreef hello_moto1992 het volgende:
Hoi,

ik heb een aantal excelsheets met allemaal info, deze zijn als volgt opgebouwd:

nr - cijfer
221 - 10,0
222 - 6,9
223 - 7,8
224 - 6,8

Hoe zorg ik ervoor dat ik al deze sheets kan combineren tot éen grote? Het kan dus ook voorkomen dat bijv. 222 niet in sheet 2 staat.
copy paste :?
pi_107075084
Ja maar als ik bijv

ID - cijfer
1 - 5,5
2 - 6,0
3 - 6,0
4 - 5,0
5 - 1,0
6 - 9,8
7 - 8,8
8 - 7,8
9 - 1,0

en

ID - cijfer
2 - 7,0
3 - 7,0
4 - 8,0
6 - 9,8
8 - 7,8

Heb?

Hoe zorg ik dan dat je

1 - 5,5
2 - 6,0 - 7,0
3 - 6,0 - 7,0
4 - 5,0 - 8,0
5 - 1,0
6 - 9,8 - 9,8
7 - 8,8
8 - 7,8 - 7,8
9 - 1,0'

Krijgt?
pi_107075129
ja dan heb je sowieso een probleem, is 2 nu een 6 of een 7?

Die ID is dus niet uniek

edit:
aaah ninja edit

[ Bericht 16% gewijzigd door #ANONIEM op 21-01-2012 20:01:40 ]
pi_107075155
Ja ID is uniek, maar de verschillende cijfers verschillen.
pi_107075177
Ja ok ik snap je uitdaging nu

Zijn het meerder workbooks of is het 1 workbook met meerdere sheets?
pi_107075207
quote:
0s.gif Op zaterdag 21 januari 2012 20:02 schreef KritischeMassa het volgende:
Ja ok ik snap je uitdaging nu

Zijn het meerder workbooks of is het 1 workbook met meerdere sheets?
Meerdere workbooks.

Op school krijgen we altijd excelsheets van de tentamenresultaten. Er staat dan studentnr - cijfer. Bij sommige staat ook de naam vermeld met het studentnr.

Ik wil dus van alle cijferlijsten een lijstje studentnr - naam - cijfer maken :) .
pi_107075340
ik zou in VBA gaan klooien, maar goed dat is mijn zwakte ook wel

http://www.techrepublic.c(...)sheets-using-vba/967

En dan kopje 3 is interessant voor je

Je moet gewoon gaan tellen door die sheets, en als je de waarde van kolom a al hebt (zeg ID 2) dan samenvoegen (of een kolom verschuiven, dus resultaat 1 in kolom b, resultaat 2 in kolom c etc)
pi_107075422
quote:
6s.gif Op zaterdag 21 januari 2012 20:00 schreef hello_moto1992 het volgende:
Ja maar als ik bijv

ID - cijfer
1 - 5,5
2 - 6,0
3 - 6,0
4 - 5,0
5 - 1,0
6 - 9,8
7 - 8,8
8 - 7,8
9 - 1,0

en

ID - cijfer
2 - 7,0
3 - 7,0
4 - 8,0
6 - 9,8
8 - 7,8

Heb?

Hoe zorg ik dan dat je

1 - 5,5
2 - 6,0 - 7,0
3 - 6,0 - 7,0
4 - 5,0 - 8,0
5 - 1,0
6 - 9,8 - 9,8
7 - 8,8
8 - 7,8 - 7,8
9 - 1,0'

Krijgt?
Denk dat je dit het beste met de excel funcite vlookup kan doen, ben je daar bekent mee?
pi_107075567
quote:
0s.gif Op zaterdag 21 januari 2012 20:09 schreef Setting_Sun het volgende:

[..]

Denk dat je dit het beste met de excel funcite vlookup kan doen, ben je daar bekent mee?
Nee dat niet, maar op Google vind ik al genoeg info. Hier kan ik denk ik wel verder mee. Bedankt allemaal.
pi_107076032
quote:
6s.gif Op zaterdag 21 januari 2012 20:13 schreef hello_moto1992 het volgende:

[..]

Nee dat niet, maar op Google vind ik al genoeg info. Hier kan ik denk ik wel verder mee. Bedankt allemaal.
ben net ook bezig geweest en het is gelukt

=VERT.ZOEKEN(A1;I$12:J$16;1;ONWAAR)

Ik stootte vooral mijn hoofd omdat ik de Nederlandse Excel gebruik waarin false ONWAAR is |:(
Vergeet ook niet de dollar tekens voor de tabel waarin gezocht gaat worden
pi_107078541
quote:
3s.gif Op vrijdag 20 januari 2012 13:55 schreef Deetch het volgende:
of zonder hulpkolom met een gave sumproduct:

Alleen het aantal records tellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1))

de waarden van de juiste recors optellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1),B1;B4)
Thx, zal er na het weekend effe na kijken!
pi_107130649
Kan iemand mij vertellen wat er fout is aan deze formule?

=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")

Het komt erop neer dat ik voor hetzelfde veld twee vlookups wil doen op dezelfde waarden en als hij hem niet kan vinden dan de waarde "LV+" weergeeft.

Waarschijnlijk zit hij helemaal fout in elkaar, want ik heb gewoon de werkende vlookupt gekopieerd en nogmaals in de formule gezet.

Bvd. Jeroen
pi_107130863
quote:
0s.gif Op maandag 23 januari 2012 10:06 schreef StookerT het volgende:
Kan iemand mij vertellen wat er fout is aan deze formule?

=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")

Het komt erop neer dat ik voor hetzelfde veld twee vlookups wil doen op dezelfde waarden en als hij hem niet kan vinden dan de waarde "LV+" weergeeft.

Waarschijnlijk zit hij helemaal fout in elkaar, want ik heb gewoon de werkende vlookupt gekopieerd en nogmaals in de formule gezet.

Bvd. Jeroen
Bij IFERROR moet je de waarde en de waarde wanneer er een error is mee geven. Je geeft hier meer dingen mee :P
Je zou het met een gewone IF moeten doen.
Wat wil je precies doen?
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107130982
Ik ben op zoek naar de formule voor het volgende.

Een Vlookup die in Tabel A gaat zoeken naar een waarde, als dat niet lukt
moet hij op een ander tabblad dezelfde Vlookup doen, kan hij hem niet
vinden, dan moet hij waarde X geven.

De enkele Vlookup met error waarde werkt prima, maar de dubbele krijg ik
niet voor elkaar.

Deze werkt, output is of MATCH (kolom 29) of LV+ ( = geen match).

=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")

Deze moet naast de vlookup in de AR (Gas) ook nog eens zoeken naar
diezelfde waarde in AR (Elec). Bij een match moet de waarde uit kolom 29
worden gegeven, anders LV+. Onderstaande formule werkt helaas niet.

=IFERROR(VLOOKUP(K2;'Aansluitregister
(Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister
(Elec)'!$D$2:$AF$500;29;0);"LV+")

Is dit wat duidelijker? Die IFERROR was om te zorgen dat als er geen waarde aanwezig was om op te zoeken dat er dan geen #N/A kwam te staan, maar een lege cel.
pi_107131007
quote:
0s.gif Op maandag 23 januari 2012 10:06 schreef StookerT het volgende:
Kan iemand mij vertellen wat er fout is aan deze formule?

=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")

Het komt erop neer dat ik voor hetzelfde veld twee vlookups wil doen op dezelfde waarden en als hij hem niet kan vinden dan de waarde "LV+" weergeeft.

Waarschijnlijk zit hij helemaal fout in elkaar, want ik heb gewoon de werkende vlookupt gekopieerd en nogmaals in de formule gezet.

Bvd. Jeroen
Waarom wil je twee keer exact dezelfde Vlookup doen? De IFERROR functie kijkt naar de eerste variabele en als die een foutmelding genereerd dan geeft de functie de waarde uit de 2e variabele. IN dit geval krijg je dus altijd een fotoutmelding of de waarde van de Vlookup.

Maw. wat wil je precies bereiken?
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_107131034
quote:
0s.gif Op maandag 23 januari 2012 10:18 schreef StookerT het volgende:
Ik ben op zoek naar de formule voor het volgende.

Een Vlookup die in Tabel A gaat zoeken naar een waarde, als dat niet lukt
moet hij op een ander tabblad dezelfde Vlookup doen, kan hij hem niet
vinden, dan moet hij waarde X geven.

De enkele Vlookup met error waarde werkt prima, maar de dubbele krijg ik
niet voor elkaar.

Deze werkt, output is of MATCH (kolom 29) of LV+ ( = geen match).

=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")

Deze moet naast de vlookup in de AR (Gas) ook nog eens zoeken naar
diezelfde waarde in AR (Elec). Bij een match moet de waarde uit kolom 29
worden gegeven, anders LV+. Onderstaande formule werkt helaas niet.

=IFERROR(VLOOKUP(K2;'Aansluitregister
(Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister
(Elec)'!$D$2:$AF$500;29;0);"LV+")

Is dit wat duidelijker? Die IFERROR was om te zorgen dat als er geen waarde aanwezig was om op te zoeken dat er dan geen #N/A kwam te staan, maar een lege cel.
Is er niet iets waardoor je onderscheid kan maken tussen de twee tabladen vanuit het nummer dat je zoekt? Dus een bijvoorbeeld een kleur of een andere extra variablele waardoor je kan vertellen waar je moet zoeken?

IF(K2=VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);IF(K2=VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")

Iets beters dan dit kan ik niet bedenken :P
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107131066
Ik wil voor één veld een vlookup doen in de tabel op tabblad A, als hij daar niet gevonden wordt dezelfde vlookup in de tabel op tabblad B en als beide geen match geeft, dan moet er een waarde LV+ worden getoond.

Ik hoop dat een beetje duidelijk is.
pi_107131067
Deze?

=iferror(if(iserror(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Elec)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0)));"LV+")

weet niet of haakjes kloppen, heb hem uit het hoofd gedaan ivm geen toegang excel

je had een typfout in je oorspronkelijke vraag, daar stond twee keer een verwijzing naar AR gas terwijl je AR gas en AR elec bedoelde.
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_107131107
quote:
3s.gif Op maandag 23 januari 2012 10:22 schreef Deetch het volgende:
Deze?

=iferror(if(iserror(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Elec)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0)));"LV+")

weet niet of haakjes kloppen, heb hem uit het hoofd gedaan ivm geen toegang excel

je had een typfout in je oorsprionkelijke vraag, daar stond twee keer een verwijzing naar AR gas terwijl je AR gas en AR elec bedoelde.
Dat is slimmer :D
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107131199
quote:
7s.gif Op maandag 23 januari 2012 10:24 schreef Jesse_ het volgende:

[..]

Dat is slimmer :D
hopelijk werkt hij ook.
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_107131240
Die van Deetch geeft een error.....de standaard error dat er een fout in de formule zit.

@Jesse: Hij gaf LV+ terwijl er een match was een dus de waarde uit kolom 29 getoond had moeten worden.
pi_107131246
quote:
3s.gif Op maandag 23 januari 2012 10:29 schreef Deetch het volgende:

[..]

hopelijk werkt hij ook.
Het zou makkelijker zijn als het onderscheid tussen Gas en Electra voor het zoeken gemaakt zou kunnen worden :s)
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107131350
quote:
0s.gif Op maandag 23 januari 2012 10:31 schreef StookerT het volgende:
Die van Deetch geeft een error.....de standaard error dat er een fout in de formule zit.

@Jesse: Hij gaf LV+ terwijl er een match was een dus de waarde uit kolom 29 getoond had moeten worden.
Kan je dan niet beter twee losse vlookups houden?
Dus in kolom B de vlookup voor gas en in C die voor electra, en dan in kolom D iets van IF(B="LV+";Cnummer;Bnummer). Kolom B en C hide je dan zodat het er toch netjes uit ziet :P
Voorwaarde is dan wel dat je niet resultaat uit beide sheets kan halen.
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107131815
Ik zit nog even te knutselen met de eerde opties, hij lijkt te werken alleen de verwijzing naar de waardes loopt nog niet lekker. Als dit niet gaat lukken is jouw optie zeker een leuke variant.

Ik hou jullie op de hoogte.
pi_107131995
Jesse ik ben jou optie aan het uitwerken. Heb twee losse Vlookups, waarbij kolom GAS nu een MATCH (waardes zijn gevonden) aangeeft en kolom ELEC LV+ (logisch want het is een GAS waarde waarop gezocht wordt) geeft. Hij zorg ik dan in de formule van kolom C dat hij de waarde prensenteerd van de juiste kolom.

In principe is de regel dan, ALS er een match bij zit tussen de twee kolommen, dan moet hij die nemen, anders LV+ tonen.
pi_107132072
=if(b2<>"LV+";b2;c2)
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_107132153
quote:
0s.gif Op maandag 23 januari 2012 11:02 schreef StookerT het volgende:
Jesse ik ben jou optie aan het uitwerken. Heb twee losse Vlookups, waarbij kolom GAS nu een MATCH (waardes zijn gevonden) aangeeft en kolom ELEC LV+ (logisch want het is een GAS waarde waarop gezocht wordt) geeft. Hij zorg ik dan in de formule van kolom C dat hij de waarde prensenteerd van de juiste kolom.

In principe is de regel dan, ALS er een match bij zit tussen de twee kolommen, dan moet hij die nemen, anders LV+ tonen.
IF(B2="LV+";C2;B2).
dit zegt: Als er in kolom B geen match is dan moet het resultaat uit kolom C weergegeven worden en als er wel een match is in kolom B (dan is B dus niet gelijk aan LV+) dan moet B weergegeven worden. En is er geen match dan wordt LV+ weergegeven want B of C staat hoe dan ook in cel D straks.
Of wat Deetch zegt, dat is het omgekeerde :)

[ Bericht 0% gewijzigd door Jesse_ op 23-01-2012 11:17:06 ]
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107132648
inmiddels toegang tot excel en deze functie doet bovenstaand in een keer

=IFERROR(IF(ISERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0));VLOOKUP(K2;'Aansluitregister (Elec)'!$D$2:$AF$500;29;0);VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0));"LV+")
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_107132911
Ik heb hem geprobeerd, maar hij geeft toch een LV+ wanneer de waarde waarop gezocht wordt aawezig is in 'Aansluitregister (Gas)'.

Volgens mij is het een probleem met het veld format ofzo......kan het zijn dat dit allemaal niet werkt als het veldformat TEXT op GENERAL staat? :-(

Het gaat namelijk over EAN nummer en die zijn 18 karakters lang, dus die kan je niet in Excel als nummeriek instellen, dan krijg je zijn afgekorte variant waar de laatste cijfers 0 zijn.
pi_107135675
Zou kunnen, zorg ervoor dat het zoek format (K2) hetzelfde is als het format van de tabellen waarin gezocht wordt. Hebben de EAN nummers misschien spaties ervoor of erachter?

Stel de gezochte waarde is aanwezig in AR gas cel D15, wat zegt de formule =K2='Aansluitregister (Gas)'!$D$15 ??

Laat ook nog eens je formule zien, misschien ben je een haakje vergeten of staat ergens een spatie die er niet moet staan?
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_107136371
Het is nu opgelost met de volgende functie:

=IF(ISNA(VLOOKUP(L2;'Aansluitregister (Gas)'!$AF:$AF;1;FALSE));IF(ISNA(VLOOKUP(L2;'Aansluitregister (Elec)'!$AF:$AF;1;FALSE));"LV+";"MATCH");"MATCH")

En het veld met de te zoeken waardes hebben we door ="'"&K2 aangevuld met een ' voor het nummer. Nu werkt alles :-)

Enige nadeel is dat hij nu de LV+ ook laat zien als er geen waarde is ingevuld. Dat was in de initiėle optzet niet meer het geval door de IFERROR en dan aan het einde " ".

Iemand daar nog ideėen voor met de huidige formule?
pi_107136519
= IF(K2="";"Leeg";( IF(ISNA(VLOOKUP(L2;'Aansluitregister (Gas)'!$AF:$AF;1;FALSE));IF(ISNA(VLOOKUP(L2;'Aansluitregister (Elec)'!$AF:$AF;1;FALSE));"LV+";"MATCH");"MATCH") )
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_107137225
hmm....hij werkt niet, maar als ik naar jouw formule kijk, zou er dan niet een extra haakje bij moeten op het einde? Want hetgeen je toegevoegd hebt zijn ook twee extra open haakjes.

Alleen werkt hij met 3x ) op het einde ook niet. :-(

*edit* met een extra sluit ) werkt hij wel :-D

Thanks !!
pi_107137780
Er bleek van een andere formule de waarde " " in te staan, dus is dit het geworden:

=IF(K2<>"";IF(ISNA(VLOOKUP(L2;'Aansluitregister (Gas)'!$AF:$AF;1;FALSE));IF(ISNA(VLOOKUP(L2;'Aansluitregister (Elec)'!$AF:$AF;1;FALSE));"LV+";"MATCH");"MATCH");"")

Anyway, iedereen super bedankt, vooral Deetch en Jesse!

Grt. Jeroen
pi_107137954
graag gedaan en haakjes tellen is ook niet mijn sterkste punt ;-)
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_107138058
quote:
3s.gif Op maandag 23 januari 2012 14:27 schreef Deetch het volgende:
graag gedaan en haakjes tellen is ook niet mijn sterkste punt ;-)
Sluiten doet excel toch ook zelf? (vanaf 2007 iig wel)
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
  maandag 23 januari 2012 @ 14:32:48 #239
62215 qu63
..de tijd drinkt..
pi_107138104
quote:
7s.gif Op maandag 23 januari 2012 14:31 schreef Jesse_ het volgende:

[..]

Sluiten doet excel toch ook zelf? (vanaf 2007 iig wel)
Ja, maar niet per se op de juiste plek ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107142344
Ben ik (helaas) weer :-)

Is het mogelijk om een vlookup te doen op een getal van 5 characters binnen een andere kolom waar de getallen 18 characters hebben.

Dus kolom A heeft 18 cijfers per veld, kolom X (ander tabblad) heeft 5 cijfers veld (EAN netbeheerder is 13 chars, maar die heb ik al terug naar de 5 gebracht die bedrijfsspecifiek zijn). Ik wil dat er in kolom B (naast kolom A) gezocht is of getal 3 t/m 7 voorkomen in de lijst in kolom X.

Ter verduidelijking: Een EAN in de energiesector is 18 cijfers lang, maar cijfer 3 tot en met 7 zijn de referentie naar de Netbeheerder die dit aansluitpunt beleverd. Ik heb een lijst met EAN's (18 char) van aansluitingen en een lijst (Kolom X) met +/- 30 netbeheerders.

Misschien vraag ik nu het onmogelijk hoor, ik weet niet hoeveer Excel kan gaan.

Nogmaals dank voor de mensen die hierin duiken.

Grt. Jeroen

Ps. Een mogelijke oplossing zou ook zijn om eerst in elke veld met 18 chars de eerste 2 eraf te halen en daarna de laatste 11 en dan hebben we als het goed is een 5 cijferig getal dat moet matchen met één van de EANS's uit de Netbeheerderslijst.
pi_107142530
quote:
0s.gif Op maandag 23 januari 2012 14:32 schreef qu63 het volgende:

[..]

Ja, maar niet per se op de juiste plek ;)
meestal niet inderdaad.

Excel: "zal ik hier een haakje doen?" :*
Deetch: "nee, donder op hoerige zelfnadenkende verborgen clippy, ik haat je!!! :( "
Excel: "Oke dan, #error" :6
Deetch: "hehe, lekker zelf doen" :Y
Deetch: "pompedompiedom en dan zet ik hier een haakje en daar ook nog eentje, klaar" :P
Excel: "haha nog steeds #error" })
Deetch: "hoerige *pieperdepiep*" :%
Deetch: ".....1 haakje open, 2,3,4, haakje sluiten maakt 3,4,3,2,1,2,3,2,1,oh en nog eentje aan het eind = 0" 8)7
Excel: "42" :?
Deetch: "jeweetz" :7 ^O^
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_107142663
quote:
0s.gif Op maandag 23 januari 2012 16:21 schreef StookerT het volgende:
....
Ps. Een mogelijke oplossing zou ook zijn om eerst in elke veld met 18 chars de eerste 2 eraf te halen en daarna de laatste 11 en dan hebben we als het goed is een 5 cijferig getal dat moet matchen met één van de EANS's uit de Netbeheerderslijst.
=MID(A1,3,5) dan krijg je een tekst.
als je =VALUE(MID(A1,3,5)) krijg je een getal van 5 cijfers. ^O^

[ Bericht 20% gewijzigd door Deetch op 23-01-2012 16:37:31 (welk haakje?) ]
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_107142886
Klinkt logisch, maar ik krijg een error dat de formule niet correct is.

*edit* zelfs met dat sluithaakje ;-)
pi_107142943
oh ja , vervangen door ;

gezeik met verschillende taalversies en lijstscheidingstekens
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_107142995
Nice !

=VALUE(MID(A11;3;5))

Hij werkt, nu Vloopkupje erbij en hoppa!

Thanks ik ga eve naan de knutsel!

*edit* En als ik hem dan alleen wil tonen als er input is, wordt het dit toch: =IF(K2="";"";VALUE(MID(K2;3;5)))
pi_107143443
quote:
0s.gif Op maandag 23 januari 2012 16:37 schreef StookerT het volgende:
Nice !

=VALUE(MID(A11;3;5))

Hij werkt, nu Vloopkupje erbij en hoppa!

Thanks ik ga eve naan de knutsel!

*edit* En als ik hem dan alleen wil tonen als er input is, wordt het dit toch: =IF(K2="";"";VALUE(MID(K2;3;5)))
^O^
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
  maandag 23 januari 2012 @ 17:16:35 #247
62215 qu63
..de tijd drinkt..
pi_107144301
quote:
3s.gif Op maandag 23 januari 2012 16:26 schreef Deetch het volgende:

[..]

meestal niet inderdaad.

Excel: "zal ik hier een haakje doen?" :*
Deetch: "nee, donder op hoerige zelfnadenkende verborgen clippy, ik haat je!!! :( "
Excel: "Oke dan, #error" :6
Deetch: "hehe, lekker zelf doen" :Y
Deetch: "pompedompiedom en dan zet ik hier een haakje en daar ook nog eentje, klaar" :P
Excel: "haha nog steeds #error" })
Deetch: "hoerige *pieperdepiep*" :%
Deetch: ".....1 haakje open, 2,3,4, haakje sluiten maakt 3,4,3,2,1,2,3,2,1,oh en nog eentje aan het eind = 0" 8)7
Excel: "42" :?
Deetch: "jeweetz" :7 ^O^
Ja, dat :7

En vooral dat haakjes tellen wordt een hel als je werkt met 10 geneste functies ofzo :{
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107144691
Dat is voor pro's, daar ben ik (nog) niet aan toe ;-)

Bedankt allemaal!
pi_107168492
Slimme oplossing om meetwaarden in intervallen te consolideren?

Hallo,
Ik heb een lijst van 3000 temperatuurmetingen die ik wil 'comprimeren': het zijn nu metingen per 5 minuten, ik wil naar het gemiddelde per uur en evt daarna gemiddelde per dag.
De opbouw is: A: datum/tijd B: temperatuur
Kan natuurlijk in C een formule neerzetten die telt en steeds een setje van 12 B waarden middelt maar da's nogal omslachtig. Zeker als ik lijsten ga samenvoegen (meetwaarden over een heel jaar).
Is er een manier om dit eenvoudiger te doen? Heb al aan draaitabel zitten denken (heb daar ervaring mee) maar zie daar geen oplossing.
Interval functie gebruiken? (heb ik geen ervaring mee)
Excel versie 2003NL

Dank
  dinsdag 24 januari 2012 @ 09:00:20 #250
249182 Holy_Goat
mhččhčhč
pi_107169058
Wellicht met een array if functie?
Weet niet of er anders een avgif bestaat?
  dinsdag 24 januari 2012 @ 09:05:41 #251
62215 qu63
..de tijd drinkt..
pi_107169143
quote:
0s.gif Op dinsdag 24 januari 2012 09:00 schreef Holy_Goat het volgende:
Wellicht met een array if functie?
Weet niet of er anders een avgif bestaat?
GEMIDDELDE.ALS bedoel je?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107169689
Ik zou zoiets met een VBA script doen en dan later de witte rijen er uit halen.
Maar ik weet niet hoe data werken met VBA :P
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107170035
quote:
7s.gif Op dinsdag 24 januari 2012 09:36 schreef Jesse_ het volgende:
Ik zou zoiets met een VBA script doen en dan later de witte rijen er uit halen.
Maar ik weet niet hoe data werken met VBA :P
Met vba zou je de witte rijen niet eens erin creeren ;)
pi_107170313
quote:
0s.gif Op dinsdag 24 januari 2012 09:52 schreef Basp1 het volgende:

[..]

Met vba zou je de witte rijen niet eens erin creeren ;)
Witte cellen dan :P
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107172721
quote:
0s.gif Op dinsdag 24 januari 2012 09:05 schreef qu63 het volgende:

[..]

GEMIDDELDE.ALS bedoel je?
Daar raak je wel de kern: ALS wat? Hoe definieer je de voorwaarde dat een waarde in een schuivend venster valt? (Als datumtijd binnen venster van een uur, en dat steeds voor alle uren) Moet dus een relatieve voorwaarde zijn ipv een absolute.
pi_107172764
Iemand voorbeeld van zo'n VBA'tje?
  dinsdag 24 januari 2012 @ 11:59:40 #257
62215 qu63
..de tijd drinkt..
pi_107173866
quote:
0s.gif Op dinsdag 24 januari 2012 11:22 schreef Apelaar het volgende:

[..]

Daar raak je wel de kern: ALS wat? Hoe definieer je de voorwaarde dat een waarde in een schuivend venster valt? (Als datumtijd binnen venster van een uur, en dat steeds voor alle uren) Moet dus een relatieve voorwaarde zijn ipv een absolute.
Met deze functie krijg je een gemiddelde van de laatste 12 rijen, ongeacht het aanatl rijen:
1=GEMIDDELDE(VERSCHUIVING($B$2;VERGELIJKEN(9,99999999999999E+307;$B2:$B92)-12;0;12;1))
dmv verschuiving() en vergelijken() kan je dus wel een relatieve voorwaarde gebruiken :)
De data staat bij mij in B2:B92 en pakt nu het gemiddelde van B58:B69 met behulp van bovenstaande functie :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107175212
Tx!
pi_107183092
Ik importeer automatisch gegevens vanaf een webpagina in een excel sheet. Graag zou ik hier automatisch mee willen rekenen maar in de cel staan letters en getallen:
Voorbeeld:
"Valuta: 100"
"Geld: 200"
"Money: 300"

Graag zou ik dus het gemiddelde van deze cellen automatisch willen laten bereken iedere minuut.

Is er een manier om in een formule letters te negeren?

Excel 2010
A revolution is a fundamental change in power or organizational structures that takes place in a relatively short period of time.
pi_107183644
http://office.microsoft.c(...)ngs-HA001154901.aspx

Edit:
En een UDF (user designed function), handiger als je hem vaak gebruikt, maar een UDF is altijd trager dan excel ingebouwde functie
http://www.ozgrid.com/VBA/ExtractNum.htm

[ Bericht 41% gewijzigd door #ANONIEM op 24-01-2012 16:45:04 ]
pi_107184336
quote:
7s.gif Op dinsdag 24 januari 2012 16:39 schreef KritischeMassa het volgende:
http://office.microsoft.c(...)ngs-HA001154901.aspx

Edit:
En een UDF (user designed function), handiger als je hem vaak gebruikt, maar een UDF is altijd trager dan excel ingebouwde functie
http://www.ozgrid.com/VBA/ExtractNum.htm
WOOW! Bedankt voor je reactie.
Ik probeer me in te lezen maar snap er niet veel van.

In Cel A2, A9, A16 en A23 staat het volgende "Euro: ¤1.285.18" maar in alle vier de cellen verschilt het bedrag.

het liefst zou ik dus Cel A2+A9+A16+A23/4 willen doen maar de text zit in de weg
A revolution is a fundamental change in power or organizational structures that takes place in a relatively short period of time.
  dinsdag 24 januari 2012 @ 17:10:45 #262
62215 qu63
..de tijd drinkt..
pi_107184765
quote:
0s.gif Op dinsdag 24 januari 2012 16:59 schreef 1517 het volgende:

[..]

WOOW! Bedankt voor je reactie.
Ik probeer me in te lezen maar snap er niet veel van.

In Cel A2, A9, A16 en A23 staat het volgende "Euro: ¤1.285.18" maar in alle vier de cellen verschilt het bedrag.

het liefst zou ik dus Cel A2+A9+A16+A23/4 willen doen maar de text zit in de weg
Heb je het voorbeeld zoals op die site staat al werkend gekregen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 24 januari 2012 @ 21:26:34 #263
93304 Orealo
Tsu Tsu Tsunami!!!
pi_107196096
Hopelijk kunnen jullie me helpen. Ik heb een excel bestand met in kolom A een aantal titels, zeg, voor het gemak, muziektitels. In een kolom C, D en E heb ik drie categorieėn staat. "Pop" "Rock" en "Techno" staan.

Onder de categorieėn staan dezelfde titels genoemd die in kolom A staan. Hoe krijg ik het nu makkelijk voor elkaar dat ik in kolom B de behorende categorie krijg van de titel in kolom A?

Ik kan een hoop zoeken.als formules gaan nesten, maar dat is zo omslachtig als er een nummer bij komt of af gaat, dus dat is niet zo handig.

Hebben jullie tips? Het gaat om (helaas) excel 2003 en in het Nederlands.

ps. het gaat niet echt om muziektitels en categorieėn, dat is enkel om het probleem duidelijk te maken. Dat voordat jullie daarvoor met andere oplossingen komen ;).
pi_107196180
Horizontaal.zoeken :)
  dinsdag 24 januari 2012 @ 21:41:22 #265
93304 Orealo
Tsu Tsu Tsunami!!!
pi_107196852
quote:
0s.gif Op dinsdag 24 januari 2012 21:28 schreef DaFan het volgende:
Horizontaal.zoeken :)
Jezus. Je hebt helemaal gelijk. Wat deed ik moeilijk met zoeken.als nesten, haha.
Dankjewel.
pi_107208406
quote:
0s.gif Op dinsdag 24 januari 2012 17:10 schreef qu63 het volgende:

[..]

Heb je het voorbeeld zoals op die site staat al werkend gekregen?
Nee, niet gelukt.
Nu is opeen mijn Data van uit een website ook niet meer werkend. Raar, ik doe het wel weer handmatig
A revolution is a fundamental change in power or organizational structures that takes place in a relatively short period of time.
  woensdag 25 januari 2012 @ 09:24:16 #267
62215 qu63
..de tijd drinkt..
pi_107208662
quote:
0s.gif Op woensdag 25 januari 2012 09:12 schreef 1517 het volgende:

[..]

Nee, niet gelukt.
Na welke stap lukt het niet meer dan?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107211752
zien de bedragen er altijd zo uit? tekst, euro teken, cijfers met 2 getallen achter de komma?

dan zou deze functie moeten werken om alleen het bedrag eruit te halen:
=(SUBSTITUTE(MID(A1,FIND("¤",A1)+1,LEN(A1)-FIND("¤",A1)+1),".",""))/100
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 25 januari 2012 @ 11:43:08 #269
49641 Individual
Meet John Doe...
pi_107212316
Het leek me wel iets dat ik ooit zou kunnen tegenkomen dus ik heb een gekeken naar nummer extractie.

Ik vond: =REPLACE(LEFT(F7,LOOKUP(10,MID(F7,ROW(INDIRECT("1:30")),1)+0,ROW(INDIRECT("1:30")))),1,MIN(FIND(0,SUBSTITUTE(F7&0,{1,2,3,4,5,6,7,8,9},0)))-1,"")+0

Wat ik ook in F7 plaats, het nummer wordt eruit gehaald. Dus "Euro: A¤A3,8540.1220AA" wordt 38540.122.

Het moet wel een echt nummer zijn en niet zoals in het voorbeeld "Euro: ¤1.285.18" want daar zitten 2 punten in ipv een comma en een punt.

Ik ga er eens verder mee spelen.
reset
  woensdag 25 januari 2012 @ 18:57:39 #270
28946 mirelia
Neehee ik ben geen vrouw!!
pi_107227257
Weet iemand of je met een formule een cel een kleur kan geven door er op te klikken
bijvoorbeeld: klik op a1 --> rood, nog een klik -->groen, en dan weer rood en weer groen etc.
Er hoeft geen waarde in de cel oid.
Shuffle up and deal!!!
  woensdag 25 januari 2012 @ 19:06:51 #271
15221 Falco
Afleidingsmanoeuvre
pi_107227631
quote:
0s.gif Op zondag 15 januari 2012 22:03 schreef Arcee het volgende:
Nederlandstalige Excel... *ril* :{
Duitse excel is nog jofeler. WENN en SVERWEIS _O_
&lt;a href="https://www.youtube.com/watch?v=yIl_jGh-LWE" target="_blank" rel="nofollow"&gt;Afleidingsmanoeuvre&lt;/a&gt;
  woensdag 25 januari 2012 @ 19:58:00 #272
49641 Individual
Meet John Doe...
pi_107229826
quote:
2s.gif Op woensdag 25 januari 2012 19:06 schreef Falco het volgende:

[..]

Duitse excel is nog jofeler. WENN en SVERWEIS _O_
Wees bij dat het niet Tsjechisch is. HLOOKUP = VVYHLEDAT bv.

Excelwoordenboek: http://wwwhome.cs.utwente.nl/~trieschn/excel/excel.html
reset
pi_107246378
quote:
0s.gif Op woensdag 25 januari 2012 18:57 schreef mirelia het volgende:
Weet iemand of je met een formule een cel een kleur kan geven door er op te klikken
bijvoorbeeld: klik op a1 --> rood, nog een klik -->groen, en dan weer rood en weer groen etc.
Er hoeft geen waarde in de cel oid.
Open VBA editor

Plak deze code in het betreffende werkblad

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Interior.Color <> vbRed Then
        ActiveCell.Interior.Color = vbRed
    Else
        ActiveCell.Interior.Color = vbGreen
    End If
End Sub
pi_107247479
quote:
0s.gif Op donderdag 26 januari 2012 06:17 schreef KritischeMassa het volgende:

[..]

Open VBA editor

Plak deze code in het betreffende werkblad
[ code verwijderd ]

Mooie code, ik heb hem aangevuld met een derde kleur (nl. weer zonder kleur)
Dus hij gaat nu van rood, naar groen naar ongekleurd.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

With ActiveCell.Interior

If .Color <> vbRed Then
    If .Color <> vbGreen Then
        .Color = vbRed
        Else: .Pattern = xlNone
    End If
    Else: .Color = vbGreen
End If

End With

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
  donderdag 26 januari 2012 @ 19:16:46 #275
28946 mirelia
Neehee ik ben geen vrouw!!
pi_107267539
Thx heren, het werkt perfect!
Shuffle up and deal!!!
  vrijdag 27 januari 2012 @ 00:42:07 #276
318317 glaba
Ondertitel:
pi_107282548
Ik snap geen shit van Excel dus vandaar deze vraag. Hoe maak ik van een online web rooster een CSV bestand in Excel?
Bijvoorbeeld zo een rooster: http://asklepios.eur.nl/iris/definitief/11_1/11_1_Def-Rooster_Totaal_Studiegroep_BA3_30.html
pi_107282639
Copy, paste?
  vrijdag 27 januari 2012 @ 00:48:39 #278
318317 glaba
Ondertitel:
pi_107282707
En dan? Ik probeer hem in te voeren in Google Agenda, maar hij pakt hem niet als ik alleen copy-paste doe en vervolgens opsla als CSV.
pi_107282761
Mja. Dacht je niet dat er misschien iets van een standaard zou bestaan voor agenda importbestanden?
  vrijdag 27 januari 2012 @ 01:07:19 #280
318317 glaba
Ondertitel:
pi_107283036
quote:
14s.gif Op vrijdag 27 januari 2012 00:51 schreef KomtTijd... het volgende:
Mja. Dacht je niet dat er misschien iets van een standaard zou bestaan voor agenda importbestanden?
Oh okay, is het dan niet mogelijk die webagenda te importeren?
  vrijdag 27 januari 2012 @ 01:08:56 #281
62215 qu63
..de tijd drinkt..
pi_107283063
quote:
0s.gif Op vrijdag 27 januari 2012 00:42 schreef glaba het volgende:
Ik snap geen shit van Excel dus vandaar deze vraag. Hoe maak ik van een online web rooster een CSV bestand in Excel?
Bijvoorbeeld zo een rooster: http://asklepios.eur.nl/iris/definitief/11_1/11_1_Def-Rooster_Totaal_Studiegroep_BA3_30.html
Je zou het uit kunnen lezen door middel van PHP en dan parsen naar een .ics of .csv. Hiervoor kan je alleen beter bij [PHP/(My)SQL] voor dummies #98 zijn :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107283080
http://support.google.com(...)y?hl=en&answer=45656

Vraag je school om een import tool.
  vrijdag 27 januari 2012 @ 01:15:38 #283
318317 glaba
Ondertitel:
pi_107283178
quote:
14s.gif Op vrijdag 27 januari 2012 01:10 schreef Tegan het volgende:
http://support.google.com(...)y?hl=en&answer=45656

Vraag je school om een import tool.
Chill thanks, bedankt voor de link. Ga het op die manier proberen.

@qu63 Geen flauw idee wat dat allemaal betekent, maar toch bedankt. :P
  vrijdag 27 januari 2012 @ 04:28:38 #284
349086 ClapClapYourHands
Gurbansoltanedzhe
pi_107285889
je gegevens staan toch al zo? Wat wil je dan nog met je draaitabel doen?
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_107286408
quote:
0s.gif Op vrijdag 27 januari 2012 00:48 schreef glaba het volgende:
En dan? Ik probeer hem in te voeren in Google Agenda, maar hij pakt hem niet als ik alleen copy-paste doe en vervolgens opsla als CSV.
Dat komt ten eerste omdat er nergens een komma staat. Dus je google agenda ziet alleen maar regels met tekst.
Een importtool is denk ik het handigste.
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
  vrijdag 27 januari 2012 @ 10:24:45 #287
349086 ClapClapYourHands
Gurbansoltanedzhe
pi_107287321
quote:
3s.gif Op vrijdag 27 januari 2012 09:16 schreef Deetch het volgende:
je gegevens staan toch al zo? Wat wil je dan nog met je draaitabel doen?
Ik wil uiteindelijk alleen die draaitabel gebruiken. Het probleem is dat ik op de een of andere manier niet kan krijgen wat ik in excel getypt heb...
pi_107289152
even een vraagje, (hoe) kan ik het instellen dat een grafiek met negatieve waardes rood is maar dat de lijn bij positieve waardes groen is?

alvast bedankt
pi_107289910
quote:
0s.gif Op vrijdag 27 januari 2012 11:30 schreef deuk.in.een.pakje.boter het volgende:
even een vraagje, (hoe) kan ik het instellen dat een grafiek met negatieve waardes rood is maar dat de lijn bij positieve waardes groen is?

alvast bedankt
Opmaak -> voorwaardelijk opmaak (Format -> conditional format.)
  vrijdag 27 januari 2012 @ 15:37:19 #290
62215 qu63
..de tijd drinkt..
pi_107297006
quote:
0s.gif Op vrijdag 27 januari 2012 11:57 schreef Tegan het volgende:

[..]

Opmaak -> voorwaardelijk opmaak (Format -> conditional format.)
Ik weet niet of dat ook werkt met je grafieklijn..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107300626
quote:
0s.gif Op vrijdag 27 januari 2012 15:37 schreef qu63 het volgende:

[..]

Ik weet niet of dat ook werkt met je grafieklijn..
werkt inderdaad niet met de grafieklijn, iemand nog een idee?
pi_107321100
NIet echt behalve een tussenoplossing, Deel de data op in twee kolommen:

kolom A = X-as (teller, datum weet ik veel)
kolom B = oorspronkelijke data
kolom C = als($B1<=0;$B1;#N/B) (#N/B zonder " ")

En dan een spreidingsgrafiek maken van beide kolommen met kolom A als X-as

Door #N/B zal de lijn van, bv, kolom C niet naar nul terug vallen maar onderbroken worden.



edit:

Helaas, in bovenstaand voorbeeld werkt het idee, maar in de meeste gevallen niet kom ik net achter... ;(

[ Bericht 7% gewijzigd door #ANONIEM op 28-01-2012 10:01:12 ]
  zaterdag 28 januari 2012 @ 11:01:19 #293
49641 Individual
Meet John Doe...
pi_107322639
quote:
3s.gif Op zaterdag 28 januari 2012 09:00 schreef KritischeMassa het volgende:
NIet echt behalve een tussenoplossing, Deel de data op in twee kolommen:

kolom A = X-as (teller, datum weet ik veel)
kolom B = oorspronkelijke data
kolom C = als($B1<=0;$B1;#N/B) (#N/B zonder " ")

En dan een spreidingsgrafiek maken van beide kolommen met kolom A als X-as

Door #N/B zal de lijn van, bv, kolom C niet naar nul terug vallen maar onderbroken worden.

[ afbeelding ]

edit:

Helaas, in bovenstaand voorbeeld werkt het idee, maar in de meeste gevallen niet kom ik net achter... ;(

Dat is idd de oplossing. Je gaat dan wel uit van 0 waarden tussen positief en negatief.

Als je bv van +20 naar -10 gaat zou je per formule er een 0 tussen moeten zetten. In dat geval zou je dat tussen elke stap in de teller moeten doen. Ipv een 0 zou je ook een gemiddelde kunnen berekenen tussen +20 en -10 waardoor de lijn vloeiender is, maar de kleur zou dan niet direct bij de as veranderen.
reset
pi_107331976
Ik ben er nog even mee bezig geweest want dat er geen oplossing is voor zoiets voor de hand liggends :N

Wat ik nu heb verzonnen is het volgende:

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
Sub Macro1()
    
Dim i As Integer
Dim j As Integer
Dim x As Variant
Dim y As Variant
Dim SP As Double
Dim xnew() As Variant
Dim ynew() As Variant

x = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).XValues
y = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values

For i = 1 To UBound(x)

j = j + 1

ReDim Preserve xnew(j)
ReDim Preserve ynew(j)
xnew(j) = x
ynew(j) = j

If i > 1 Then

A1 = x(i - 1)
B1 = y(i - 1)

A2 = x(i)
B2 = y(i)

SP = -1 * (B2 - (A2 * (B2 - B1) / (A2 - A1))) / (B2 - B1) / (A2 - A1)

If SP > A1 And SP < A2 Then
j = j + 1
ReDim Preserve xnew(j)
ReDim Preserve ynew(j)
xnew(j) = 0
ynew(j) = SP

End If

End If

Next i

'ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values = ynew
'ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).XValues = xnew

End Sub

met SP = -1 * (B2 - (A2 * (B2 - B1) / (A2 - A1))) / (B2 - B1) / (A2 - A1) bereken ik de punten waar de lijn de x-as snijdt en die voeg ik met redim preserve aan een tussen array toe

so far so good

Echter ik krijg het nu niet voor elkaar om die tussenarray's aan de chart toe te wijzen (twee laatste stukjes code met ' ervoor.)

Mijn idee was namelijk om vervolgens de chart door te lopen en ieder lijndeel dat 0 of kleiner is rood te maken.

Ik stoei er nog wat mee door maar mocht iemand heldere ideeėn hebben, wees welkom

Het doel is een dynamische macro die op willekeurige grafieken kan werken

edit:
ok, het blijkt dus dat een array maximaal 250 tekens mag bevatten als je deze naar een chart serie wil schrijven, daar gaat mijn code dus nu mis.

Ik zal als alternatief dus naar een range in een workbook moeten schrijven en de grafiek naar die range verwijzen, pest is dat mijn code uitgaat van de dataseries en dat is dus al onnodig ik kan beter verwijzen naar de bronkolom

Mooi wordt het niet dus ;(

[ Bericht 3% gewijzigd door #ANONIEM op 28-01-2012 17:30:37 ]
  zaterdag 28 januari 2012 @ 17:31:54 #295
49641 Individual
Meet John Doe...
pi_107332675
De tussenformules (die dezelde zijn als de waardenformules) hebben geen categoriewaarde ervoor dus zie je niet op die manier in de grafiek.

Een oplossing zou zijn om 2 aparte grafieken over elkaar heen te leggen waarvan de achtergrond doorzichtig is. Het zal wat gepriegel zijn de 2 precies op elkaar aan te laten sluiten, maar wel mogelijk. Toch krijg je nog steeds geen mooie vloeiende lijn.

Daar zou je ook geen VBA voor nodig hebben.
reset
pi_107332833
quote:
0s.gif Op zaterdag 28 januari 2012 17:31 schreef Individual het volgende:
De tussenformules (die dezelde zijn als de waardenformules) hebben geen categoriewaarde ervoor dus zie je niet op die manier in de grafiek.

Een oplossing zou zijn om 2 aparte grafieken over elkaar heen te leggen waarvan de achtergrond doorzichtig is. Het zal wat gepriegel zijn de 2 precies op elkaar aan te laten sluiten, maar wel mogelijk. Toch krijg je nog steeds geen mooie vloeiende lijn.

Daar zou je ook geen VBA voor nodig hebben.
Nee grijpen naar VBA is mijn zwakte, wat bedoel je precies met tussenformule? Waar ik SP bereken? Dat is het snijpunt van de x-as, dus y is in dat geval per definitie 0

Ik bereken het snijpunt steeds tussen twee punten in (rechte lijn) en test of het snijpunt van de x-as groter is dan x1 en kleiner dan x2...

Als je eenmaal alle snijpunten met de x as hebt kun je lijnsegmenten opmaken en alles in 1 chart houden...
  zaterdag 28 januari 2012 @ 17:53:07 #297
49641 Individual
Meet John Doe...
pi_107333284
Tussenformule als tussen teller #11 en #12 (zeg maar teller #11.5).

1. Als #11 bv +20 is en #12 -10 dan kan de tussenstap het gemiddelde +5 zijn.
2. Of de tussenstap die uitrekent dat #11 positief is en #12 negatief en daarom de tussenstap 0 moet zijn.

Het probleem met 1. is dat de kleur niet met de as verandert en het probleem met 2. is dat de lijn niet vloeiend is.

Ik hoop dat het nog een beetje begrijpelijk is. Voor zover ik weet is er zonder een uitgebreid VBA-script of heel veel tussenstappen geen andere weg.

Interessant onderwerp wel en als iemand de magische werkwijze heeft posten maar want ik zie hier wel het nut van in.
reset
  zaterdag 28 januari 2012 @ 20:10:46 #298
62215 qu63
..de tijd drinkt..
pi_107337377
Je zou er ook voor kunnen kiezen om je labels negatief te maken dmv dit:
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 28 januari 2012 @ 20:17:31 #299
62215 qu63
..de tijd drinkt..
pi_107337629
Of misschien dat dit iets verder kan helpen? http://peltiertech.com/WordPress/area-chart-invert-if-negative/
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 28 januari 2012 @ 20:18:24 #300
62215 qu63
..de tijd drinkt..
pi_107337677
quote:
0s.gif Op vrijdag 27 januari 2012 11:30 schreef deuk.in.een.pakje.boter het volgende:
even een vraagje, (hoe) kan ik het instellen dat een grafiek met negatieve waardes rood is maar dat de lijn bij positieve waardes groen is?

alvast bedankt
Welke versie van Excel heb je eigenlijk? 2003? 2007? 2010?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 28 januari 2012 @ 20:19:07 #301
62215 qu63
..de tijd drinkt..
pi_107337711
Slotje, tot in 't volgende topic! :W
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')