DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Het is een invulblad waarbij cel D18 gevuld moet worden met een kenteken.
En om nu twee cellen te gaan gebruiken voor het kenteken,... gaat bij de gebruikers denk ik leiden tot verwarring.
Ik snap je vraag over het kenteken niet helemaal. Het kenteken van een auto bestaat uit de combi 2-2-2 of 2-3-1. Waarbij de combi 2-2-2 kan bestaan uit AA-BB-11, 11-AA-BB of AA-11-BB.
De combi 2-3-1 bestaat (voorlopig) alleen nog uit 11-AAA-2. Het kenteken is simpelweg af te lezen van de gele platen op de auto (of het kentekenbewijs).
Ondertussen heb ik deze macro gevonden/aangepast.
Nu moet er na het invullen van de cel (na het geven van een ENTER dus) een automatische controle komen op de geldigheid van het kenteken. En als het mogelijk is moet het verschil tussen de combi 2-2-2 en 2-3-1 automatisch worden aangebracht.
[ Bericht 41% gewijzigd door ManAtWork op 03-07-2008 13:57:20 (toevoeging macro) ]
En om nu twee cellen te gaan gebruiken voor het kenteken,... gaat bij de gebruikers denk ik leiden tot verwarring.
Ik snap je vraag over het kenteken niet helemaal. Het kenteken van een auto bestaat uit de combi 2-2-2 of 2-3-1. Waarbij de combi 2-2-2 kan bestaan uit AA-BB-11, 11-AA-BB of AA-11-BB.
De combi 2-3-1 bestaat (voorlopig) alleen nog uit 11-AAA-2. Het kenteken is simpelweg af te lezen van de gele platen op de auto (of het kentekenbewijs).
Ondertussen heb ik deze macro gevonden/aangepast.
| 1 2 3 4 5 6 | Dim C As Range For Each C In Selection C.Offset(0, 0) = Format(UCase(C), "&&-&&-&&") Next End Sub |
Nu moet er na het invullen van de cel (na het geven van een ENTER dus) een automatische controle komen op de geldigheid van het kenteken. En als het mogelijk is moet het verschil tussen de combi 2-2-2 en 2-3-1 automatisch worden aangebracht.
[ Bericht 41% gewijzigd door ManAtWork op 03-07-2008 13:57:20 (toevoeging macro) ]
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Zo dan maar. Druk Alt-F11, kies in de linkerdropdown bovenaan Worksheet, dan rechts Change en plak dit in de sub:
De enige 'test' die ik heb op 'geldigheid' is een lengte van 6 karakters trouwens. Als jij nog andere hebt hoor ik het wel
AL1 is een hulpcel trouwens, uit het zicht. Als je er toch last van hebt kies dan een van de andere 16 miljoen+ cellen en pas dit aan in de code.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Kenteken = Range("D18").Value If Len(Kenteken) <> 6 Then MsgBox "Geen geldig kenteken ingegeven", vbOKOnly, "Fout!" Range("D18").Value = "" Exit Sub End If If IsNumeric(Right(Kenteken, 1)) = True And IsNumeric(Right(Kenteken, 2)) = False Then Kenteken = Format(UCase(Kenteken), "&&-&&&-&") Range("D18").Value = Kenteken Else Kenteken = Format(UCase(Kenteken), "&&-&&-&&") Range("D18").Value = Kenteken End If Range("AL1").Value = Range("D18").Value End If |
De enige 'test' die ik heb op 'geldigheid' is een lengte van 6 karakters trouwens. Als jij nog andere hebt hoor ik het wel
AL1 is een hulpcel trouwens, uit het zicht. Als je er toch last van hebt kies dan een van de andere 16 miljoen+ cellen en pas dit aan in de code.
Check! Dit werkt.
Is het ook nog mogelijk dat de macro automatisch wordt uitgevoerd nadat er op ENTER is gedrukt bij het invullen van D18? Of vraag ik nu teveel?
Is het ook nog mogelijk dat de macro automatisch wordt uitgevoerd nadat er op ENTER is gedrukt bij het invullen van D18? Of vraag ik nu teveel?
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Hoe krijg ik de grafiek zover dat de parameters met geen informatie (quarter 2,3,4) zich niet laten zien (dus dat de grafieklijn stopt na Quarter 1). De 3 quarters moeten wel bij de brongegevens blijven!
Dat zou al moeten gebeuren als ie in je Worksheet_change event staat.quote:Op donderdag 3 juli 2008 16:07 schreef ManAtWork het volgende:
Check! Dit werkt.
Is het ook nog mogelijk dat de macro automatisch wordt uitgevoerd nadat er op ENTER is gedrukt bij het invullen van D18? Of vraag ik nu teveel?
Edit: Ik heb me iets te snel er vanaf gemaakt
Probleem nu is dat hij wéér het event gaat uitvoeren als Range("D18") gevuld wordt (niet zo verwonderlijk). Ik kom er nu niet uit hoe ik het kan omzeilen sorry. Kan je er niet gewoon een ActiveX knop naast maken die ingedrukt moet worden als het kenteken omgezet moet worden?Je code wordt dan ook een stuk korter:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Kenteken = Range("D18").Value If IsNumeric(Right(Kenteken, 1)) = True And IsNumeric(Right(Kenteken, 2)) = False Then Kenteken = Format(UCase(Kenteken), "&&-&&&-&") Range("D18").Value = Kenteken Else Kenteken = Format(UCase(Kenteken), "&&-&&-&&") Range("D18").Value = Kenteken End If Range("AL1").Value = Range("D18").Value End Sub |
Er wordt niet getest op geldigheid. Als je bijvoorbeeld '5' invult wordt dat '--5' , een 'p' wordt '--p'.
[ Bericht 66% gewijzigd door DaFan op 04-07-2008 00:52:18 ]
application.enableEvents op false zetten aan het begin van je subje, dan weer op true aan het eindquote:Op donderdag 3 juli 2008 23:24 schreef DaFan het volgende:
[..]
Dat zou al moeten gebeuren als ie in je Worksheet_change event staat.
Edit: Ik heb me iets te snel er vanaf gemaakt
Een derde kolom maken met de volgende functie: =IF(B2>0,B2,#N/A) Hierbij uitgaande dat in B2 de absenten staan.quote:Op donderdag 3 juli 2008 17:06 schreef Xith het volgende:
[ afbeelding ]
Hoe krijg ik de grafiek zover dat de parameters met geen informatie (quarter 2,3,4) zich niet laten zien (dus dat de grafieklijn stopt na Quarter 1). De 3 quarters moeten wel bij de brongegevens blijven!
Vervolgens de derde kolom gebruiken om de grafiek te maken.
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
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
Dit werkt super. Behalve als er een fout kenteken (lees: geen 6 posities) is ingevuld. Na het invullen van een correct nummer wordt dit niet meer omgezet.quote:Op vrijdag 4 juli 2008 08:19 schreef ralfie het volgende:
[..]
application.enableEvents op false zetten aan het begin van je subje, dan weer op true aan het eind
Dit is wat ik er nu heb staan.
| 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 | Application.EnableEvents = False If Range("D18").Value <> Range("AL1").Value Then kenteken = Range("D18").Value If Len(kenteken) <> 6 Then MsgBox "Geen geldig kenteken ingegeven", vbOKOnly, "Fout!" Range("D18").Value = "" Exit Sub End If If IsNumeric(Right(kenteken, 1)) = True And IsNumeric(Right(kenteken, 2)) = False Then kenteken = Format(UCase(kenteken), "&&-&&&-&") Range("D18").Value = kenteken Else kenteken = Format(UCase(kenteken), "&&-&&-&&") Range("D18").Value = kenteken End If Range("AL1").Value = Range("D18").Value End If Application.EnableEvents = True End Sub |
(Wordt toch eens tijd om me hier verder in te verdiepen,...
)
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Maar de punten die ik wil 'verbergen' uit de grafiek zijn !VERW (verwijzing fout), ook met zo'n folmule:quote:Op vrijdag 4 juli 2008 08:29 schreef Deetch het volgende:
[..]
Een derde kolom maken met de volgende functie: =IF(B2>0,B2,#N/A) Hierbij uitgaande dat in B2 de absenten staan.
Vervolgens de derde kolom gebruiken om de grafiek te maken.
=ALS(B27="#VERW!";"#N/A";B27)
Wilt het niet want zijn leest B27 niet als '#VERW!' maar als een formule, geloof ik...
Wat kan ik doen?
ja dat is logisch, wanneer er een fout is doe je exit sub waardoor de enableEvents=true niet meer wordt uitgevoerd. Dus datzo even daarvoor zetten hequote:Op vrijdag 4 juli 2008 09:18 schreef ManAtWork het volgende:
[..]
Dit werkt super. Behalve als er een fout kenteken (lees: geen 6 posities) is ingevuld. Na het invullen van een correct nummer wordt dit niet meer omgezet.
Dit is wat ik er nu heb staan.
[ code verwijderd ]
(Wordt toch eens tijd om me hier verder in te verdiepen,...
edit: Laat maar. Heb het al voor elkaar. (Even rustig nadenken levert ook resultaat.quote:Op vrijdag 4 juli 2008 17:35 schreef ralfie het volgende:
[..]
ja dat is logisch, wanneer er een fout is doe je exit sub waardoor de enableEvents=true niet meer wordt uitgevoerd. Dus datzo even daarvoor zetten he
)Voor iedereen die mee heeft willen denken: mijn dank!
[ Bericht 13% gewijzigd door ManAtWork op 05-07-2008 19:34:05 (Eigen vraag opgelost) ]
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Hoe kan ik data in 1 cell splitsen naar meerdere cellen?
Ik heb bijvoorbeeld de volgende data:
Waarvan ik de data binnen de " " (zie hieronder) wil splitsen naar verschillende cellen.
Niet elke code is gelijk aan elkaar, dus het kan ook zijn dat de "141" van hierboven, ook soms ".../141" heet. Dus ik kan niet splitsen op basis van aantallen tekens, alleen op het feit dat alle " " in een andere cel wordt geplaatst.
Ik heb bijvoorbeeld de volgende data:
| 1 |
Waarvan ik de data binnen de " " (zie hieronder) wil splitsen naar verschillende cellen.
| 1 |
Niet elke code is gelijk aan elkaar, dus het kan ook zijn dat de "141" van hierboven, ook soms ".../141" heet. Dus ik kan niet splitsen op basis van aantallen tekens, alleen op het feit dat alle " " in een andere cel wordt geplaatst.
Kan je met "alles vervangen" de "/" niet weghalen en dan alsnog op posities scheiden?
Op maandag 30 november 2009 19:30 schreef Ian_Nick het volgende:
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Je kunt op basis van een bepaalde inhoud van een cel elders een uitkomst genereren. Op basis van die inhoud kun je weer verder. Dus als er een "/" in voorkomt geef je een 0, anders een 1. Dan pas, op basis van die 0 of 1, die tussenstap, doorgaan.quote:Op maandag 7 juli 2008 10:48 schreef BierKoning het volgende:
Hoe kan ik data in 1 cell splitsen naar meerdere cellen?
Ik heb bijvoorbeeld de volgende data:
[ code verwijderd ]
Waarvan ik de data binnen de " " (zie hieronder) wil splitsen naar verschillende cellen.
[ code verwijderd ]
Niet elke code is gelijk aan elkaar, dus het kan ook zijn dat de "141" van hierboven, ook soms ".../141" heet. Dus ik kan niet splitsen op basis van aantallen tekens, alleen op het feit dat alle " " in een andere cel wordt geplaatst.
Nee want bijvoorbeeld "T BW" of "ss nb" horen bij elkaar. Verder kan PC ook "H-L045" worden.quote:Op maandag 7 juli 2008 10:51 schreef PietjePuk007 het volgende:
Kan je met "alles vervangen" de "/" niet weghalen en dan alsnog op posities scheiden?
Nee,quote:Op maandag 7 juli 2008 11:11 schreef DaFan het volgende:
BierKoning is die lengte van de string altijd hetzelfde, afgezien van die 141 of /141?
Even een kort stukje van mn uit elkaar te pluizen stukje:
| 1 2 3 4 5 6 7 8 9 10 | EN 287-1 141/111 T BW 5 S / B t16(3/13) D168 H–L045 ss nb 1 EN 287-1 141 T BW 5 S t6 D51 H–L045 ss nb 1 EN 287-1 141 T BW 5 S t7 D168 H–L045 ss nb 1 EN 287-1 141 T BW 5 S t5.8 D50 H–L045 ss nb 1 EN 287-1 141 T BW 5 S t6.4 D158 H–L045 ss nb 1 EN 287-1 141 T BW 5 S t4 D38 H–L045 ss nb 2 EN 287-1 135 P BW 1.2 S t8 PF ss nb 2 EN 287-1 135/136 T BW 1.1 S / S t12(12/12) D168 PC ss nb 2 EN 287-1 .../135 T BW 1.1 ... / S t16(.../) D168 PC ss nb 2 |
Kan je 't niet gewoon scheiden op spatie 
. Daarna moet je misschien nog bij een paar kolommen wat extra werk verrichten maar de bulk is dan al prima toch ?
. Daarna moet je misschien nog bij een paar kolommen wat extra werk verrichten maar de bulk is dan al prima toch ?
Op maandag 30 november 2009 19:30 schreef Ian_Nick het volgende:
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Dat zou in elk geval wel al iets zijn. Daar kan ik iig wel even naar opzoek.. alle beetjes helpen.. Wellicht gaat dat nog wel sneller dan overal handmatig " " bij zetten
Het gaat nml om een 186 rijen...
Het gaat nml om een 186 rijen...
Mja dit is niet te doen, ook niet met een macro omdat je niets vasts hebt om op te scheiden. Gewoon Tekst naar kolommen doen en dan een beetje kloten met de scheidslijnen.
Ja ben ik nu ook al mee bezig Een maar zo ruw mogelijke scheiding maken, bij een deel is het wel mogelijk.
Iig bedankt
Een maar zo ruw mogelijke scheiding maken, bij een deel is het wel mogelijk. Iig bedankt
Een vraagje door een door mij niet op te lossen Excel-probleem... Ik heb de opdracht gekregen om aan een order-werkblad een magazijnwerkblad koppelen, hiermee kan de magazijnmedewerker de verschillende artikelen in het magazijn per stuk af te strepen die hij/zij al gepakt heeft.
Het order-werkblad heeft de eerste 3 kolommen:
- 1. Itemnr. (bv. S084)
- 2. stuknr. (bv. 2)
- 3. aantal. (bv. 12)
Het magazijnblad heeft als eerste kolom de samenvoegde 3 kolommen van het order-werkblad (in het voorbeeld wordt de invulling van de cel: S084.2.12).
Daarna is het de bedoeling om alle aantalen tot 1 te vervormen, ofwel je krijgt (in het voorbeeld) 12 regels van het aantal 1. Het lukt mij niet om dit te verwerken in Excel, heeft iemand hier een oplossing voor? Of is dit überhaupt te verwezenlijken in Excel?
Het order-werkblad heeft de eerste 3 kolommen:
- 1. Itemnr. (bv. S084)
- 2. stuknr. (bv. 2)
- 3. aantal. (bv. 12)
Het magazijnblad heeft als eerste kolom de samenvoegde 3 kolommen van het order-werkblad (in het voorbeeld wordt de invulling van de cel: S084.2.12).
Daarna is het de bedoeling om alle aantalen tot 1 te vervormen, ofwel je krijgt (in het voorbeeld) 12 regels van het aantal 1. Het lukt mij niet om dit te verwerken in Excel, heeft iemand hier een oplossing voor? Of is dit überhaupt te verwezenlijken in Excel?
Wanneer wil je dit laten gebeuren? Als in het orderwerkblad een nieuw item wordt toegevoegd?
En je wil gewoon, als er Aantal: 2 staat, dat je andere werkblad heeft:
1
1
En verder niets?
En je wil gewoon, als er Aantal: 2 staat, dat je andere werkblad heeft:
1
1
En verder niets?
Ja precies, als er in het orderwerkblad een nieuwe item wordt toegevoegd met het aantal 12, zal er in het magazijnwerkblad 12 regels met het aantal 1 komen te staan...
haha nee zo bedoel ik het niet. Er moet als het aantal 12 ingevuld wordt bij het orderwerkblad dus 12 rijen/regels komen te staan met de code van het item...Zodat de magazijnmedewerker het dus kan afstrepen
Ja dat snap ik, maar als hij iets toevoegt in het Orderwerkblad kan hij dat bevestigen met een knop. Is een stuk makkelijker in ieder geval.
Ik ben er mee bezig, daarna moet je maar even zien hoe je de uitkomst vindt. (zal wel plaatjes maken).
Ben ook 2 pokertoernooien aan het spelen dus kan even duren
Ik ben er mee bezig, daarna moet je maar even zien hoe je de uitkomst vindt. (zal wel plaatjes maken).
Ben ook 2 pokertoernooien aan het spelen dus kan even duren
Oké ik begrijp niet helemaal wat je bedoelt met een knop... Maar ik wacht met smart op je uitkomst:)
Ik heb de tijd dus doe rustig aan, en succes met je toernooien haha
Ik heb de tijd dus doe rustig aan, en succes met je toernooien haha
Ok.
Zo ziet je eerste sheet eruit (heet hier "Order").
De knop kan je toevoegen via de Control werkbalk.
Je 2e sheet ziet er als volgt uit ("Magazijn")
Ga nu terug naar Order en dubbelklik op de knop, zodat je naar de Visual Basic editor gaat. Je ziet dan het volgende:
Plak dit hier tussen (op regel 2 in dit geval).
Als je nu de knop indrukt ziet je 2e sheet er als volgt uit:
Hoop dat dit een beetje in de richting komt van wat je wil
Zo ziet je eerste sheet eruit (heet hier "Order").
De knop kan je toevoegen via de Control werkbalk.
Je 2e sheet ziet er als volgt uit ("Magazijn")
Ga nu terug naar Order en dubbelklik op de knop, zodat je naar de Visual Basic editor gaat. Je ziet dan het volgende:
| 1 2 3 | End Sub |
Plak dit hier tussen (op regel 2 in dit geval).
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | LastRowOrder = .Range("C65536").End(xlUp).Row Aantal = .Range("C" & LastRowOrder).Value Itemnr = .Range("A" & LastRowOrder).Value Stuknr = .Range("B" & LastRowOrder).Value End With With Sheets("Magazijn") LastRowMagazijn = .Range("A65536").End(xlUp).Row + 1 For i = LastRowMagazijn To LastRowMagazijn + Aantal .Range("A" & i).Value = Itemnr & "." & Stuknr & "." & Aantal .Range("B" & i).Value = 1 Next i End With |
Als je nu de knop indrukt ziet je 2e sheet er als volgt uit:
Hoop dat dit een beetje in de richting komt van wat je wil
Nog even terugkomen op jouw vraag, zie:quote:Op vrijdag 4 juli 2008 10:55 schreef Xith het volgende:
[..]
Maar de punten die ik wil 'verbergen' uit de grafiek zijn !VERW (verwijzing fout), ook met zo'n folmule:
=ALS(B27="#VERW!";"#N/A";B27)
Wilt het niet want zijn leest B27 niet als '#VERW!' maar als een formule, geloof ik...
Wat kan ik doen?
http://peltiertech.com/WordPress/2008/05/14/dynamic-charts/
Het enige is dat je Quarter 2/3/4 niet kan zien als ze niet ingevuld zijn...weet niet zeker of je dat ook wil maar anders moet je hier maar eens kijken:
http://www.peltiertech.com/Excel/Charts/index.html
Al geven wel alle grote Excel fora aan dat je #N/A moet gebruiken om ze niet te laten plotten.
[ Bericht 2% gewijzigd door DaFan op 07-07-2008 13:18:05 ]
Ik hoor het graag!quote:Op maandag 7 juli 2008 13:00 schreef ArjenD11 het volgende:
Super! bedankt man, ik ga het verwerken en hoop dat ze blij met mij zijn...
Kijk ook even of je BEGRIJPT wat er gebeurt in de code. Dan ga je er al een heel stuk op vooruit en kan je ze over een tijdje zelf maken
DaFan,
Nog een vraagje: hoe kom het dat hij dan 13 keer een nieuwe regel maakt en niet 12? of hoe pas ik dit aan?
Nog een vraagje: hoe kom het dat hij dan 13 keer een nieuwe regel maakt en niet 12? of hoe pas ik dit aan?
Verander
naar
| 1 2 3 | For i = LastRowMagazijn To LastRowMagazijn + Aantal |
naar
| 1 2 3 | For i = LastRowMagazijn +1 To LastRowMagazijn + Aantal |
Nou het splitsen dmv " " ging erg goed. Met Word kon ik een hele hoop zoeken/vervangen en daarmee dus " " toevoegen. Daarna kon het heel gemakkelijk met 'text to columns' en dan 'delimited', selecteren dmv 'space' en " " en het was klaar!
Nu heb ik een volgend ding waar ik naar opzoek ben.
Mijn database bestaat uit 70 namen. Deze namen komen meerdere keren voor, dus bijvoorbeeld Jansen is rij 1 tm 9, De Vries is rij 10 tm 14 en Balkenende is rij 15 tm 16.
Voor de overzichtelijkheid heb ik gebruik gemaakt van 2 kleuren, blauw en lichtblauw, en 'fill' ik dus de cel met deze kleur. Deze kleuren wisselen elkaar af dus in het voorbeeld is Jansen blauw, De Vries lichtblauw en Balkenende dan weer blauw. Zo kan ik in 1 oogopslag zien welke velden bij welke namen horen.
Nu kan ik dit allemaal handmatig doen (en heb ik dus ook gedaan), alleen is het lastig wanneer ik dmv mn eerste sheet (data entry) een nieuwe naam, of een extra rij voor een bestaande naam invul. Deze wordt namelijk gewoon wit.
Is het mogelijk om:
1) Excel te laten kijken of de naam die erbij wordt gevoegd al bestaat, en dan de gehele rij de kleur te geven van de naam, als deze bestaat?
2) Bij een nieuwe naam, te kijken wat de laatste kleur was, en dan de andere kleur te gebruiken? Dus bijvoorbeeld wanneer de laatste kleur blauw was, dat de nieuwe naam dan lichtblauw wordt?
Na wat zoeken op internet kwam ik al op deze site deze geeft elke andere cel een bepaalde kleur. Is niet toereikend voor wat ik wil.
Verder heb ik al gekeken naar 'Conditional Formatting' alleen kon ik er niet de opties uit vinden die ik wilde...
Nu heb ik een volgend ding waar ik naar opzoek ben.
Mijn database bestaat uit 70 namen. Deze namen komen meerdere keren voor, dus bijvoorbeeld Jansen is rij 1 tm 9, De Vries is rij 10 tm 14 en Balkenende is rij 15 tm 16.
Voor de overzichtelijkheid heb ik gebruik gemaakt van 2 kleuren, blauw en lichtblauw, en 'fill' ik dus de cel met deze kleur. Deze kleuren wisselen elkaar af dus in het voorbeeld is Jansen blauw, De Vries lichtblauw en Balkenende dan weer blauw. Zo kan ik in 1 oogopslag zien welke velden bij welke namen horen.
Nu kan ik dit allemaal handmatig doen (en heb ik dus ook gedaan), alleen is het lastig wanneer ik dmv mn eerste sheet (data entry) een nieuwe naam, of een extra rij voor een bestaande naam invul. Deze wordt namelijk gewoon wit.
Is het mogelijk om:
1) Excel te laten kijken of de naam die erbij wordt gevoegd al bestaat, en dan de gehele rij de kleur te geven van de naam, als deze bestaat?
2) Bij een nieuwe naam, te kijken wat de laatste kleur was, en dan de andere kleur te gebruiken? Dus bijvoorbeeld wanneer de laatste kleur blauw was, dat de nieuwe naam dan lichtblauw wordt?
Na wat zoeken op internet kwam ik al op deze site deze geeft elke andere cel een bepaalde kleur. Is niet toereikend voor wat ik wil.
Verder heb ik al gekeken naar 'Conditional Formatting' alleen kon ik er niet de opties uit vinden die ik wilde...
1), ja dat heet "voorwaardelijke opmaak", kijk ff in de help hoe 't precies werkt (er is iig erg veel mogelijk)
Op maandag 30 november 2009 19:30 schreef Ian_Nick het volgende:
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Voorwaardelijke opmaak gaat echt niet werken, dan zit je a) na 3 namen al tegen de limiet van condities aan, en b) kan je met geen mogelijkheid kijken wat de 'vorige' kleur was.
BK: Hoe zijn de cellen ingedeeld? Zoals ik het nu begrijp is het álleen kolom A en moet de hele rij lichtblauw worden met naam A, en zodra naam B erbij komt moet deze blauw worden?
Maw kan je toelichten hoe je data eruitziet?
BK: Hoe zijn de cellen ingedeeld? Zoals ik het nu begrijp is het álleen kolom A en moet de hele rij lichtblauw worden met naam A, en zodra naam B erbij komt moet deze blauw worden?
Maw kan je toelichten hoe je data eruitziet?
ik heb even een klein screenshotje gemaakt:
Dus wanneer ik nu als naam DaFan toevoeg, wil ik dus dat die blauw wordt. En PietjePuk007 moet daarna weer lichtblauw worden.
Voeg ik weer Gullit toe, dan wil ik dan hij weer blauw wordt (en als het automatisch kan, dmv sort ook bij de andere gullit gaat staan, maar dat lijkt me geen probleem).
[ Bericht 16% gewijzigd door BierKoning op 09-07-2008 11:14:43 ]
Dus wanneer ik nu als naam DaFan toevoeg, wil ik dus dat die blauw wordt. En PietjePuk007 moet daarna weer lichtblauw worden
. Voeg ik weer Gullit toe, dan wil ik dan hij weer blauw wordt (en als het automatisch kan, dmv sort ook bij de andere gullit gaat staan, maar dat lijkt me geen probleem).
[ Bericht 16% gewijzigd door BierKoning op 09-07-2008 11:14:43 ]
Bierkoning, beter host je je screen op tinypic.com.
Anyway, je moet je de voorwaardelijke opmaak voor oneven rijen de voorwaarde =IS.ONEVEN(RIJ()) opgeven en dan de gewenste kleur eraan koppelen. En =IS.EVEN(RIJ()) voor de even rijen.
edit: Ah ja, na het toevoegen van nieuwe rijen moet je wel de voorwaardelijke opmaak even handmatig toepassen.
Anyway, je moet je de voorwaardelijke opmaak voor oneven rijen de voorwaarde =IS.ONEVEN(RIJ()) opgeven en dan de gewenste kleur eraan koppelen. En =IS.EVEN(RIJ()) voor de even rijen.
edit: Ah ja, na het toevoegen van nieuwe rijen moet je wel de voorwaardelijke opmaak even handmatig toepassen.
| 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 | Dim c As Range Dim ColumnTarget, InteriorColor As Integer Dim Kleur As Long ColumnTarget = Target.Column Kleur = 31 If ColumnTarget = 1 Then For Each c In Range("A:A") If c.Row = 1 Then Naam = c.Value c.EntireRow.Interior.ColorIndex = Kleur End If If c.Value = "" Then Exit Sub If c.Value = Naam Then c.EntireRow.Interior.ColorIndex = Kleur Else If Kleur = 31 Then Kleur = 37 Else Kleur = 31 End If c.EntireRow.Interior.ColorIndex = Kleur Naam = c.Value End If Next End If End Sub |
Dit gaat ervanuit dat alle namen in kolom A staan en beginnen in A1 ! Als ze op een andere kolom op rij 1 beginnen, moet je de 1 (If ColumnTarget = 1 Then) veranderen naar de hoeveelste kolom het is (b=2, z =26).
Als je namen ook nog op een andere rij beginnen hoor ik het wel dan bouw ik daarvoor iets om (nu gaat hij bijvoorbeeld ook de header kleuren).
Edit: Doh vergeet ik dat de hele rij die kleur moet worden
Edit2: opgelost
Dat verplaatsen naar de plaats waar die naam al voorkomt komt later, ben nu even bezig!
Edit DREI:
Je kan de kleuren ook aanpassen als je wil. Met 2007 werken ze ook met shades en tinten enzo, hoe je dat precies moet toevoegen weet ik niet meer 31 en 37 zien er wel aardig uit. Als je een lijstje wil van de mogelijke kleuren, maak dan kort deze sub onder bv een button. Kleuren in kolom D, nummers in kolom E. Pas 31 en 37 aan zoals je zelf wil.
| 1 2 3 4 | Range("D" & i).Interior.ColorIndex = i Range("E" & i).Value = i Next i |
[ Bericht 4% gewijzigd door DaFan op 09-07-2008 11:29:40 ]
Nope, alleen kolom A bevat een naam. De rest is slechts bijbehorende data (zoals nu wel te zien is in de screenshot)
Dat tussenvoegen van een naam als hij al voorkomt gaat niet lukken. Niet vandaag in ieder geval, sorry
Neem gewoon een macro op met hoe jij wil sorteren en voeg die toe aan mijn code dan.
Werkt de code voor je trouwens?
Werkt de code voor je trouwens?
Ik snap het niet, hoe krijg ik dit goed aan de praat?
- Ik ga naar sheet2 van mn workbook.
- Op de tab, rechtermuisknop, code
- Daar past ik jou code
- ik druk op run
Alleen dan wilt ie dat ik hem een naam geef en weer ergens anders past, en daar krijg ik hem niet aan de praat
- Ik ga naar sheet2 van mn workbook.
- Op de tab, rechtermuisknop, code
- Daar past ik jou code
- ik druk op run
Alleen dan wilt ie dat ik hem een naam geef en weer ergens anders past, en daar krijg ik hem niet aan de praat
Nou hij doet bij mij niks. Als ik bij de code van sheet 2 ben, en hem past, vraagt hij om een naam voor de macro
-edit-
Wanneer ik hem dan een naam geef, wilt hij weer een compleet nieuwe code, nouja en zo gaat het dan steeds verder
-edit-
Wanneer ik hem dan een naam geef, wilt hij weer een compleet nieuwe code, nouja en zo gaat het dan steeds verder
Hopelijk dat een van jullie me kan helpen. Ik ben al een tijdje aan het zoeken.
Ik haal met VBA/Excel gegevens uit een database en verwerk die in de sheet. Bij het opstarten van de excel, vraagt hij meteen gegevens die hij weer als parameters gebruikt bij het ophalen van zijn gegeven. Zover gaat alles goed.
Nu wil ik dat sheet opslaan, om daarna te publiceren. Dit lukt op zich wel, alleen als ik die kopie open, vraagt hij meteen weer om die parameters. Is er een manier, om de sheet op te slaan, zonder dat hij de macro ook opslaat?
Hier het code deel voor het opslaan:
Ik haal met VBA/Excel gegevens uit een database en verwerk die in de sheet. Bij het opstarten van de excel, vraagt hij meteen gegevens die hij weer als parameters gebruikt bij het ophalen van zijn gegeven. Zover gaat alles goed.
Nu wil ik dat sheet opslaan, om daarna te publiceren. Dit lukt op zich wel, alleen als ik die kopie open, vraagt hij meteen weer om die parameters. Is er een manier, om de sheet op te slaan, zonder dat hij de macro ook opslaat?
Hier het code deel voor het opslaan:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Dim FileName As String Dim Tijd As String Tijd = Replace(Time, ":", ".") FileName = "C:\Ecel\Overzicht (" & Date & " " & Tijd & ").xls" If MsgBox("Wil je het document opslaan als: " & FileName & "?", vbQuestion + vbOKCancel, "Opslaan?") <> vbOK Then Exit Sub End If Activesheet.SaveAs FileName:=FileName End Sub |
BierKoning, ik weet het niet. Bij mij werkt het gewoon, hoe ik het ook toevoeg....sorry ;(
Ruben probeer dit eens:
Zomaar ergens van een forum geplukt, dus geen credits voor mij (als het uberhaupt al werkt).
Ruben probeer dit eens:
| 1 2 3 4 5 | ActiveWorkbook.SaveAs Filename:= FileName, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False |
Zomaar ergens van een forum geplukt, dus geen credits voor mij (als het uberhaupt al werkt).
Bestaat de one-sided-t-test niet in Excel 
? Oftewel gewoon 1 rij data en kijken wat de kans is dat de afwijking tov van 0 door toeval komt.
Alle t-toetsen in excel hebben 2 rijen data nodig (in SPSS bestaat ie wel).
? Oftewel gewoon 1 rij data en kijken wat de kans is dat de afwijking tov van 0 door toeval komt.Alle t-toetsen in excel hebben 2 rijen data nodig (in SPSS bestaat ie wel).
Op maandag 30 november 2009 19:30 schreef Ian_Nick het volgende:
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Pietje's hobby is puzzelen en misschien ben jij wel het laatste stukje O+
Waarom zou je excel willen gebruiken voor een t-toets als je het met spss kan doen? SPSS kan stukken meer (en ik kan ik meer meequote:Op dinsdag 15 juli 2008 12:25 schreef PietjePuk007 het volgende:
Bestaat de one-sided-t-test niet in Excel
Alle t-toetsen in excel hebben 2 rijen data nodig (in SPSS bestaat ie wel).
)
Om de een of andere reden kan ik opeens de juiste knoppen niet meer vinden 
Ik heb een set data in twee cellen A1 en B1, waarin in A1 de naam staat, en in B1 de bijbehorende cijfercode.
DaFan - 123
DirkH - 456
Pietjepuk - 789
Bierkoning - 101112
Ik wil nu in C1 een dropdown menu, waar ik kies uit de namen. Kies ik voor DirkH, dan wil ik dat in D1 de code 456 komt.
Het is gewoon het linken van data aan elkaar, maar ik kan de juiste knoppen nu niet vinden
Ik heb een set data in twee cellen A1 en B1, waarin in A1 de naam staat, en in B1 de bijbehorende cijfercode.
DaFan - 123
DirkH - 456
Pietjepuk - 789
Bierkoning - 101112
Ik wil nu in C1 een dropdown menu, waar ik kies uit de namen. Kies ik voor DirkH, dan wil ik dat in D1 de code 456 komt.
Het is gewoon het linken van data aan elkaar, maar ik kan de juiste knoppen nu niet vinden
Ja! Dat was het inderdaad
Dat is dan gelijk weer een van de stomme dingen van excel. Normaal kun je wanneer je aan een Range een naam hebt gegeven, de data validation wel gebruiken tussen de verschillende worksheets. Maar het kan niet wanneer je VLOOKUP gebruikt Dan moet de data in de worksheet zelf zijn
Dat is dan gelijk weer een van de stomme dingen van excel. Normaal kun je wanneer je aan een Range een naam hebt gegeven, de data validation wel gebruiken tussen de verschillende worksheets. Maar het kan niet wanneer je VLOOKUP gebruikt
Dan moet de data in de worksheet zelf zijn
Werkt hier gewoon...
Als de namen op Sheet1 staan en de Data validation op Sheet1 kan de VLOOKUP op Sheet2, werkt prima.
Als de namen op Sheet2 staan en de validation en VLOOKUP op 1 werkt het ook prima.
Als de namen op Sheet1 staan en de Data validation op Sheet1 kan de VLOOKUP op Sheet2, werkt prima.
Als de namen op Sheet2 staan en de validation en VLOOKUP op 1 werkt het ook prima.
Bij mij pakt hij dan de naam niet die ik opgeef (mav hij wordt niet 'groen' en pakt de rest van de formule niet).
Ik wil dus de validation + vlookup op sheet 1, en dat ze dit doen met de data van sheet 2.
Maf gedoe, nog es proberen
Ik wil dus de validation + vlookup op sheet 1, en dat ze dit doen met de data van sheet 2.
Maf gedoe, nog es proberen
Ik had ondertussen het volgende gevonden, wat in ieder geval werkt:quote:Op donderdag 10 juli 2008 15:16 schreef DaFan het volgende:
BierKoning, ik weet het niet. Bij mij werkt het gewoon, hoe ik het ook toevoeg....sorry ;(
Ruben probeer dit eens:
[ code verwijderd ]
Zomaar ergens van een forum geplukt, dus geen credits voor mij (als het uberhaupt al werkt).
| 1 2 3 4 5 | ActiveWorkbook.SaveAs FileName:=FileName, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False |
Evengoed bedankt voor het meedenken!
Lol, ik moest wat data copy pasten, maar ik drukte daarmee per ongeluk op cntrl + pijltje naar beneden (en ging daarmee dus helemaal naar de laatste cell) en paste daar de info. Opzich niks aan de hand, alleen staat de scrollbalk nu ingesteld op de volledige lijst (tm rij 1048566).
Hoe kun je dit weer zo krijgen dat hij niet verder gaat dan de ingevulde velden?
Hoe kun je dit weer zo krijgen dat hij niet verder gaat dan de ingevulde velden?
Hm dat werkt niet.. met mn stomme kop deed ik na de paste geen ctrl-z maar delete, dus voor het gevoel van excel heeft ie ze een andere format gegeven denk ik
Mja bij mij was het na een tijdje weg, ik weet niet precies.
Of probeer (2007), Find & Select, Go to...
Typ in de range van de rijen teveel, bv A1:Z1000
Die select ie, dan delete, shift up.
In 2003< staat het onder Edit.
Of probeer (2007), Find & Select, Go to...
Typ in de range van de rijen teveel, bv A1:Z1000
Die select ie, dan delete, shift up.
In 2003< staat het onder Edit.
Waarom is dit topic zo verschrikkelijk slecht bereikbaar? Als je een excel topic opent wordt je hier naartoe verwezen, maar op het moment dat dat niet toevallig pas nog heeft plaatsgevonden, kun je er dus ook niet bij omdat er nergens een link naar dit topic staat
Anyway: Ik heb een hele lange lijst met data. Hier zit een VLOOKUP formule in, die zoekt binnen een andere file. Deze lijst gaat voor een hoop verschillende dingen gebruikt worden; waar de opmaak enzow hetzelfde blijft, verandert de file waarin gezocht moet worden wel. Deze wil ik dus gewoon in 1 cell specificeren, en in de VLOOKUP formule naar verwijzen. Geen probleem denk je dan, maar Excel denkt daar dus anders over
Als je gewoon een reference geeft, bijv 'C6', komt ie met een NA() error. Bij het raadplegen van de berekeningsstappen, geeft Excel aan geen zin te hebben om C6 te interpreteren. Dus dan zetten we er indirect() omheen. Dan gaat ie natuurlijk ook lopen meuten, het is tenslotte gewoon een argument, in de vorm van een tabelmatrix. En daar wil indirect zo te zien niks van weten
Hoe kom ik uit deze vicieuze cirkel en zorg ik dat Excel gewoon de waarde van C6 als argument interpreteert?
Anyway: Ik heb een hele lange lijst met data. Hier zit een VLOOKUP formule in, die zoekt binnen een andere file. Deze lijst gaat voor een hoop verschillende dingen gebruikt worden; waar de opmaak enzow hetzelfde blijft, verandert de file waarin gezocht moet worden wel. Deze wil ik dus gewoon in 1 cell specificeren, en in de VLOOKUP formule naar verwijzen. Geen probleem denk je dan, maar Excel denkt daar dus anders over
Als je gewoon een reference geeft, bijv 'C6', komt ie met een NA() error. Bij het raadplegen van de berekeningsstappen, geeft Excel aan geen zin te hebben om C6 te interpreteren. Dus dan zetten we er indirect() omheen. Dan gaat ie natuurlijk ook lopen meuten, het is tenslotte gewoon een argument, in de vorm van een tabelmatrix. En daar wil indirect zo te zien niks van weten
Hoe kom ik uit deze vicieuze cirkel en zorg ik dat Excel gewoon de waarde van C6 als argument interpreteert?
Als ik mensen door verwijs dan plak ik de link van dit topic er altijd bij. Ik meen mij ook te herinneren dat deeltje 4 sticky gemaakt was in DIG. Kan een MODje dit topic ook sticky maken?
OT:
VLOOKUP in andere bestanden werkt alleen als dat bestand ook geopend is. N/A betekend nl. "not available" (niet beschikbaar). Je moet dus eerst dat bestand waarin je wilt zoeken openen en dan pas doet je VLOOKUP functie het.
OT:
VLOOKUP in andere bestanden werkt alleen als dat bestand ook geopend is. N/A betekend nl. "not available" (niet beschikbaar). Je moet dus eerst dat bestand waarin je wilt zoeken openen en dan pas doet je VLOOKUP functie het.
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
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
nm, het was indirect die aan het meuten was ipv die andere
't blijft wel stom dat het normaal wel werkt, en als je indirect gebruikt opeens niet meer.. Nu moet je dus of met replace gwn al die formules aanpassen, of steeds allebei de files opentrekken (die natuurlijk niet voor niets gesplitst zijn)
[ Bericht 71% gewijzigd door LoggedIn op 22-07-2008 10:19:51 ]
't blijft wel stom dat het normaal wel werkt, en als je indirect gebruikt opeens niet meer.. Nu moet je dus of met replace gwn al die formules aanpassen, of steeds allebei de files opentrekken (die natuurlijk niet voor niets gesplitst zijn)
[ Bericht 71% gewijzigd door LoggedIn op 22-07-2008 10:19:51 ]
Excel goeroes,
Ik wil van een tabel een grafiek laten maken in Excel, her en der in de tabel verspreid staan letters. Dit is het gevolg van de als functie die wordt gebruik om de waarden in de tabel te berekenen, als er een bepaalde waarde niet voorhande is komt er een letter te staan.
Het probleem is dat Excel de letter als een 0-waarde in de grafiek zet, daardoor ontstaan gekke sprongen, ik heb ook al geprobeerd in plaats van letter de cel leeg te laten, door "" in de cel te laten schijven ipv een letter, ook die komen als 0 in de grafiek te staan.
Kan ik excel zo instellen dat hij bij het maken van de grafiek de letters negeert?
Gafiektype is trouwens Spreiding.
Ik wil van een tabel een grafiek laten maken in Excel, her en der in de tabel verspreid staan letters. Dit is het gevolg van de als functie die wordt gebruik om de waarden in de tabel te berekenen, als er een bepaalde waarde niet voorhande is komt er een letter te staan.
Het probleem is dat Excel de letter als een 0-waarde in de grafiek zet, daardoor ontstaan gekke sprongen, ik heb ook al geprobeerd in plaats van letter de cel leeg te laten, door "" in de cel te laten schijven ipv een letter, ook die komen als 0 in de grafiek te staan.
Kan ik excel zo instellen dat hij bij het maken van de grafiek de letters negeert?
Gafiektype is trouwens Spreiding.
"We are all atheists about most of the gods that humanity has ever believed in. Some of us just go one god further." - Richard Dawkins
Je bedoelt via de ALS functie #N/A in de cel laten schrijven?quote:Op donderdag 24 juli 2008 12:52 schreef DaFan het volgende:
Maak er #N/A van dan slaat Excel ze over.
Dat werkt niet, ook dat geeft hij als een 0 in de grafiek weer.
In de nederlandse versie is het natuurlijk #N/B
Bedankt
[ Bericht 24% gewijzigd door DroogDok op 24-07-2008 13:07:49 ]
"We are all atheists about most of the gods that humanity has ever believed in. Some of us just go one god further." - Richard Dawkins
En kan ik met voorwaardelijk opmaak die #N/B waarden dan ook nog opmaken?
Versie NL 2002
Versie NL 2002
"We are all atheists about most of the gods that humanity has ever believed in. Some of us just go one god further." - Richard Dawkins
Heb een vraagje over conditional formatting.
Ik wil dus dat een hele rij gekleurd wordt aan hand van de uitslag van 2 formules in 2 cellen van die rij.
Kan iemand mij vertellen hoe dit moet en of die überhaupt mogelijk is.
Ik gebruik excel 2003
Alvast bedankt.
Edit: Of je drukt gewoon even op meer criteria
[ Bericht 29% gewijzigd door Martijn85 op 24-07-2008 16:58:56 ]
Ik wil dus dat een hele rij gekleurd wordt aan hand van de uitslag van 2 formules in 2 cellen van die rij.
Kan iemand mij vertellen hoe dit moet en of die überhaupt mogelijk is.
Ik gebruik excel 2003
Alvast bedankt.
Edit: Of je drukt gewoon even op meer criteria
[ Bericht 29% gewijzigd door Martijn85 op 24-07-2008 16:58:56 ]
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
