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.
Als je nog wat aanpassingen moet hebben kan je nog wel even terugkomen, maar eerst zelf proberen 
En het was eigenlijk simpeler dan ik dacht 
Geen probleem natuurlijk, succes ermee.
En het was eigenlijk simpeler dan ik dacht Geen probleem natuurlijk, succes ermee.
Ok, niet helemaal een code-probleem, maar een opmaak probleem
In een cel staat een tijd. Het totaal aantal uur wat ik gewerkt heb. Dit is dus meestal meer dan 24 als het gaat om een maand. Dat kan je opvangen door [u] te doen ipv u.
Alleen wil ik een aangepaste opmaak, die zoiets weergeeft:
dingen als
werken niet.
iemand anders een idee?
In een cel staat een tijd. Het totaal aantal uur wat ik gewerkt heb. Dit is dus meestal meer dan 24 als het gaat om een maand. Dat kan je opvangen door [u] te doen ipv u.
Alleen wil ik een aangepaste opmaak, die zoiets weergeeft:
| 1 |
dingen als
| 1 2 3 4 | ""&[u]&" uur en "&m&" minuten [u]" uur en "m" minuten &[u]&" uur en "&m&" minuten |
werken niet.
iemand anders een idee?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Volgens mij wil ik echt rare dingen 
Ik ben al een tijd opzoek, en vind wel kleine dingen, maar ik wil het volgende:
Stel ik heb een range van 4 cellen B1 C1 D1 E1. Wanneer ik in deze range B1 invul met data, wil ik dat de datum in A1 wordt opgeteld met 100 dagen. Verder kan C1 alleen worden ingevuld wanneer B1 ook is ingevuld. Is dit het geval, dan moet er 200 dagen bij A1 worden opgeteld. Dus excel moet kijken dat "als(twee cellen ingevuld) dan (tel 200 dagen bij A1). Zo verder bij D1 en E1, bij D1 moeten er al 2 zijn ingevuld en bij E1 3, met respectievelijk 300 en 400 dagen.
Verder, en dit is het moeilijke, moet Excel dus gaan snappen dat wanneer er in rij 1 een cel wordt veranderd, dat hij dan ook de "A" van rij 1 verandert. Wanneer het verhaal van boven opgaat voor B2, C2, D2 en E2 dan moet Excel dus snappen dat dan A2 moet worden veranderd.
Dit scheelt mij dan al gauw 800 checkboxen
Ik ben al een tijd opzoek, en vind wel kleine dingen, maar ik wil het volgende:Stel ik heb een range van 4 cellen B1 C1 D1 E1. Wanneer ik in deze range B1 invul met data, wil ik dat de datum in A1 wordt opgeteld met 100 dagen. Verder kan C1 alleen worden ingevuld wanneer B1 ook is ingevuld. Is dit het geval, dan moet er 200 dagen bij A1 worden opgeteld. Dus excel moet kijken dat "als(twee cellen ingevuld) dan (tel 200 dagen bij A1). Zo verder bij D1 en E1, bij D1 moeten er al 2 zijn ingevuld en bij E1 3, met respectievelijk 300 en 400 dagen.
Verder, en dit is het moeilijke, moet Excel dus gaan snappen dat wanneer er in rij 1 een cel wordt veranderd, dat hij dan ook de "A" van rij 1 verandert. Wanneer het verhaal van boven opgaat voor B2, C2, D2 en E2 dan moet Excel dus snappen dat dan A2 moet worden veranderd.
Dit scheelt mij dan al gauw 800 checkboxen
Kan wel, morgen op werk ok? Kan je wel nog even het volgende toelichten:
- Wat kolom A gaan doen op die rij als of B-C-D verandert?
- Kan je geen hulpkolom maken waar de aangepaste datum inkomt? DAt scheelt HEEL veel werk.
- Wat komt er in B1-E1 ?
- Wat kolom A gaan doen op die rij als of B-C-D verandert?
- Kan je geen hulpkolom maken waar de aangepaste datum inkomt? DAt scheelt HEEL veel werk.
- Wat komt er in B1-E1 ?
Je bent echt een heldquote:Op dinsdag 1 juli 2008 14:21 schreef DaFan het volgende:
Kan wel, morgen op werk ok? Kan je wel nog even het volgende toelichten:
- Wat kolom A gaan doen op die rij als of B-C-D verandert?
- Kan je geen hulpkolom maken waar de aangepaste datum inkomt? DAt scheelt HEEL veel werk.
- Wat komt er in B1-E1 ?
1) Kolom A (1 tm tot nu toe 180) zijn datums die ik dus met respectievelijk 100, 200, 300, 400 dagen wil verhogen.
2) Een hulpkolom is zeer zeker wel mogelijk (die hide ik dan gewoon)
3) Er komt in die kolommen een certificaatnummer en een datum.
Ik woon niet Nederland, mar Sydney dus ga zo slapen. Over 24 uur heb je je antwoord wel het is niet zo lastig (kan gewoon met formules).
Gister op het werk een en ander aangepast en het werkt geweldig. Op deze manier voorkom ik dat er twee afspraken of acties elkaar gaan kruisen. Dus nogmaals bedankt.quote:Op zondag 29 juni 2008 14:51 schreef DaFan het volgende:
Als je nog wat aanpassingen moet hebben kan je nog wel even terugkomen, maar eerst zelf proberen
Geen probleem natuurlijk, succes ermee.
Ik vond het al knap van je dat je om half 6 's morgens begint aan DirkH's probleemquote:Op dinsdag 1 juli 2008 14:32 schreef DaFan het volgende:
Ik woon niet Nederland, mar Sydney dus ga zo slapen. Over 24 uur heb je je antwoord wel het is niet zo lastig (kan gewoon met formules).
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Eerst qu63:
Als je uren in A1:A3 staan:
Range aanpassen naar je eigen range
Edit:
Nederlands:
[ Bericht 18% gewijzigd door DaFan op 02-07-2008 01:25:06 ]
Als je uren in A1:A3 staan:
| 1 |
Range aanpassen naar je eigen range
Edit:
Nederlands:
| 1 |
[ Bericht 18% gewijzigd door DaFan op 02-07-2008 01:25:06 ]
BierKoning:
A1 is je datum, B1 tot E1 zijn je cellen zoals beschreven, H1 is je hulpkolom en kan verplaatst/hide worden:
Formule voor A1:
Nederlands:
Data validation C1:
Custom -> Formule:
Idem voor D1 en E1 maar dan natuurlijk met C1 en D1.
A1 is je datum, B1 tot E1 zijn je cellen zoals beschreven, H1 is je hulpkolom en kan verplaatst/hide worden:
Formule voor A1:
| 1 |
Nederlands:
| 1 |
Data validation C1:
Custom -> Formule:
| 1 |
Idem voor D1 en E1 maar dan natuurlijk met C1 en D1.
DirkH:
Je kan je macro eventueel nog aanpassen als volgt:
Dan heb je ook geen hulpcellen meer nodig én je kan het nieuwe klantnummer overal in kolom A toevoegen, hij kijkt dus niet alleen naar de laatste cel (je kan met de huidige code nog iets verwijderen tussendoor en toevoegen, zonder dat er een foutmelding komt.
Disclaimer: Ik heb je oude code en sheet hier niet bij de hand, dus zou kunnen dat er een foutje in zit! (Of helemaal niet, hou het dan maar bij de oude Maak wel eerst een backup of kopie van je bestand voordat je dit probeert). We willen het niet ingewikkelder maken dan het al is
Je kan je macro eventueel nog aanpassen als volgt:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | If Target.Column <> iStatusColumn Then Exit Sub LastRowB = Sheets("Sheet2").Range("A65536").End(xlUp).Row NwKlantnummer = Cells(Target.Row, iStatusColumn).Value For i = 1 To LastRowB If Sheets("Sheet2").Range("A" & i).Value = NwKlantnummer Then Followup = Sheets("Sheet2").Range("B" & i).Value Datum = Sheets("Sheet2").Range("C" & i).Value MsgBox "Klantnummer al bekend in Sheet2!" & (Chr(13)) & (Chr(13)) & "Datum: " & Datum & (Chr(13)) & "Actie: " & Followup, vbOKOnly, "Melding" End If Next i End Sub |
Dan heb je ook geen hulpcellen meer nodig én je kan het nieuwe klantnummer overal in kolom A toevoegen, hij kijkt dus niet alleen naar de laatste cel (je kan met de huidige code nog iets verwijderen tussendoor en toevoegen, zonder dat er een foutmelding komt.
Disclaimer: Ik heb je oude code en sheet hier niet bij de hand, dus zou kunnen dat er een foutje in zit! (Of helemaal niet, hou het dan maar bij de oude
Maak wel eerst een backup of kopie van je bestand voordat je dit probeert). We willen het niet ingewikkelder maken dan het al is
Ok het werkt! Je code heb ik in zoverre aangepast dat ik " ; " ipv " , " heb, anders pakte Excel hem niet. Verder B2 C2 enz verandert in B1 C1 enzoquote:Op woensdag 2 juli 2008 01:21 schreef DaFan het volgende:
BierKoning:
A1 is je datum, B1 tot E1 zijn je cellen zoals beschreven, H1 is je hulpkolom en kan verplaatst/hide worden:
Formule voor A1:
[ code verwijderd ]
Nederlands:
[ code verwijderd ]
Data validation C1:
Custom -> Formule:
[ code verwijderd ]
Idem voor D1 en E1 maar dan natuurlijk met C1 en D1.
Nu werkt het zo prima, als ik ook maar iets invul in de cellen wordt A1 verhoogd. De hulpcel is trouwens ook ideaal omdat ik dan altijd de orginele startdatum behoud!
Nou is het enige wat ik eigenlijk nog mis, en waar ik nu het grote web naar aan het doorspitten ben, hoe ik zorg dat wanneer B1 niet ingevuld is, en C1 wel, dat er dan nog niks gebeurd met de waarde in A1.
Ik had een Nederlandse versie eronder gezet 
En ben ervanuit gegaan dat je headers hebt dus dat je begint op A2, maarja dat boeit niet zo.
Je kan testen of de waarde in de cellen een datum is met ISDATUM(). Probleem hier is dat je tegen het maximum van 7 IF-statements gaat aanlopen dus dat wordt lastig.
Als het goed is kan je C1 niet invullen als B1 niet ingevuld is toch?
En ben ervanuit gegaan dat je headers hebt dus dat je begint op A2, maarja dat boeit niet zo.Je kan testen of de waarde in de cellen een datum is met ISDATUM(). Probleem hier is dat je tegen het maximum van 7 IF-statements gaat aanlopen dus dat wordt lastig.
Als het goed is kan je C1 niet invullen als B1 niet ingevuld is toch?
Hm nou ik ga er ook vanuit dat ik een engelse versie heb hoor, alleen een combi misschien haha. Bij mij werkt dit iig prima:
Verder kan ik C2 (heb inderdaad nu headers, in mn eerste test nog niet) gewoon invullen zonder B2 ingevuld te hebben.
Hierbij is dan dus C1 --> Data Validation --> formula: =B2 <> ""
"" "" "" D1 --> Data Validation --> formula: =C2 <> ""
"" "" "" E1 --> Data Validation --> formula: =D2 <> ""
| 1 |
Verder kan ik C2 (heb inderdaad nu headers, in mn eerste test nog niet) gewoon invullen zonder B2 ingevuld te hebben.
Hierbij is dan dus C1 --> Data Validation --> formula: =B2 <> ""
"" "" "" D1 --> Data Validation --> formula: =C2 <> ""
"" "" "" E1 --> Data Validation --> formula: =D2 <> ""
Het is wel backwards compatible Als ik eerst E2 invul, dan telt ie braaf 400 op, als ik daarna B2/C2/D2 invul doet hij niks meer.
Het is alleen van belang dat de volgorde van B2 naar E2 doorloop. Ligt ook aan de gebruiker, maar een kleine backup is wel handig.
Als ik eerst E2 invul, dan telt ie braaf 400 op, als ik daarna B2/C2/D2 invul doet hij niks meer. Het is alleen van belang dat de volgorde van B2 naar E2 doorloop. Ligt ook aan de gebruiker, maar een kleine backup is wel handig.
zo kan het natuurlijk ookquote:Op woensdag 2 juli 2008 01:14 schreef DaFan het volgende:
Eerst qu63:
Als je uren in A1:A3 staan:
[ code verwijderd ]
Range aanpassen naar je eigen range
Edit:
Nederlands:
[ code verwijderd ]
Waarom nou die int(eger) eigenlijk?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
- Waarom de aparte rijen, nu haal je 1 en 2 door elkaarquote:Op woensdag 2 juli 2008 10:25 schreef BierKoning het volgende:
Verder kan ik C2 (heb inderdaad nu headers, in mn eerste test nog niet) gewoon invullen zonder B2 ingevuld te hebben.
Hierbij is dan dus C1 --> Data Validation --> formula: =B2 <> ""
"" "" "" D1 --> Data Validation --> formula: =C2 <> ""
"" "" "" E1 --> Data Validation --> formula: =D2 <> ""
- Bij mij werkt het prima, C2 kan niet ingevuld worden als ik als formule heb =B2<>""
Dat lijkt mij ook de bedoeling?quote:Op woensdag 2 juli 2008 10:35 schreef BierKoning het volgende:
Het is wel backwards compatible
Het is alleen van belang dat de volgorde van B2 naar E2 doorloop. Ligt ook aan de gebruiker, maar een kleine backup is wel handig.
Anders moet je de IF volgorde omdraaien, dus eerst B2 testen, dan naar E2.
INT rondt af naar het laagste hele getal (2.9 wordt 2). Hiermee weet je hoeveel dagen je hebt (en je dus maal 24 moet doen). Uren worden namelijk in delen van een dag weergegeven (zet je format maar eens op General ipv [h]:mm, dan kan je het zelf zienquote:Op woensdag 2 juli 2008 11:09 schreef qu63 het volgende:
[..]
zo kan het natuurlijk ook
Waarom nou die int(eger) eigenlijk?
Als ik het invul krijg ik alleen de code te zien, niet het antwoord.quote:Op woensdag 2 juli 2008 01:14 schreef DaFan het volgende:
Eerst qu63:
Als je uren in A1:A3 staan:
[ code verwijderd ]
Range aanpassen naar je eigen range
Edit:
Nederlands:
[ code verwijderd ]
Als ik em opsplits in
=(INTEGER(SOM(F2:F34))*24)
&
=UUR(SOM(F2:F34))
Krijg ik bij de eerste 0, en bij de 2e 5 als antwoord. Tel ik ze bij elkaar op
=(INTEGER(SOM(F2:F34))*24)+UUR(SOM(F2:F34))
Dan wordt het 0
Als antwoord moet er komen 5 uur en 30 minuten
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Je krijgt niet als antwoord 0, je krijgt 0:00. Format hem maar eens als General, dan krijg je als antwoord 5, zoals het hoort.
ja hoi
Ik heb een excel-sheet met daarin 2 kolommen met datums. Echter: deze datums hebben niet allemaal dezelfde opmaak.
Er zijn cellen met dd-mm-yyyy en er zijn cellen met mm-dd-yyyy. Voor de verwerking is het van belang dat ze wel allemaal dezelfde opmaak hebben.
De celeigenschappen staan op dd-mm-yyyy, maar toch blijven er cellen "verkeerd" staan.
Hoe kan ik dit nu aanpassen, zonder handmatig al die cellen te gaan aanpassen?
(excel 2003, Engelstalig)
Ik heb een excel-sheet met daarin 2 kolommen met datums. Echter: deze datums hebben niet allemaal dezelfde opmaak.
Er zijn cellen met dd-mm-yyyy en er zijn cellen met mm-dd-yyyy. Voor de verwerking is het van belang dat ze wel allemaal dezelfde opmaak hebben.
De celeigenschappen staan op dd-mm-yyyy, maar toch blijven er cellen "verkeerd" staan.
Hoe kan ik dit nu aanpassen, zonder handmatig al die cellen te gaan aanpassen?
(excel 2003, Engelstalig)
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Ik werk met grote databestanden en gebruik veel filters, hoe kopieer je alleen de gefilterde data 
. Soms lukt 't wel en soms niet (als 't niet lukt kopieert ie dus alle data, wat niet de bedoeling is ). In de cel linksboven onder 't filter gaan staan en dan ctrl+shift naar beneden en naar rechts werkt niet 
, alle rijen selecteren ook niet . Excel 2007.
. Soms lukt 't wel en soms niet (als 't niet lukt kopieert ie dus alle data, wat niet de bedoeling is ). In de cel linksboven onder 't filter gaan staan en dan ctrl+shift naar beneden en naar rechts werkt niet , alle rijen selecteren ook niet . Excel 2007.
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+
Ik heb te maken met kentekens van auto's. Is er een mogelijkheid om de ingevoerde waarde (bijv. 12rfdg) automatisch om te zetten in één met streepjes en hoofdletters (dus 12-RF-DG).
Daarnaast is het nieuwe kenteken enige tijd geleden geïntroduceerd (bijv. 43gbh3) welke omgezet moeten worden naar, in dit voorbeeld, 43-GBH-3.
De opmaak moet dus aan een voorwaarde voldoen (letters en cijfers gescheiden) en omgezet worden in hoofdletters met streepjes ertussen.
Degene die een oplossing weet, ben ik erg dankbaar.
Daarnaast is het nieuwe kenteken enige tijd geleden geïntroduceerd (bijv. 43gbh3) welke omgezet moeten worden naar, in dit voorbeeld, 43-GBH-3.
De opmaak moet dus aan een voorwaarde voldoen (letters en cijfers gescheiden) en omgezet worden in hoofdletters met streepjes ertussen.
Degene die een oplossing weet, ben ik erg dankbaar.
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.
Voor de andere 2 hierboven, ik heb even geen idee, morgen
ManAtWork:
Als je Nederlandse versie hebt, kan je hier kijken voor de vertaling:
http://dolf.trieschnigg.nl/excel/excel.html
Op welke manier kan je onderscheiden of een kenteken nieuw is of oud?
ManAtWork:
| 1 |
Als je Nederlandse versie hebt, kan je hier kijken voor de vertaling:
http://dolf.trieschnigg.nl/excel/excel.html
| 1 |
Op welke manier kan je onderscheiden of een kenteken nieuw is of oud?
Bedankt. Dit betekent echter dat er een hulpcel (A1 in dit voorbeeld) gebruikt moet worden, of zie ik dat verkeerd?quote:Op donderdag 3 juli 2008 12:24 schreef DaFan het volgende:
Voor de andere 2 hierboven, ik heb even geen idee, morgen
ManAtWork:
[ code verwijderd ]
Op welke manier kan je onderscheiden of een kenteken nieuw is of oud?
De bedoeling is dat na het invullen van een kenteken in cel (bijv. B3) deze automatisch opgemaakt wordt met de juiste indeling. Ik weet het, het is veel gevraagd.
In principe heb ik twee 'soorten' kentekenreeksen.
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.
Ja A1 is de cel waar je de informatie uithaalt, tis vrij lastig om een hele kolom elke keer aan te passen (het is te doen, kan wel voor je maken maar ben nu druk). Welke kolom komt de informatie in?
Waar komt de informatie vandaan dat je geen hulpkolom kan gebruiken? Je kan natuurlijk kolom IV (bv) gebruiken om je originele informatie in te plakken en dan de kolom waar je het 'goede' kenteken in wilt deze formule in zet.
Bij mn andere vraag bedoelde ik meer anders, hoe kan iemand het verschil herkennen tussen 11bbcc en 11bbb2? Is het ALTIJD 2 cijfers, 3 letters, 1 cijfer? De uiteindelijke opmaak is een fluitje van een cent, maar het gaat om de originele string hoe je daarbij kan onderscheiden of hij oud of nieuw is.
Waar komt de informatie vandaan dat je geen hulpkolom kan gebruiken? Je kan natuurlijk kolom IV (bv) gebruiken om je originele informatie in te plakken en dan de kolom waar je het 'goede' kenteken in wilt deze formule in zet.
Bij mn andere vraag bedoelde ik meer anders, hoe kan iemand het verschil herkennen tussen 11bbcc en 11bbb2? Is het ALTIJD 2 cijfers, 3 letters, 1 cijfer? De uiteindelijke opmaak is een fluitje van een cent, maar het gaat om de originele string hoe je daarbij kan onderscheiden of hij oud of nieuw is.
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?
