Aangezien ik vaker losse topics heb langs zien komen, en zelf heb aangemaakt leek het me 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 : De help functie van excel kan je echt een eind op weg helpen ! (F1)
Ik wil graag dat als er in kolom P een bepaalde status staat, dat dan de hele regel een nieuwe kleur krijgt:
A: geel
AF: rood
O: wit (zoals ie nu staat)
P: groen
NA: rood
I: lichtblauw
Ik heb eens gekeken met unconditional formatting maar dat lukte niet echt.
Dit zal toch met een macro moeten dacht ik zo. NU ben ik daar niet echt een ster in.
Iemand een idee?
quote:/offtopicOp donderdag 11 januari 2007 09:24 schreef RayMania het volgende:
Handig topic, heb zelf ook af en toe wat vragen over Excel.
tsja .. zat er ineens aan te denken.. die losse topics verzanden vaak ook in weinig en is ook steeds een beetje vervuiling. Kan volgens mij prima in een centraal topic
/offtopic
[ Bericht 7% gewijzigd door Frollo op 11-01-2007 12:17:03 ]
quote:Kan best met voorwaardelijke opmaak hoor. Alleen moet je dan bij het opgeven van de voorwaarde niet 'Celwaarde is' maar 'Formule is' opgeven.Op donderdag 11 januari 2007 09:23 schreef realbase het volgende:
Goed TS Start zelf ...
Ik wil graag dat als er in kolom P een bepaalde status staat, dat dan de hele regel een nieuwe kleur krijgt:
A: geel
AF: rood
O: wit (zoals ie nu staat)
P: groen
NA: rood
I: lichtblauw
Ik heb eens gekeken met unconditional formatting maar dat lukte niet echt.
Dit zal toch met een macro moeten dacht ik zo. NU ben ik daar niet echt een ster in.
Iemand een idee?
Ik zal ff een plaatje maken, brb.
Ik zit ook regelmatig vast met excel!
Dit invullen in (bijvoorbeeld) A1 en dan de opmaak kopiëren naar alle andere cellen die ook van kleur moeten veranderen als in kolom P de tekst "een bepaalde status" staat.
Op die manier wordt het toch een macrotje ben ik bang.
| 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 | ' ' Macro2 Macro ' Macro recorded 11-1-2007 by Deetch ' ' Range("A1").Select Do Until ActiveCell.Value = "" If ActiveCell.Offset(0, 4).Value = "A" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 6 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "AF" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 3 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "O" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 2 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "P" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 4 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "I" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 28 ActiveCell.Offset(1, 0).Select ElseIf ActiveCell.Offset(0, 4).Value = "NA" Then ActiveCell.EntireRow.Select Selection.Font.ColorIndex = 3 ActiveCell.Offset(1, 0).Select Else ActiveCell.Offset(1, 0).Select End If Loop End Sub |
Uitleg:
Do until betekend dat de macro alle regels bij langs gaat zolang de waarde in de active cell (kolom A) niet leeg is.
activecell is de geactiveerde cel (in eerste instantie A1)
activecell.offset(0,4) betekend vier kolommen opzij ten opzichte van de actieve cel
activecell.offset(1,0).select beteknd de cel onder de active cel selecteren (dus volgende cel in kolom A)
de colorindex is de kleurcode (zie onder)
[ Bericht 5% gewijzigd door Deetch op 11-01-2007 10:38:39 (code getest) ]
quote:Ooooow, ik dacht dat hij met A, AF, O enz. de kolommen bedoelde waarop de voorwaardelijke opmaak van toepassing was. Maar het zijn dus de verschillende statussen die kolom P kunnen komen?Op donderdag 11 januari 2007 10:25 schreef Deetch het volgende:
Je kunt zo echter maar 3 conditional formats maken en TS heeft er 6 nodig (eigenlijk 5 want AF en NA zijn beide rood.
quote:juistOp donderdag 11 januari 2007 10:28 schreef Frollo het volgende:
[..]
Ooooow, ik dacht dat hij met A, AF, O enz. de kolommen bedoelde waarop de voorwaardelijke opmaak van toepassing was. Maar het zijn dus de verschillende statussen die kolom P kunnen komen?
"waardes "
quote:Jawel dat kan met een macro. Hierin ga je de tekststring karakter voor karakter bij langs en bepaal je of het een integer danwel tekst is. indien getal dan deze onthouden en naar volgende karakter gaan. Als dit ook getal dan het eerste getal vermenigvuldigen met 10 en het tweede getal erbij op tellen. Uiteindelijk strip je zo alle getallen uit de tekststring.Op donderdag 11 januari 2007 10:14 schreef Autoreply het volgende:Kan ik uit een willekeurige combinatie tekst waar één getal in staat dit geval isoleren en als "number" ergens anders neerfietsen? Kan je alles zo afronden dat het 2 of 3 cijfers significant is? Nu pakt ie alleen het aantal getallen achter de 0...
Ik ga wel ff prutsen, brb
Afronden op significante cijfers: http://j-walk.com/ss/excel/usertips/tip032.htm
quote:Dank, ik ga hier 's ff naar kijkenOp donderdag 11 januari 2007 10:44 schreef Deetch het volgende:
[..]
Jawel dat kan met een macro. Hierin ga je de tekststring karakter voor karakter bij langs en bepaal je of het een integer danwel tekst is. indien getal dan deze onthouden en naar volgende karakter gaan. Als dit ook getal dan het eerste getal vermenigvuldigen met 10 en het tweede getal erbij op tellen. Uiteindelijk strip je zo alle getallen uit de tekststring.
Ik ga wel ff prutsen, brb
Afronden op significante cijfers: http://j-walk.com/ss/excel/usertips/tip032.htm
quote:het lijkt me makkelijker alle cijfers in een andere string te zetten en deze dan te converteren naar integerOp donderdag 11 januari 2007 10:44 schreef Deetch het volgende:
[..]
Jawel dat kan met een macro. Hierin ga je de tekststring karakter voor karakter bij langs en bepaal je of het een integer danwel tekst is. indien getal dan deze onthouden en naar volgende karakter gaan. Als dit ook getal dan het eerste getal vermenigvuldigen met 10 en het tweede getal erbij op tellen. Uiteindelijk strip je zo alle getallen uit de tekststring.
Ik ga wel ff prutsen, brb
Afronden op significante cijfers: http://j-walk.com/ss/excel/usertips/tip032.htm
Handleiding:
Selecteer de cel waarin de te filteren tekst staat.
Start de macro
Beschrijving:
Onderstaande macro verzamelt alle getallen in een tekst achter elkaar en plaatst de getallen naast de geselecteerde cel als tekst (met eventuele voorloopnullen als het eerste getal in de tekst een 0 is) en nog een kolom verder als getal (zonder voorloopnullen)
Voorbeeld:
Naast "ri08rt6jdk1678" komt 0861678 en 861678
| 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 | 'by Deetch linestring = ActiveCell.Value lengthstring = Len(linestring) savestring = "" For i = 1 To lengthstring characterstring = Mid(linestring, i, 1) If characterstring = "0" Then savestring = savestring + characterstring ElseIf characterstring = "1" Then savestring = savestring + characterstring ElseIf characterstring = "2" Then savestring = savestring + characterstring ElseIf characterstring = "3" Then savestring = savestring + characterstring ElseIf characterstring = "4" Then savestring = savestring + characterstring ElseIf characterstring = "5" Then savestring = savestring + characterstring ElseIf characterstring = "6" Then savestring = savestring + characterstring ElseIf characterstring = "7" Then savestring = savestring + characterstring ElseIf characterstring = "8" Then savestring = savestring + characterstring ElseIf characterstring = "9" Then savestring = savestring + characterstring End If Next i ActiveCell.Offset(0, 1).NumberFormat = "@" ActiveCell.Offset(0, 1).Value = savestring ActiveCell.Offset(0, 2).NumberFormat = "0" ActiveCell.Offset(0, 2).Value = savestring End Sub |
quote:Ik weet niet veel van Excel. Wel genoeg om simpele vragen te beantwoorden. En moeilijke vragen kan ik hier dan mooi kwijt.Op donderdag 11 januari 2007 09:29 schreef Frollo het volgende:
Volgens mij weet ik best wel iets van Excel en hoop dan ook in dit topic héél veel Fokk!ertjes blij te maken!
Oftewel TVP, weet ook redelijk wat van Excel
[ Bericht 57% gewijzigd door Ruud op 11-01-2007 12:01:29 (foutje) ]
quote:U heldOp donderdag 11 januari 2007 11:11 schreef Deetch het volgende:
quote:Het lijkt wel vrijdag op me werk en dit soort vraagjes zijn handig om mijn VB skills af en toe te testen.
quote:MOet ik nou nog wat aanpassen in die macro? Want zo werktie nietOp donderdag 11 januari 2007 10:25 schreef Deetch het volgende:
Je kunt zo echter maar 3 conditional formats maken en TS heeft er 6 nodig (eigenlijk 5 want AF en NA zijn beide rood.
Op die manier wordt het toch een macrotje ben ik bang.
[ code verwijderd ]
Uitleg:
Do until betekend dat de macro alle regels bij langs gaat zolang de waarde in de active cell (kolom A) niet leeg is.
activecell is de geactiveerde cel (in eerste instantie A1)
activecell.offset(0,4) betekend vier kolommen opzij ten opzichte van de actieve cel
activecell.offset(1,0).select beteknd de cel onder de active cel selecteren (dus volgende cel in kolom A)
de colorindex is de kleurcode (zie onder)
[afbeelding]
ik heb bijv in op line 1 : A1 = naam : B1 = functie C1= klant D1 = datum in dienst etc etc.. en in P geef ik de status weer dmv die codes ( A, AF , NA etc ) als ik dan A intik moet die hele ene regel een kleur krijgen ( zoals ik zei in mn eerste post) Als ik juow macro draai zie ik niets gebeuren
Dat had ik ook al uitgelegd bij de uitleg dacht ik, maar misschien was dat niet duidelijk genoeg.
je moet wel de macro elke keer runnen als je je spreadsheet aanvult en in kolom A mogen geen lege cellen voorkomen tot onder het einde van je data.
A: automatisch kan doornummeren
B: maar dan op een speciale manier nl eerste factuur van jan 2007 is dan 0701001 en eerste feb is 0702001 etc
Of is dit te ingewikkeld?
quote:Thnx,Op donderdag 11 januari 2007 13:30 schreef Deetch het volgende:
je moet de activecell.offset(0,4) aanpassen naar (0,15) zodat de macro kijkt naar de waarde in kolom P ipv E (zoals de voorbeeld macro).
Dat had ik ook al uitgelegd bij de uitleg dacht ik, maar misschien was dat niet duidelijk genoeg.
je moet wel de macro elke keer runnen als je je spreadsheet aanvult en in kolom A mogen geen lege cellen voorkomen tot onder het einde van je data.
Kolom A is altijd vol ( met een nummer)
if ActiveCell.Offset(0, 16).Value = "A" Then
heb ik er van gemaakt
ik run hem.. active.cell zie je schieten naar eerste lege cel in kolom A ( regel 15 in mijn geval) dus hij loopt wel maar hij kleurt nie
0=A, 1=B, 2=C, 3=D, 4=E, 5=F, 6=G en 15 is dus P
ik kan niet tellen .. my bad het werkt !! thnx
Als ik ipv de tekst kleur het veld wil laten kleuren? kwestie van aanpassing van de kleurcode ?
| 1 |
vervangen door
| 1 2 3 4 | .ColorIndex = 6 .Pattern = xlSolid End With |
de colorindexwaarde is alleen voor de kleur zelf
quote:Nee dit varieert dus blijft handmatigOp donderdag 11 januari 2007 13:36 schreef Deetch het volgende:
Dat ligt eraan of de nummering van te voren bekend is en constant. Dus als het altijd 10 facturen per maand zijn dan kan dat redelijk eenvoudig. Als het aantal facturen per periode niet contant is wordt het lastig en kun je ze beter gewoon handmatig inkloppen.
Jammer maar bedankt
quote:Dat denk ik wel, met database programma's ben je iets flexibeler in dit soort zaken maar daar weet ik niet zoveel van af.Op donderdag 11 januari 2007 15:47 schreef mirelia het volgende:
[..]
Nee dit varieert dus blijft handmatig
Jammer maar bedankt
quote:Ik denk wel dat dit kan, er van uitgaande dat je in dezelfde regel als het factuurnummer ook wel ergens de datum van de factuur hebt staan en dat ze in chronologische volgorde staan.Op donderdag 11 januari 2007 13:32 schreef mirelia het volgende:
Iemand een idee hoe ik op een factuur:
A: automatisch kan doornummeren
B: maar dan op een speciale manier nl eerste factuur van jan 2007 is dan 0701001 en eerste feb is 0702001 etc
Of is dit te ingewikkeld?
Ik ben even knutselen, momentje.
Als de datum in kolom A staat, en het toe te wijzen factuurnr. ernaast in kolom B, dan kun je de onderstaande formule gebruiken.
=ALS(MAAND(A2)=MAAND(A1);B1+1;ALS(MAAND(A1)=12;(GEHEEL(B1/1000)+89)*1000+1;(GEHEEL(B1/1000)+1)*1000+1))
screenshotje
Ik bedoelde de factuurnummers OP de factuur
Dus stel dat de datum in cel G14 staat en het factuurnummer in cel F14, hoe zou de formule dan zijn?
en zou het wel werken zo??
quote:Alleen als er een referentie is naar het nummer van de voorgaande factuur. Excel is niet in staat om zelf te verzinnen de hoveelste factuur van de maand het is.Op donderdag 11 januari 2007 18:23 schreef mirelia het volgende:
Er word elke maand wel een factuur gemaakt maar ik bedoelde het toch anders denk ik
Ik bedoelde de factuurnummers OP de factuur
Dus stel dat de datum in cel G14 staat en het factuurnummer in cel F14, hoe zou de formule dan zijn?
en zou het wel werken zo??
quote:Ja en dat word waarschijnlijk moeilijkOp donderdag 11 januari 2007 18:32 schreef hooibaal het volgende:
[..]
Alleen als er een referentie is naar het nummer van de voorgaande factuur. Excel is niet in staat om zelf te verzinnen de hoveelste factuur van de maand het is.
quote:nieuwe kolom met volgende formule maken. uitgegaan van cel G1 als datum en cel F1 als factuurnummerOp donderdag 11 januari 2007 18:23 schreef mirelia het volgende:
Er word elke maand wel een factuur gemaakt maar ik bedoelde het toch anders denk ik
Ik bedoelde de factuurnummers OP de factuur
Dus stel dat de datum in cel G14 staat en het factuurnummer in cel F14, hoe zou de formule dan zijn?
en zou het wel werken zo??
=RIGHT(YEAR(G1);2)&IF(MONTH(G1)<10;0;"")&MONTH(G1)&IF(F1<10;"00";(IF(F1<100;"0";"")))&F1
of in nederlands
=RECHTS(JAAR(G1);2)&ALS(MAAND(G1)<10;0;"")&MAAND(G1)&ALS(F1<10;"00";(ALS(F1<100;"0";"")))&F1
quote:Het is de leeftijd moet je maar denkenOp vrijdag 12 januari 2007 08:50 schreef realbase het volgende:
goh.. al jaren op fok.. en pas mn eerste nuttige topic
quote:=100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1Op vrijdag 12 januari 2007 09:46 schreef Deetch het volgende:
[..]
nieuwe kolom met volgende formule maken. uitgegaan van cel G1 als datum en cel F1 als factuurnummer
=RIGHT(YEAR(G1);2)&IF(MONTH(G1)<10;0;"")&MONTH(G1)&IF(F1<10;"00";(IF(F1<100;"0";"")))&F1
of in nederlands
=RECHTS(JAAR(G1);2)&ALS(MAAND(G1)<10;0;"")&MAAND(G1)&ALS(F1<10;"00";(ALS(F1<100;"0";"")))&F1
Is korter en vermijd het 'trage' gebruik van ALS-lussen.
De vraag is, hoe kom je aan de informatie uit F1, 'de hoeveelste factuur van de maand' dus, en die zul je vermoedelijk toch handmatig moeten invoeren...
=ALS(REST(JAAR(G1);100)<10;"0"&100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1;100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1)
quote:Niet nodig. Dit kun je opvangen door de celeigenschappen aan te passen (zie het screenshot eerder in dit topic)Op vrijdag 12 januari 2007 12:55 schreef Deetch het volgende:
elegante oplossing, je mist alleen de voorloopnul als het jaar onder 2010 is. Toch nog een ALS statement nodig hiervoor.
=ALS(REST(JAAR(G1);100)<10;"0"&100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1;100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1)
Kies Celeigenschappen, aangepast en vul in '0000000'. Dan maakt ie van het getal in de cel automatisch een getal van 7 cijfers. '1' ziet er dan uit als 0000001, en 701001 (eerste nota van 2007) als 0701001.
Maar dat zal aan mij liggen
Ik heb het stukje uit de factuur waar het om gaat even in een leeg blad gepasted omdat ik niet al mijn bedrijfsgegevens op inet wil gooien
Het is een heel compleet systeem namelijk
Test staat hier:
www.xs4all.nl/~mirelia/test2.xls
[ Bericht 4% gewijzigd door mirelia op 12-01-2007 14:40:58 ]
Ik denk dat je het beste de factuurnummers handmatig kunt intikken. Wil je dat toch écht niet, dan zul je aan je formulier een cel moeten toevoegen waarin je het nummer van de factuur in die maand intypt. Iets handmatig intypen zul je dus toch moeten doen, vrees ik, of je moet e.e.a. wel heel grondig in de steigers gaan zetten.
Stel dat je in cel Q37 het bewuste nummer gaat zetten, dan moet je in cel J1 intikken:
=100000*REST(JAAR(J2)/100)+1000*MAAND(J2)+$Q$37.
Maar het biedt weinig voordeel, lijkt me.
En aangezien je de datum van de factuur óók door Excel laat genereren d.m.v. =NU() heb je een probleem als je je factuur opslaat en de volgende dag weer opent (of erger: doormailt aan je klant, die het zootje eens per maand verwerkt). Je zult zien dat dan niet alleen de datum van de factuur is veranderd (wat ook al nooit de bedoeling kan zijn, lijkt me...) maar met een beetje pech ook nog eens het factuurnummer!!
Alleen nu moet ik naar een apart tabje waar mijn facturen staan voor de rest van de boekhouding en daar kijken wat het laatste nummer was.
Kijk het is 5 sec werk hoor maar ik dacht als het makkelijker kan dan is het leuk
Wij maken van een factuur altijd een PDF en die word bewaard en geprint en evt gemailed
Dan kan er niets met ons systeem fout gaan
Maar evengoed beiden bedankt voor de hulp
Ik had hier: [Excel] HELP, hoe zet ik dit in VB? een topic geopend, kan iemand mij hiermee helpen?
Ik ben zelf een voorstander van dat tweede, omdat je dan ook nog allerlei andere excel trucjes kan gebruiken zoals validatielijsten e.d. Om duidelijk te krijgen wat je wil heb ik een voorbeeldje gemaakt: www.snirc.nl/extra/voorbeeld-fok1.xls
voorbeeld:
01
02
03
==
14
15
etc...
Volgens mij doe je dat met getal-> aangepast--> 000
Maar ik ben ook een redelijke leek
quote:Een aangepaste getalnotatie maken met het aantal cijfers dat je wilt, bijvoorbeeld '00' of '000'.Op zondag 14 januari 2007 15:36 schreef PiRANiA het volgende:
Hoe zorg ik er voor dat in Excel de getallen die ik typ altijd 3 tekens hebben?
voorbeeld:
01
02
03
==
14
15
etc...
De witte vlakken die ik gemaakt heb, daar moet de tekst staan die in het andere topic staan.
quote:http://www.accountingweb.nl/cgi-bin/item.cgi?id=84613&d=101Op zondag 14 januari 2007 15:36 schreef PiRANiA het volgende:
Hoe zorg ik er voor dat in Excel de getallen die ik typ altijd 3 tekens hebben?
voorbeeld:
01
02
03
==
14
15
etc...
Getallen lager dan zes, wil ik rood hebben, hoe doe ik dat?
-edit- Het zal ongeveer zo iets zijn:
¤ #.##0,00_-;¤ #.##0,00-
maar dan zonder eurotekens, en bij waarden lager dan zes, niet bij lager dan 0
quote:das toch gewoon "plakken speciaal" in Word en dan "als figuur", of bedoel je meerdere tabbladen ?Op zondag 14 januari 2007 16:23 schreef Isegrim het volgende:
Kun je een Excel-bestand in zijn geheel invoegen in een Word-bestand? Het lukte mij alleen maar door het kopiëren van tabellen, maar ik wilde eigenlijk alle tabellen tegelijk als een soort 'plaatje' invoegen in een Word-bestand.
quote:menu opmaak->voorwaardelijke opmaakOp zondag 14 januari 2007 18:54 schreef PiRANiA het volgende:
Dan een tweede vraag:
Getallen lager dan zes, wil ik rood hebben, hoe doe ik dat?
-edit- Het zal ongeveer zo iets zijn:
¤ #.##0,00_-;¤ #.##0,00-
maar dan zonder eurotekens, en bij waarden lager dan zes, niet bij lager dan 0
gebruik wijst zichzelf
quote:GeluktOp zondag 14 januari 2007 19:09 schreef ralfie het volgende:
[..]
menu opmaak->voorwaardelijke opmaak
gebruik wijst zichzelf
quote:Nee, gewoon 1 tabblad, maar ik was aan het klooien met 'Insert - File'. Maar dit zal het wel zijn dan, bedankt.Op zondag 14 januari 2007 19:04 schreef manny het volgende:
[..]
das toch gewoon "plakken speciaal" in Word en dan "als figuur", of bedoel je meerdere tabbladen ?
quote:In visual basic editor naar het formulier gaan en dan view object. Vervolgens kun je de naam van het tekstvak lezen (rechts klikken op tekstvak en dan properties).Op zondag 14 januari 2007 16:00 schreef Chav het volgende:
Het moet zo worden:
[afbeelding]
De witte vlakken die ik gemaakt heb, daar moet de tekst staan die in het andere topic staan.
Stel dat je formulier "formulier" heet en het tekstlabel heet "label" dan kun je (als ik het mij goed herinner) de tekst uit een cel als volgt aan dat label koppelen:
formulier.label.caption = verwijzing naar cel of variabele waarin de celwaarde al is opgeslagen
uitgaande van volgende gegevens:
formuliernaam = formulier
werkblad waar gegevens voor de labels staat = labelgegevens
label tekstvaknaam in formulier = label1 tm label7 (op basis van de witte vlakken in je plaatje)
celverwijzingen voor de teksten van label1 tm label 7 = cel A2, B2, .. , G2
werkblad waarin het formulier moet verschijnen = uitvoer
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | waarde1 = Range("A2").value waarde2 = Range("B2").value ****** idem voor waarde3 tm 7 ****** Sheets("uitvoer").activate load formulier formulier.label1.Caption = waarde1 formulier.label2.Caption = waarde2 ****** idem voor label3 tm 7 ****** formulier.show |
De rest moet je zelf maar uitzoeken met de help functie die in visual basic zit tenzij je nog gerichte vragen hebt.
| 1 2 3 4 | TextBox1.Value = Sheet1.Range("A1") 'etc... End Sub |
deze wordt uigevoerd zodra je het formulier laadt
Ik wil graag dat ik in excel een datum invul in B3 volgens ddmmjjjj en dat er dan automatisch dd-mm-jjjj komt te staan. En dan komt 't: vervolgens moet ik er mee kunnen werken als een datumwaarde. Dus als ik in cel B4 zet: =ALS(B3>DATUMWAARDE("31-12-1947");ja;nee) moet er vervolgens ja of nee staan en niet #WAARDE zoals ik het nu heb
Anyone??Komma's ipv puntkomma's dus ook. In de Engelse versie tenminste wel.
@meeldraad: dat kan niet in een keer, wel met een tussencel
Als je de datum in cel C9 invoert:
| 1 |
die andere functie moet je nog "" om ja en nee zetten, aldus
| 1 |
als je de eerste formule in F16 heb gezet
mocht je deze datum nergens anders nodig hebben, kun je het ook in 1 keer doen
| 1 |
EDIT: of wat arcee zegt
quote:ach, 't was gratis
Het enige wat die macro feitelijk moet doen is die cel als datum aanmerken en er streepjes zetten als ze er nog niet staan, staan ze er wel, dan moet ie ze laten staan en er geen rare dingen meedoen. Iets zegt me dat dit met een simpele macro moet kunnen. Maar aangezien ik daar helemaal niet in thuis ben, kan ik ook wel voorgelogen worden...
Dat werkt niet?
Je kunt wel rechtstreeks met die datum in B3 werken, hoor. Daar heb je niet die tussenstap voor nodig.
quote:Dat moet dd-mm-jjjj zijn, niet die nullen.Op dinsdag 16 januari 2007 22:02 schreef Meeldraad het volgende:
Oké, via Celeigenschappen => aangepast => 00-00-0000
Voor wie het wil uitproberen zet ik hieronder twee bewerkingen van cellen die uit m'n sheet komen:
B3 => celeigenschappen => aangepast => 00-00-0000
B4 =>
| 1 |
Om automatisch streepjes te krijgen in B3 als je 31121941 intypt, moet in elke rekencel waar een datumvergelijking komt, B3 vervangen worden door: DATUMWAARDE(TEKST.SAMENVOEGEN(LINKS(B3;2);"-";DEEL(B3;3;2);"-";RECHTS(B3;4))). Dus dan krijg je
B4 =>
| 1 |
Maar stel dan dat je 731121941 invoert per ongeluk dan krijg je wel een antwoord in de rekencel, terwijl de datum niet juist is. Dit is ook weer niet de bedoeling, dat leidt tot werken met foutieve informatie. (Overigens nu ik het nog een keer probeer krijg ik wel een foutmelding wat in dit geval wenselijk is, zodat je niet met die foutieve info doorwerkt). En als je er al wél gelijk streepjes tussen typt, snapt ie er weer niks van. Maar goed, op zich werkt ie zo wel enigszins, maar hier moet toch een elegantere oplossing voor zijn...
Dus bijvoorbeeld vandaag invoeren als 1/17/2007 en dat Excel 't dan afbeeldt als 17-01-2007 door dd-mm-jjjj bij celeigenschappen in te vullen.
Dus niét 17-01-2007 intypen, want dan maakt Excel er een tekst-type van.
[ Bericht 0% gewijzigd door Arcee op 17-01-2007 01:15:24 ]
Dit zou 't toch moeten zijn. In de linker kolom een rij willekeurige datums die als datum zijn ingevoerd en als dd-mm-jjjj worden afgebeeld. In de tweede kolom de formule zoals ik 'm al een paar keer heb genoemd (deze is alleen in het Engels). Geen tussencellen met extra formules nodig dus.
quote:Hij wil het juist zonder streepjes invoeren, ik denk dat daar het probleem zit.Op woensdag 17 januari 2007 01:26 schreef Arcee het volgende:
Of wil je het per se ook met streepjes in kunnen voeren?
Want stel dat ik '112007' invoer, hoe moet Excel dan weten of ik a) 1 januari 2007 bedoel, b) een datum in november 2007 waarvan ik de dag vergeten ben in te voeren, of c) een elfde dag ergens in 2007 waarvan ik de maand vergeten ben?
=DATE(MOD(B3;10000);((MOD(B3;1000000)-MOD(B3;10000))/10000);TRUNC(B3;-6)/1000000)
of in het nederlands (volgens http://cherbe.free.fr/traduc_fonctions_xl97.html)
=DATUM(REST(B3;10000);((REST(B3;1000000)-REST(B3;10000))/10000);GEHEEL(B3;-6)/1000000)
Vervolgens de kolom ernaast de functie
=ALS(C3>DATUM(1947;12;31);"ja";"nee")
Het kan zijn dat ; vervangen moet worden door , maar dat verschilt per taal wat trouwens de grootste stommiteit is die MS ooit heeft begaan, net als het vertalen van alle functies in de spreadsheet.
quote:Het gekke is dat als je een bestand tussen verschillende taalversies uitwisselt, dus bijvoorbeeld in een Engelse Excel een bestand maken en in een Nederlandse Excel weer inlezen, dat de vertaling van de functies en de leestekens gewoon goed gaat.Op woensdag 17 januari 2007 10:17 schreef Deetch het volgende:
dat verschilt per taal wat trouwens de grootste stommiteit is die MS ooit heeft begaan, net als het vertalen van alle functies.
Hij KAN het dus wel! Maar waarom kan ik dan in mijn Nederlandse Excel niet gewoon meteen =SUM(A1:B1) intypen als ik dat zou willen?
Dan moet je echter de formule in C3 ook aanpassen naar:
=DATUM(REST(WAARDE(B3);10000);((REST(WAARDE(B3);1000000)-REST(WAARDE(B3);10000))/10000);GEHEEL(WAARDE(B3);-6)/1000000)
quote:omdat MS "klantvriendelijk" wil zijn voor gebruikers zonder enige voorkennis en de functies graag intuititef wil laten aanvoelen. Zodra je echter al programmeerkennis hebt of in een andere taal hebt gewerkt ben je dus mooi zuur.Op woensdag 17 januari 2007 10:22 schreef Frollo het volgende:
[..]
Het gekke is dat als je een bestand tussen verschillende taalversies uitwisselt, dus bijvoorbeeld in een Engelse Excel een bestand maken en in een Nederlandse Excel weer inlezen, dat de vertaling van de functies en de leestekens gewoon goed gaat.
Hij KAN het dus wel! Maar waarom kan ik dan in mijn Nederlandse Excel niet gewoon meteen =SUM(A1:B1) intypen als ik dat zou willen?
Met Excel95 (geloof ik) was het zelfs zo erg dat de visual basic in excel ook vertaald was.
dan kreeg je dus macro met "indien .. dan .. anders" etc, gelukkig zijn ze daar snel van afgestapt. Ik meen mij te herinneren dat er wel een spreadsheet was waarin de functies vertaald werden. Ik zal eens even zoeken.
http://members.chello.nl/jvolk/keepitcool/files/TranslateIT.zip
quote:Wat lief van MS!Op woensdag 17 januari 2007 10:30 schreef Deetch het volgende:
[..]
omdat MS "klantvriendelijk" wil zijn voor gebruikers zonder enige voorkennis en de functies graag intuititef wil laten aanvoelen.
Toch blijft het typisch dat ik niet zelf Engelse functies kan typen in mijn Nederlandse Excel, want dan houdt hij zich van den domme, maar dat hij diezelfde functies ineens wel begrijpt bij het inlezen.
quote:Juist. Hier op het werk hebben we nog steeds af en toe macro's nodig die in Word 95 zijn geschreven, in fraai Nederlands WordBasic dus, en nu heb ik pas geleden te taak gekregen om dat om te zetten naar VBA. Leuke klus.Zodra je echter al programmeerkennis hebt of in een andere taal hebt gewerkt ben je dus mooi zuur.
Met Excel95 (geloof ik) was het zelfs zo erg dat de visual basic in excel ook vertaald was.
dan kreeg je dus macro met "indien .. dan .. anders" etc, gelukkig zijn ze daar snel van afgestapt.
quote:Zo, da's handig!Op woensdag 17 januari 2007 10:55 schreef Deetch het volgende:
Gratis vertaal plugin voor excel functies. Je krijgt een werkbalk met de functie in je geinstalleerde taal, de functie in een andere taal en een taalkeuze. Je kunt dus alle functies van en naar je geinstalleerde taal naar een andere taal vertalen.
http://members.chello.nl/jvolk/keepitcool/files/TranslateIT.zip
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | If Not Intersect(Range("A1:A100"), Target) Is Nothing Then On Error GoTo wrong Dim vale As String For Each cell In Target If Not Len(cell.Value) = 10 And Not Len(cell.Value) = 0 Then vale = cell.Value cell.Value = Left$(vale, 2) & "-" & Mid$(vale, 3, 2) & "-" & Right$(vale, 4) vale = DateValue(cell.Value) End If Next cell End If Exit Sub wrong: MsgBox "De ingevulde waarde: '" & vale & "' is geen geldige datum!" End Sub |
Mocht de macro vastlopen, gebruik dan ctr+pause/break. Hij kan in een oneindige lus komen omdat de macro de celwaarde aanpast en deze aanpassing de macro zelf weer oproept
quote:Ja, daarom zei ik ook voer 't als datum in:Op woensdag 17 januari 2007 09:23 schreef Frollo het volgende:
Hij wil het juist zonder streepjes invoeren, ik denk dat daar het probleem zit.
Want stel dat ik '112007' invoer, hoe moet Excel dan weten of ik a) 1 januari 2007 bedoel, b) een datum in november 2007 waarvan ik de dag vergeten ben in te voeren, of c) een elfde dag ergens in 2007 waarvan ik de maand vergeten ben?
quote:Dat kun je uitproberen door het veld iets breder te maken. Als je de datum invoert en het wordt naar rechts uitgelijnd dan is het een datum, blijft het links staan dan is het tekst en niet goed dus.Op woensdag 17 januari 2007 01:04 schreef Arcee het volgende:
Voer je de datum wel als datum in B3 in?
Dus bijvoorbeeld vandaag invoeren als 1/17/2007 en dat Excel 't dan afbeeldt als 17-01-2007 door dd-mm-jjjj bij celeigenschappen in te vullen.
Dus niét 17-01-2007 intypen, want dan maakt Excel er een tekst-type van.
16-10-1934 is dus niet als datum ingevoerd, de rest wel.
Andere cellen gebruiken zijn geen goede optie, het is te bewerkelijk. Kolommen toevoegen ook niet want ik wil met minimale invul van data, maximale overzichtelijkheid.
@ Arcees oplossing:
Celeigenschappen => aangepast => dd-mm-jjj. Dit is hoe ik het nu ook laat werken, maar dit leidt niet tot de automatische tussenvoeging van streepjes.
@ Ralphies oplossing:
Hoe maak ik een worksheet_onchange macro? Dit is hoe ik het geprobeerd heb: Extra => Macro => Nieuwe macro opnemen => naamgeven, OK => stopknop. Vervolgens in Macro's bewerken heb ik alles geselecteerd en jouw scriptje eroverheen geplakt. Daarna heb ik A1:A100 vervangen door B3 (aangezien er maar een cel is waarin je de geboortedatum moet invullen). Misschien heb ik een fout gemaakt, maar het resultaat is in ieder geval geen streepjes en de rekencellen rekenen er niet mee. Een voorbeeld van een rekencel is dit:
| 1 |
Als ik nu in bijv C23 19000 invul en in B3 30061950 invul, zou er dus 1894 moeten komen te staan.
Maar ik ben wel meer en meer tot de overtuiging gekomen dat een macro de oplossing is. Ik heb feitelijk maar drie eisen aan wat die macro moet kunnen:
1. Als ik in een cel 31121947 invoer, moet er automatisch 31-12-1947 komen te staan.
2. Als ik er 31-12-1947 invoer, moet dat ook herkend worden en moet er 31-12-1947 blijven staan.
3. De cel moet als datumwaarde gelden.
Vereiste 2 is een bonus als het lukt, maar de minst belangrijke van de drie. Als de heren excelgoeroes zich eens in die richting zouden willen experimenteren... :s)
quote:Voer je de datum wel als echte datum in? Dus niét 31121947, maar 12/31/1947, of hoe die Nederlandse versie van Excel het ook maar wil hebben.Op woensdag 17 januari 2007 13:22 schreef Meeldraad het volgende:
@ Arcees oplossing:
Celeigenschappen => aangepast => dd-mm-jjj. Dit is hoe ik het nu ook laat werken, maar dit leidt niet tot de automatische tussenvoeging van streepjes.
Ik zou 't gewoon als datumveld invoeren. Dan maakt Excel er zelf wel 31-12-1947 van.
Nogmaals:
Datums zijn als datum ingevoerd en worden correct met streepjes afgebeeld.
Misschien moet jij ook yyyy gebruiken? In ieder geval 4 letters, in je post noemde je er 3 (jjj).
Maar in de Nederlandse versie zou het dd-mm-jjjj moeten zijn, lijkt me.
quote:Wat je kunt zien als ik op zo'n cel sta:Op woensdag 17 januari 2007 13:25 schreef Arcee het volgende:
Datums zijn als datum ingevoerd en worden correct met streepjes afgebeeld.
04-02-1919 is dus ingevoerd als 2/4/1919.
Maar inderdaad celeigenschappen => aangepast => dd-mm-jjjj. Maar die slashforwards zijn niet echt een oplossing, want dan kan ik net zo goed gelijk streepjes neerzetten. Nee, het is me er juist om te doen om zo snel mogelijk een datum in te kunnen voeren door 31101947 in te vullen en dat excel er dan vervolgens zélf een datumwaarde met streepjes van maakt.
quote:Dan was dit toch gewoon goed?Op dinsdag 16 januari 2007 22:02 schreef Meeldraad het volgende:
Oké, via Celeigenschappen => aangepast => 00-00-0000 krijg ik wel automatisch streepjes, maar dan herkent ie het niet als datumwaarde. En als ik dan inderdaad overal waar in een rekencel B3 staat dit neerzet: DATUMWAARDE(TEKST.SAMENVOEGEN(LINKS(B3;2);"-";DEEL(B3;3;2);"-";RECHTS(B3;4)) dan rekent ie er mee, maar omdat overal te veranderen is echt, echt een ontzettend @#$$-werk (excuse my French).
Je moet die formule dan af en toe even kopiëren. Dat kun je makkelijk doen door te dubbelklikken op het kleine vierkantje rechtsonderin de cel die je wilt kopiëren.
Dat vierkantje dus. Als je links de datums invoert en dan rechts de formule meekopieert, dan moet 't goed gaan.
quote:ga naar extra->macro->visual basic editorOp woensdag 17 januari 2007 13:22 schreef Meeldraad het volgende:
@ Ralphies oplossing:
Hoe maak ik een worksheet_onchange macro? Dit is hoe ik het geprobeerd heb: Extra => Macro => Nieuwe macro opnemen => naamgeven, OK => stopknop. Vervolgens in Macro's bewerken heb ik alles geselecteerd en jouw scriptje eroverheen geplakt. Daarna heb ik A1:A100 vervangen door B3 (aangezien er maar een cel is waarin je de geboortedatum moet invullen). Misschien heb ik een fout gemaakt, maar het resultaat is in ieder geval geen streepjes en de rekencellen rekenen er niet mee. Een voorbeeld van een rekencel is dit:
Linksboven in de project explorer (of hoe dat ook heet) dubbelklikken op het blad waarop je het wilt hebben (bijv blad 1)
daarna kun je de code in het scherm plakken.
Klopt die oplossing was ook werkzaam, maar als je weet hoeveel verwijzingen ik dan handmatig zou moeten omzetten, daar wordt je niet blij van, komt nog eens bij dat de formules nog ondoorzichtiger worden dan ze al zijn en als er ergens toch nog fouten inzitten wordt het nog lastiger ze op te sporen. De formules moeten zo gestroomlijnd mogelijk zijn. En zoals gezegd lost het niet alle problemen op. Het invoeren van een datum mét streepjes leidt tot foute waarden.
@ralfie
Oké gelukt, en inderdaad maakt het nu niet uit of ik ze met of zonder streepje invoer, uiteindelijk staan ze er zoals ik ze wil zien. A sight for sore eyes! Alleen de rekencellen doen er nog niks mee. Moet ik misschien een andere verwijzing gebruiken dan in mijn vorige post?
quote:Waar heb je die datums die je invoert dan allemaal al staan?Op woensdag 17 januari 2007 14:27 schreef Meeldraad het volgende:
@ Arcee
Klopt die oplossing was ook werkzaam, maar als je weet hoeveel verwijzingen ik dan handmatig zou moeten omzetten, daar wordt je niet blij van, komt nog eens bij dat de formules nog ondoorzichtiger worden dan ze al zijn en als er ergens toch nog fouten inzitten wordt het nog lastiger ze op te sporen. De formules moeten zo gestroomlijnd mogelijk zijn. En zoals gezegd lost het niet alle problemen op.
quote:Daar maak je dan weer een aparte ALS voor. In jouw Nederlandse versie zou dat dan zo moeten worden:Het invoeren van een datum mét streepjes leidt tot foute waarden.
DATUMWAARDE(TEKST.SAMENVOEGEN(LINKS(B3;2);"-";DEEL(B3;ALS(DEEL(B3;3;1)="-";4;3);2);"-";RECHTS(B3;4))
Ervaanuitgaande dat die DATUMWAARDE-functie zo al werkt.
Die formule hoef je maar 1 keer in te voeren en mee te kopiëren.
Nederlandse versies zijn kut!
[ Bericht 3% gewijzigd door Arcee op 17-01-2007 14:46:01 ]
Wat ik doe.
extra, macro, nieuwe macro opnemen, macronaam geven, knop maken, macro toevoegen en dan de formule in VB. Ik krijg dan de fout: Compileerfout: Sub of Function is niet gedefinieerd.
Grrrrr!
Stel je hebt een kolom met datat erin maar ook lege plekken tussen de data. Met ctrl+pijltje naar beneden of naar boven kun je dan naar de eerstvolgende (lager danwel hoger gelegen) lege cel. Soms wil je echter direct naar de alleronderste waarde of de allerbovenste waarde, daarvoor heb ik onderstaande twee macro's gemaakt.
Als je naar de onderste cel met een waarde wilt gaan kun je deze macro gebruiken
| 1 2 3 4 | Application.Goto Reference:="R65536C[0]" Selection.End(xlUp).Select End Sub |
Als je naar de bovenste cel met een waarde wilt gaan kun je deze macro gebruiken
| 1 2 3 4 | Application.Goto Reference:="R1C[0]" If ActiveCell.Value = "" Then Selection.End(xlDown).Select 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 | Dim Mark As Integer Dim Marker, Markcolor As String Marker = InputBox("Welke tekenreeks (getal of string) staat in de te markeren cel?", "Merkteken") If Marker = "" Then Exit Sub Markcolor = InputBox("Welke kleur markering? (rood, groen, blauw, geel, roze)", "Markerkleur", "rood") bool = Markcolor = "rood" Or Markcolor = "groen" Or Markcolor = "blauw" Or Markcolor = "geel" Or Markcolor = "roze" If bool = False Then Exit Sub If Markcolor = "rood" Then Mark = 3 If Markcolor = "groen" Then Mark = 4 If Markcolor = "blauw" Then Mark = 5 If Markcolor = "geel" Then Mark = 6 If Markcolor = "roze" Then Mark = 7 Do Until ActiveCell.Value = "" If ActiveCell = Marker Then ActiveCell.Interior.ColorIndex = Mark If CStr(ActiveCell.Value) = Marker Then ActiveCell.Interior.ColorIndex = Mark ActiveCell.Offset(1, 0).Range("a1").Select Loop End Sub |
quote:ja, de cel geeft het nu als tekst weer. Om met deze tekst als datum te werken, moet je de functie DATUMWAARDE gebruiken, bijvOp woensdag 17 januari 2007 14:27 schreef Meeldraad het volgende:
@ralfie
Oké gelukt, en inderdaad maakt het nu niet uit of ik ze met of zonder streepje invoer, uiteindelijk staan ze er zoals ik ze wil zien. A sight for sore eyes! Alleen de rekencellen doen er nog niks mee. Moet ik misschien een andere verwijzing gebruiken dan in mijn vorige post?
| 1 |
Dat is nog een relatief kleine toevoeging... even testen....
Wauw, ik geloof dat dit een oplossing is waar ik mee kan leven! Het is niet zo te regelen dat de celeigenschap al op datum staat en dat je vervolgens via een macro het hele streepverhaal bewerkstelligt? (Zoals gezegd, ik wil de formules zo kort mogelijk houden)
@ Arcee
Je formule krijg ik niet werkend. En de oplossing van ralfie is gestroomlijnder. Evengoed, enorm bedankt voor al je input. Heb ik echt gewaardeerd!
Als jullie er belangstelling bij hebben, wil ik het eindproduct wel naar je toemailen. Dan begrijp je misschien ook beter waarom het me te doen was en wie weet zie je nog dingen die beter of handiger zouden kunnen. Het is een sheet waarin je met relatief weinig variabelen, snel je inkomstenbelasting kunt uitrekenen. PM maar een mailadres bij belangstelling.
Ze staan allemaal op tekst, dus daar ligt het niet aan. Ik zal het wel verkeerd genoteerd hebben... help?
quote:Zie m'n profiel. Je hebt zo te zien je PM niet geactiveerd.Op donderdag 18 januari 2007 12:01 schreef Meeldraad het volgende:
PM maar een mailadres bij belangstelling.
quote:Het probleem is dat een illegale datum door excel niet kan worden omgezet en dan kun je er in visual basic ook niks mee.Maar na wat experimenteren net iets uitgevonden. Cell.value2 geeft de ingevoerde waarde, ook als deze geen legale datum is. De aangepaste code wordt dan:Op donderdag 18 januari 2007 12:01 schreef Meeldraad het volgende:
@ ralfie
Dat is nog een relatief kleine toevoeging... even testen....
Wauw, ik geloof dat dit een oplossing is waar ik mee kan leven! Het is niet zo te regelen dat de celeigenschap al op datum staat en dat je vervolgens via een macro het hele streepverhaal bewerkstelligt? (Zoals gezegd, ik wil de formules zo kort mogelijk houden)
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | If Not Intersect(Range("A1:A100"), Target) Is Nothing Then On Error GoTo wrong Dim vale As String, length As Integer For Each cell In Target length = Len(cell.Value2) If length = 7 Or length = 8 And Not length = 0 Then If length = 7 Then vale = "0" & cell.Value2 Else vale = cell.Value2 End If cell.Value = DateValue(Left$(vale, 2) & "-" & Mid$(vale, 3, 2) & "-" & Right$(vale, 4)) End If Next cell End If Exit Sub wrong: MsgBox "De ingevulde waarde: '" & vale & "' is geen geldige datum!" End Sub |
[ Bericht 6% gewijzigd door ralfie op 18-01-2007 16:46:38 ]
Exact!!! ZOOOO moet ie zijn!!! You just made my day! Elk biertje dat ik drink vandaag zal zijn op Ralph van Hoorn, wat een held! Zegt het voort! Alle anderen, met name Arcee ook hartelijk dank!
Oh en als je nog belangstelling hebt bij het resultaat, dan moet je maar even een mailadres naar mijn inmiddels geactiveerde PM-inbox sturen.
De eerste macro verwijderd duplicaten als ze direct onder elkaar staan.
1, 1, 2, 2, 3, 4, 5, 1, 1,2
wordt
1, 2, 3, 4, 5, 1, 2
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ' Deze macro kijkt of de cel onder de active cell dezelfde waarde bevat. ' Zo ja dan wordt deze verwijderd, anders wordt er verder gegaan Do While ActiveCell.Value <> "" Curr = ActiveCell.Value ActiveCell.Offset(1, 0).Range("A1").Select Do Application.CutCopyMode = False Selection.Delete Shift:=xlUp Loop While ActiveCell.Value = Curr Loop End Sub |
De tweede macro verwijderd alle duplicaten uit een kolom.
1, 1, 2, 2, 3, 4, 5, 1, 1,2
wordt
1, 2, 3, 4, 5
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | ' ' Deze macro verwijderd duplicaten uit een ongesorteerde kolom ' Hierbij wordt bovenaan begonnen Do While ActiveCell.Value <> "" Check = ActiveCell.Value rij = ActiveCell.Row kol = ActiveCell.Column Do While ActiveCell.Value <> "" ActiveCell.Offset(1, 0).Range("a1").Select If ActiveCell.Value = Check Then Selection.Delete Shift:=xlUp Else: End If Loop 'activecell weer terug naar check cell en 1 cel naar beneden en do -loop Range("a1").Select ActiveCell.Offset(rij, kol - 1).Range("a1").Select Loop End Sub |
Maat van me is naar het volgende op zoek.. ( dont ask me why )
Regel 1 heeft x velden gevuld
Regel 2 .. etc etc
Door het draaien van een macro wil hij op blad 2 het volgende krijgen
A1
B1
C1 D1 E1 F1 G1 etc..
Dus blad1 A1 komt op A1, Blad1 B1 komt op A2, Blad1 C1 komt op A3 en de rest komt naast A3..
de 2e regel van blad 1 gaat hetzelfde verder,
vb.
Regel 1 : 1 2 3 4 5 6 7
Regel 2 : a b c d e f g
blad 2:
1
2
3 4 5 6 7
a
b
c d e f g h
| 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 | Dim arr() As Integer Dim vals() As Variant Dim number As Integer number = ThisWorkbook.Sheets("blad1").UsedRange.Count ReDim arr(number, 2) ReDim vals(number) Dim x For Each cell In ThisWorkbook.Sheets("blad1").UsedRange If Not cell.Value = "" Then arr(x, 1) = cell.Column arr(x, 2) = cell.Row vals(x) = cell.Value x = x + 1 End If Next cell ThisWorkbook.Sheets("blad2").Activate Dim drow As Integer, dcol As Integer For y = 0 To x - 1 dcol = arr(y, 1) - 2 If dcol < 1 Then dcol = 1 drow = arr(y, 2) * 3 If arr(y, 1) = 1 Then drow = drow - 2 ElseIf arr(y, 1) = 2 Then drow = drow - 1 End If Cells(drow, dcol).Value = vals(y) Next y End Sub |
Dit zijn mijn gegevens
Persoon A
Datum Kosten1 Kosten 2
Jan 50.00 0.00
Feb 60.00 5.00
Maart 70.00 10.00
April 50.00 10.00
Persoon B
Datum Kosten1 Kosten 2
Jan 20.00 1.00
Feb 30.00 10.00
Maart 60.00 7.00
april 10.00 5.00
Nu wil ik dus een gestapelde grafiek, waarin per maand aan wordt gegeven wat de kosten per persoon zijn.
op de x-as de maanden
op de y-as de bedragen
In sitautie van hierboven wil ik dus 1 grafiek met 2 staven per maand (persoon A en B)
Elk zo';n staaf bestaat uit kosten 1 en kosten 2 (bovenop elkaar, gestapeld)
Echter in mijn geval gaat het om 12 maanden en zo'n 12 werknemers, dus zijn bv aparte grafieken geen opties.
Iemand enig idee hoe ik dit moet doen?? Hoop dat het een beetje duidelijk is.
Wat mijn probleem namelijk is, is dat ie of alles bij elkaar in een gestapelde balk zet (dus van alle personen) of alle maanden bij elkaar doet. Het wil gewoon niet lukken. Hoop dat iemand t antwoord weet
[ Bericht 11% gewijzigd door Cuegirllie op 22-01-2007 13:17:00 (verduidelijking probleem) ]
Wat ik nu heb is een grafiek met op de x-as de maanden als volgt: jan feb mrt dec en dan weer jan feb mrt dec voor persoon twee. Op de y-as staan de gestapelde kosten (kosten 1 en 2) per persoon. Je hebt dus in totaal 8 stapels.
Evt voorbeelden kun je pm-en
quote:Hehe, ik slaap in het weekend. Maar Ralfie is een betere coder dan ik en die heeft op zondag niets te doen zo te zien
Ik kan zelf helaas nu ff niet helpen ivm lunchmeeting.
Waar kan ik hem heen sturen? Je kunt nl. geen bestanden PM'en.
[ Bericht 22% gewijzigd door Deetch op 22-01-2007 14:48:17 ]
[ Bericht 100% gewijzigd door Cuegirllie op 22-01-2007 14:54:14 ]
Alleen mijn gegevens staan in een leuke tabelletje.. enig idee of t daarmee ook kan.. stuur je wel effe bestandje op met voorbeeld.. (is voor stage, kan/mag t dus ook geen andere layout geven)
Met behulp van vert.zoeken (vlookup) of gewoon celverwijzingen zou je de getallen wel op de juiste plek in de grafiek kunnen krijgen. Dat is even wat werk maar dan werkt de grafiek wel. kost je hooguit een half uurtje.
Succes
En inderdaad.. genoeg tijd Kost inderdaad wel wat werk.. en op de helft ofzo.. maarja.. eerst maar es nagaan of ze t zo wel willen.. want weet ook niet in hoeverre dingen gaan veranderen in de toekomst als ik er niet ben.. en dan vinden ze dit veels te ingewikkeld (al is t dat eigenlijk helemaal niet)
Ik heb een een cel het volgende:
="Het antwoord is "&A1
In die cel verschijnt dus: "Het antwoord is " plus de waarde uit A1. Nu wil ik die waarde uit A1 graag opmaak meegeven, bijvoorbeeld vet (Het antwoord is 15) of blauw of cursief of alles tegelijk. Hoe doe ik dat? Bedankt!
Als de cel geheel is gevuld met text en dan kun je wel deel layouts gebruiken.
quote:OK, maar als ik nou tekst van het getal maak met TEKST()? Dan kan ik in elk geval wel de notatie veranderen. Bijvoorbeeld:Op dinsdag 23 januari 2007 10:48 schreef Deetch het volgende:
Volgens mij kun je bij formulegebruik alleen de hele cel dezelfde layout geven.
Als de cel geheel is gevuld met text en dan kun je wel deel layouts gebruiken.
="Het is vandaag "&TEKST(VANDAAG();"d mmmm")
Dus ik vroeg me af of je er dan ook opmaak aan kunt meegeven.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | getal = ActiveCell.Offset(0, -1).Value ActiveCell.FormulaR1C1 = "Het antwoord is: " & getal With ActiveCell.Characters(Start:=18, Length:=Len(getal)).Font .Name = "Arial" .FontStyle = "Vet" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub |
dan staat in de actieve cel alleen een tekststring met gewenste layout.
♫♪om mekaar, om mekaar, om mekaar♪♫
♫♪te helpen niet waar♪♫
muzikaal kickje
ik heb een kolom met de volgende informatie:
| 1 |
Nu wil ik in een ander kolom alleen de tekens hebben tot het komma teken, dus:
| 1 |
Hoe doe ik dit :)
quote:Als er echt altijd een komma na het adres komt, dan is dit volgens mij het handigst:Op vrijdag 26 januari 2007 11:37 schreef JortK het volgende:
Ik heb zelf hulp nodig
ik heb een kolom met de volgende informatie:
[ code verwijderd ]
Nu wil ik in een ander kolom alleen de tekens hebben tot het komma teken, dus:
[ code verwijderd ]
Hoe doe ik dit
=LINKS(A1;VIND.SPEC(",";A1)-1)
quote:Werkt als een tiet thanksOp vrijdag 26 januari 2007 12:02 schreef Frollo het volgende:
[..]
Als er echt altijd een komma na het adres komt, dan is dit volgens mij het handigst:
=LINKS(A1;VIND.SPEC(",";A1)-1)
Ik wil in een simpel excelsheetje het volgende weergeven
kolom1: naam
kolom2: mailadres
kolom3: text: "op mailinglijst"
kolom 3 moet die text weergeven indien het mailadres is ingevuld.
Ik ben aan het proberen met als maar kan niet vinden hoe ik die formule zo moet maken dat hij niet op waarde of text de text erin knalt maar dat hij het bij alle waardes of letters de text in die kolom knalt.
Wie weet raad?
Bestaat dit eigenlijk wel?
quote:Op zondag 28 januari 2007 13:31 schreef Da_KlouwN het volgende:
Ik zoek een functie om automatisch de laatste datum van de maand waarin we ons bevinden te tonen.
Bestaat dit eigenlijk wel?
quote:LAATSTE.DAG is dus de functie die je kunt gebruikenDit kun je doen door de functie "LAATSTE.DAG" , maar deze is niet onmiddelijk beschikbaar. Deze extra functies moet je eerst "activeren".
Ga hiervoor naar Extra> invoegtoepassingen en zet een vinkje voor "analysis toolpak".
Nu de formule.
Veronderstel dat in cel A1 de functie "=VANDAAG()" hebt staan (de datum van vandaag) en je wilt de factuur betaald hebben 2 maanden na vandaag gebruik je volgende formule.
=LAATSTE.DAG(A1;2) .
ALs je een Engelse Excel gebruikt , noemt de functie =EOMONTH(A1;2)
ipv de engels EOMONTHlinkje
Hiervoor heb je dus wel het Analysis Toolpack nodig.
quote:Op zondag 28 januari 2007 13:31 schreef Da_KlouwN het volgende:
Ik zoek een functie om automatisch de laatste datum van de maand waarin we ons bevinden te tonen.
Bestaat dit eigenlijk wel? :?
| 1 |
quote:Als in b1 het emailadres wel of niet staat dan doe je in C1 de volgende formule.Op zondag 28 januari 2007 11:20 schreef BattleLies het volgende:
Wilde eerst een topic openen maar zag gelukkig deze reeks. ^O^
Ik wil in een simpel excelsheetje het volgende weergeven
kolom1: naam
kolom2: mailadres
kolom3: text: "op mailinglijst"
kolom 3 moet die text weergeven indien het mailadres is ingevuld.
Ik ben aan het proberen met als maar kan niet vinden hoe ik die formule zo moet maken dat hij niet op waarde of text de text erin knalt maar dat hij het bij alle waardes of letters de text in die kolom knalt.
Wie weet raad? :)
| 1 |
quote:wow daar was ik niet opgekomen. ik had een vergelijking gemaakt met een leeg vakje en dan tekst aan waar geplakt. werkte ook maar was wel omweg. Ik zocht me kwijt naar de directe formule maar kon niks bedenken voor: " indien ingevuld"Op maandag 29 januari 2007 10:25 schreef Deetch het volgende:
[..]
Als in b1 het emailadres wel of niet staat dan doe je in C1 de volgende formule.
[ code verwijderd ]
Bedankt joh ! Superr...
ik heb een lijst, 1 kolom.. met in enkele cellen getallen. bv; ( een '.' is leeg)
1
5
6
.
7
.
8
.
3
10
.
Nu wil ik dat ie alleen de eerste 4 bij elkaar op telt.. Ik heb nuz oiets;
For varcounter = 1 To 4
Waarde = ActiveCell.Value
Waarde_totaal = Waarde + ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Next
En dat totaal van die 4, wil ik helemaal onderaan vermelden.. en dan de volgtende 6 pakken.. en daarvan het toaal weer onderaan vermelden.
Ik kan er allene niet opkomen hoe t anders zou moeten, iemand ideeen?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Value = "------" eindrij = ActiveCell.Row Range("a1").Select Do waarde = 0 Do Until ActiveCell.Value = "------" Or ActiveCell.Value = "" waarde = waarde + ActiveCell.Value ActiveCell.Offset(1, 0).Select Loop tussenrij = ActiveCell.Row Range("A65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveCell.Value = waarde Range("A" & tussenrij + 1).Select Loop Until tussenrij > eindrij |
[ Bericht 5% gewijzigd door Deetch op 01-02-2007 15:16:14 (code werkend gemaakt) ]
| 1 2 3 | Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select |
Op deze manier kom je helemaal onderaan je kolom terecht. Als je
| 1 |
gebruikt dan ga je naar de eerstevolgende lege cel en dat is nu net niet wat je wilt.
ik heb nog eens een vraagje.
Stel, je neemt 2 excelbestanden. In het eerste staat een kolom met cijfers. In het 2de bestand staan 2 kolommen met cijfers.
Nu zou ik willen dat excel de 2 bestanden met elkaar gaat vergelijken op dezelfde getallen (kolom A uit bestand 1 vergelijken met Kolom B uit bestand 2)
Wanneer er een getal overeenkomt, wil ik dat excel in het 1ste bestand het getal zet dat in Kolom A van het 2de bestand naast hetzelfde getal staat.
Iemand een idee?
Dan kun je met de functie VERT.ZOEKEN je doel wel bereiken. Alle verwijzingen gewoon met de muis aanklikken, dan vult ie de celverwijzingen en koppelingen zelf wel in.
Het komt er ongeveer zo uit te zien (in cel B1):
=VERT.ZOEKEN(A1;'[bestand2.xls]'Blad1!A1:B37;2;ONWAAR)
Hoe kan ik uren bij elkaar optellen? Bijvoorbeeld 6:45 + 3:24 ?
(6:45 = 6 uur en 45 minuten gewerkt)
quote:door in celeigenschappen het getal als categorie tijd in te stelleen. Daarna kun je gewoon rekenen met die waarden alsof het gewoon getallen zijnOp zaterdag 3 februari 2007 17:39 schreef Flaccid het volgende:
Ik ben voor mezelf een overzicht aan het maken voor mijn werk, met zoveel uur enzo.
Hoe kan ik uren bij elkaar optellen? Bijvoorbeeld 6:45 + 3:24 ?
(6:45 = 6 uur en 45 minuten gewerkt)
quote:Hoe doe je dat? 6:43 zijn uren en minuten he?Op zaterdag 3 februari 2007 22:05 schreef ralfie het volgende:
[..]
door in celeigenschappen het getal als categorie tijd in te stelleen. Daarna kun je gewoon rekenen met die waarden alsof het gewoon getallen zijn
Is al gelukt:D Thanks
quote:Heel simpel. Rechtermuisknop -->format cells.Op zondag 4 februari 2007 09:25 schreef Flaccid het volgende:
[..]
Hoe doe je dat? 6:43 zijn uren en minuten he?
Selecteer "Time" en zet hem op de optie die je wilt. bv 13:30 (dat lijkt me in dit geval het handigst. Je kunt deze ook nog met seconden pakken, dan krijg je 13:30:55).
Als je op die manier je cellen geformatteerd hebt, kun je 2 waarden van elkaar aftrekken en krijg je de tijd die ertussen zit.
En kan je hem laten afronden op halve uren als je wat bijelkaar hebt opgeteld?
Dat ie van 18:43 18,5 maakt enzo?
[ Bericht 15% gewijzigd door Flaccid op 04-02-2007 10:01:48 ]
functie round (afronden)
functie hour (uur)
functie minute (minuut)
------------------------------------------------------------------------------
Dit is echt er een voor excel-slimmeriken. Ik zoek al een paar dagen naar de oplossing, via allerlei formules, maar het lukt me niet. Please help!
Gegeven in rij 1: een serie oplopende data. Deze data kunnen netzover doorlopen als nodig. Deze data kunnen veranderen/verschuiven, maar zijn altijd een oplopende serie, dus 1 cel naar rechts is de vorige cel +1.
Gegeven in rij 2: rij twee kan alleen 0 of 1 zijn. Deze 0-en en 1-en kunnen veranderen. Extra gegeven: het maximum aantal 1-en achter elkaar is 9. het maximum aantal 0-en achter elkaar is 5.
De gewenste uitkomst (hier in rij 7):
In deze rij moeten de eerste 7 data uit rij 1 komen waar een 0 onder de datum staat. Dus, als er een 1 onder de datum staat, moet deze overgeslagen worden en gezocht worden naar de eerstvolgende datum met een 0.
De 0-en en 1-en uit rij 2 kunnen veranderen, waarna rij 7 dus vanzelf de nieuwe 7 data moet berekenen.
Voorbeeldsituatie 1:
Voorbeeldsituatie 2:
WIE O WIE weet hier een oplossing voor?...
Liefst zonder vb scripting, maar als het niet anders kan laat maar zien hoe het dan met vb scripting gaat (daar heb ik nl de ballen verstand van nl.)...
Afronden.n.veelvoud doet t nie bij mij
quote:Heb al een oplossing gegeven in je andere topicOp zondag 4 februari 2007 13:16 schreef LennyKravitz het volgende:
Had er een topic voor geopend, maar zou hier moeten:
------------------------------------------------------------------------------
Dit is echt er een voor excel-slimmeriken. Ik zoek al een paar dagen naar de oplossing, via allerlei formules, maar het lukt me niet. Please help!
Gegeven in rij 1: een serie oplopende data. Deze data kunnen netzover doorlopen als nodig. Deze data kunnen veranderen/verschuiven, maar zijn altijd een oplopende serie, dus 1 cel naar rechts is de vorige cel +1.
Gegeven in rij 2: rij twee kan alleen 0 of 1 zijn. Deze 0-en en 1-en kunnen veranderen. Extra gegeven: het maximum aantal 1-en achter elkaar is 9. het maximum aantal 0-en achter elkaar is 5.
De gewenste uitkomst (hier in rij 7):
In deze rij moeten de eerste 7 data uit rij 1 komen waar een 0 onder de datum staat. Dus, als er een 1 onder de datum staat, moet deze overgeslagen worden en gezocht worden naar de eerstvolgende datum met een 0.
De 0-en en 1-en uit rij 2 kunnen veranderen, waarna rij 7 dus vanzelf de nieuwe 7 data moet berekenen.
Voorbeeldsituatie 1:
[afbeelding]
Voorbeeldsituatie 2:
[afbeelding]
WIE O WIE weet hier een oplossing voor?...
Liefst zonder vb scripting, maar als het niet anders kan laat maar zien hoe het dan met vb scripting gaat (daar heb ik nl de ballen verstand van nl.)...
quote:Op zondag 4 februari 2007 14:21 schreef ralfie het volgende:
[..]
Heb al een oplossing gegeven in je andere topic
quote:Heb je ook een oplossing voor mij:DOp zondag 4 februari 2007 13:21 schreef Flaccid het volgende:
Het lukt me niet, ik kan niet afronden naar halven :S Please help
Afronden.n.veelvoud doet t nie bij mij
quote:ik ben niet zo bekend met tijdfuncties, maar iets als dit werkt iig:Op zondag 4 februari 2007 14:32 schreef Flaccid het volgende:
[..]
[..]
Heb je ook een oplossing voor mij:D
| 1 |
Waarschijnlijk wel erg omslachtig als er speciale functies voor zijn
quote:Waarvoor nogmaals mijn dank!Op zondag 4 februari 2007 14:21 schreef ralfie het volgende:
[..]
Heb al een oplossing gegeven in je andere topic
quote:Dit topic dus, voor het archief zeg maar.Op zondag 4 februari 2007 14:21 schreef ralfie het volgende:
[..]
Heb al een oplossing gegeven in je andere topic
een cel geeft een getal hoger dan 250 of lager dan 250 weer
een andere cel moet aangeven dat als het getal 250 is of hoger de waarde 0
is het getal onder de 250 dan moet de cel de waarde 1 aangeven.
Ik heb hem tot nu toe alleen maar zo ver gekregen dat hij waarde o zet bij 250 en bij alle overige getallen zowel hoger als lager dan 250 1.
quote:=ALS(ISLEEG(A1);"";ALS(A1>=250;0;1))Op maandag 5 februari 2007 12:05 schreef MaVeJuH het volgende:
Mijn vraag is als volgt:
een cel geeft een getal hoger dan 250 of lager dan 250 weer
een andere cel moet aangeven dat als het getal 250 is of hoger de waarde 0
is het getal onder de 250 dan moet de cel de waarde 1 aangeven.
Ik heb hem tot nu toe alleen maar zo ver gekregen dat hij waarde o zet bij 250 en bij alle overige getallen zowel hoger als lager dan 250 1.
Dit moet 'm zijn.
Eerst kijkt hij of A1 leeg is. Zo ja, dan komt er simpelweg niets in de huidige cel.
Zo nee, dan kijkt hij of A1 groter of gelijk 250 is. Is dit zo, dan is het resultaat 0, is dit niet zo, dan is het resultaat 1.
quote:Van macro's heb ik geen verstand, maar werkt =WAARDE() niet dan?Op maandag 5 februari 2007 13:56 schreef JortK het volgende:
Ik ben op zoek naar een macro waarvan ik een hele kolom in een keer kan converteren van tekst naar getal... want met de Celeigenschappen pakt die dat niet
quote:Stom dat ik daar niet aan gedacht hebOp maandag 5 februari 2007 13:57 schreef Frollo het volgende:
[..]
Van macro's heb ik geen verstand, maar werkt =WAARDE() niet dan?
Thanks
Heb een kolom waar verschillende jaartallen instaan.
Onderaan deze kolom moet er een optelling komen hoevaak een jaartal voorkomt in deze kolom.
Zoiets als:
Als (ieder getal uit kolom 1 = 2007) ; aantal optellen ; niets doen.
Iemand een oplossing hiervoor, zonder dat ik aparte kolomen ga maken per jaar.. (ALS cel1=2007;1'0) en dan een totaaloptelling hoevaak dit jaar voorkwam.
quote:=aantal.als(bereik;criterium) is de formule die je zoekt!Op maandag 5 februari 2007 15:56 schreef wouswous het volgende:
Vraagje:
Heb een kolom waar verschillende jaartallen instaan.
Onderaan deze kolom moet er een optelling komen hoevaak een jaartal voorkomt in deze kolom.
Zoiets als:
Als (een getal uit kolom 1 = 2007) ; aantal optellen ; niets doen.
Iemand een oplossing hiervoor, zonder dat ik aparte kolomen ga maken per jaar.. (ALS cel1=2007;1'0) en dan een totaaloptelling hoevaak dit jaar voorkwam.
Dus bijvoorbeeld:
=aantal.als(A1:A999;2007)
Nu wil ik deze commentaren in een aparte cel geplaatst hebben, is dat mogelijk met een functie of moet ik een macro gaan schrijven?
quote:Je kunt in de Pagina-instellingen (tabblad Blad) wel aangeven dat je de opmerkingen aan het eind van het document wilt afdrukken. Dat ziet er op zich keurig uit, met de celverwijzing erbij en zo.Op maandag 5 februari 2007 17:21 schreef Deetch het volgende:
Ik heb een werkblad van iemand gekregen met commentaren bij verschillende cellen (rooie driehoekje in rechterboven hoek van een cel).
Nu wil ik deze commentaren in een aparte cel geplaatst hebben, is dat mogelijk met een functie of moet ik een macro gaan schrijven?
Ik weet dat dit niet is wat je vroeg, maar misschien is het toevallig wel wat je wilde.
| 1 2 3 4 5 6 7 | ' Haalt de comment uit aangegeven cel en verwijderd de eerste n characters ' n is naam van invoerder+3 GetComment = Mid(Cell.Comment.Text, n, Len(Cell.Comment.Text) - n + 1) End Function |
Stel je hebt op het eerste tabblad in kolom B gewoon een rijtje met gegevens staan (tekst) (zie pic)
Ik wil dat kolom B exact (als ware het een kopie) wordt weergegeven op het tweede tabblad.
Het probleem: als ik KOPPELING PLAKKEN gebruik, is dat in eerste instantie best geslaagd. Maar...... als ik op eerste tabblad een rij invoeg, gaat het mis op blad 2... daar gebeurt niets natuurlijk, en worden alleen de linkverwijzingen aangepast...
Hetzelde gebeurd als ik (uit het voorbeeld), de eerste 3 items (bla, boe en bah) zou seleteren, en ergens verder naar onder in kolom B sleep..., want dan krijg je op het tweede tabblad #VERW!-meldingen.
Dus hoe krijg je het voor elkaar dat tabblad twee als een soort view (en dus minder gelinkt) iets van tabblad 1 weergeeft?
quote:Hartstikke bedankt!Op maandag 5 februari 2007 15:58 schreef Frollo het volgende:
[..]
=aantal.als(bereik;criterium) is de formule die je zoekt!
Dus bijvoorbeeld:
=aantal.als(A1:A999;2007)
quote:Probeer het eens met een macrootje die elke keer als je iets op werkblad 1 veranderd ook je tweede werkblad aanpast? Volgens mij moet dat met een Private Sub worksheet_change. Verder moet je zelf ff googlen want hiermee heb ik ook geen ervaring.Op maandag 5 februari 2007 21:18 schreef LennyKravitz het volgende:
het volgende raadsel:
Stel je hebt op het eerste tabblad in kolom B gewoon een rijtje met gegevens staan (tekst) (zie pic)
[afbeelding]
Ik wil dat kolom B exact (als ware het een kopie) wordt weergegeven op het tweede tabblad.
Het probleem: als ik KOPPELING PLAKKEN gebruik, is dat in eerste instantie best geslaagd. Maar...... als ik op eerste tabblad een rij invoeg, gaat het mis op blad 2... daar gebeurt niets natuurlijk, en worden alleen de linkverwijzingen aangepast...
Hetzelde gebeurd als ik (uit het voorbeeld), de eerste 3 items (bla, boe en bah) zou seleteren, en ergens verder naar onder in kolom B sleep..., want dan krijg je op het tweede tabblad #VERW!-meldingen.
Dus hoe krijg je het voor elkaar dat tabblad twee als een soort view (en dus minder gelinkt) iets van tabblad 1 weergeeft?
quote:Dit lijkt een beetje anders te gaan bij jouw als bij office 97, maar kun je niet gewoon de hele kolom B een formule geven van =Blad1!B1 etc ?Op maandag 5 februari 2007 21:18 schreef LennyKravitz het volgende:
het volgende raadsel:
Stel je hebt op het eerste tabblad in kolom B gewoon een rijtje met gegevens staan (tekst) (zie pic)
[afbeelding]
Ik wil dat kolom B exact (als ware het een kopie) wordt weergegeven op het tweede tabblad.
Het probleem: als ik KOPPELING PLAKKEN gebruik, is dat in eerste instantie best geslaagd. Maar...... als ik op eerste tabblad een rij invoeg, gaat het mis op blad 2... daar gebeurt niets natuurlijk, en worden alleen de linkverwijzingen aangepast...
Hetzelde gebeurd als ik (uit het voorbeeld), de eerste 3 items (bla, boe en bah) zou seleteren, en ergens verder naar onder in kolom B sleep..., want dan krijg je op het tweede tabblad #VERW!-meldingen.
Dus hoe krijg je het voor elkaar dat tabblad twee als een soort view (en dus minder gelinkt) iets van tabblad 1 weergeeft?
quote:Dat kan wel maar op het moment dat je in blad 1 een regel verwijdert of toevoegt worden deze op blad 2 niet verwijderd of toegevoegd maar worden de verwijzing aangepast.Op dinsdag 6 februari 2007 10:14 schreef ralfie het volgende:
[..]
Dit lijkt een beetje anders te gaan bij jouw als bij office 97, maar kun je niet gewoon de hele kolom B een formule geven van =Blad1!B1 etc ?
Als je op blad 1 dus een nieuwe regel boven regel 1 invoegt, wordt de verwijzing die jij noemt veranderd in =Blad1!B2 ipv dat de celverwijzing hetzelfde blijft en er dus een lege cel komt te staan.
Dan mik je in kolom B de volgende formule:
=INDEX(Blad1!$B$1:$B$3700;Q1)
Als mijn intuïtie klopt is deze ongevoelig voor het invoegen en verwijderen van rijen.
Op blad 2 zet je in kolom A de volgende functie: =indirect("Blad1!A"&RIJ())
voor kolommen B en verder moet je de letter A veranderen.
Als de cel in blad 1 leeg is krijg je een "0" als waarde in de cel. Dit is evt op te lossen met
=als(verwijzing naar cel="";"";verwijzing naar cel)
Vind je geen elegante oplossing (door handmatig invoeren kolomletters dan kun je in VB de volgende (gegoogle-de en dus ongeteste) functie definieren in je spreadsheet:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Dim iBeg, iEnd As Integer ' If 1-26, then this is an easy conversion If iCellNo < 27 Then GetExcelColumn = Chr$(iCellNo + 64) Else ' Now we have to account for AA-ZZ iBeg = iCellNo 26 ' Get the first letter iEnd = iCellNo Mod 26 ' Get the second letter If iEnd = 0 Then ' If iEnd is 0, then it is Z, which should be 26 iEnd = 26 '** you need to subtract 1 from the initial letter otherwise your lettering will be the next letter in the alphabet iBeg = iBeg - 1 End If GetExcelColumn = Chr$(iBeg + 64) & Chr$(iEnd + 64) End If End Function |
dan wordt op blad 2 je functie: =indirect("Blad1!"&GetExcelColumn(KOLOM())&RIJ())
[ Bericht 2% gewijzigd door Deetch op 06-02-2007 12:58:19 ]
| 1 |
Verder bevat het blad 2 drop-down-selectie boxen.
Hoe kan ik dit blad in zodanig beveiligen dat niemand de formules kan aanpassen, en dat de drop-down-boxes wel blijven werken. Als ik nl. het blad beveilig, dan werken de dropdownboxes niet meer (uitkomsten op dit blad veranderen door deze drop-drown-boxes, en dat kan in beveiligde situatie blijkbaar niet).
quote:ws. moet je met een macro de beveiliging opheffen, dropbox menuus vullen en beveiliging weer aanbrengenOp woensdag 7 februari 2007 01:59 schreef LennyKravitz het volgende:
Ik heb een excel blad, dat alleen uitkomsten van formules bevat (berekend vanaf andere bladen).
Verder bevat het blad 2 drop-down-selectie boxen.
Hoe kan ik dit blad in zodanig beveiligen dat niemand de formules kan aanpassen, en dat de drop-down-boxes wel blijven werken. Als ik nl. het blad beveilig, dan werken de dropdownboxes niet meer (uitkomsten op dit blad veranderen door deze drop-drown-boxes, en dat kan in beveiligde situatie blijkbaar niet).
quote:hmmm...... ik zou me kunnen voorstellen dat je dus het blad kunt beveiligen en dat je niets kan veranderen door in rechtstreeks cellen te editen, maar maar dat je wel formules hun werk kunt laten doen....Op woensdag 7 februari 2007 08:39 schreef Deetch het volgende:
[..]
ws. moet je met een macro de beveiliging opheffen, dropbox menuus vullen en beveiliging weer aanbrengen
Thanks
quote:Moeten het getallen blijven, met andere woorden: wil je er nog mee kunnen rekenen als dat "00" er eenmaal voor staat?Op woensdag 7 februari 2007 12:26 schreef mrPanerai het volgende:
Ik heb een hele kolom met enkel getallen, nu wil ik voor elk getal 00 plaatsen...kan dit in een keer
Thanks
En hebben alle getallen hetzelfde aantal cijfers?
quote:Misschien begrijp ik het niet goed...Op woensdag 7 februari 2007 09:45 schreef ralfie het volgende:
je kunt in celeigenschappen (laatste tab) de cel blokkeren of niet, waardoor je kunt bepalen welke cellen wel, en welke cellen niet mogen worden veranderd als de beveiliging erop zit
Maar als ik die cellen unlock... kan de formule veranderd worden... dat mag dus niet. Alleen de uitkomst moet wel kunnen veranderen wanneer elders in het spreadsheet de getallen worden aangepast.
Daarnaast moet ik de dropdwonbox op die pagina wel kunnen bewegen/veranderen.
quote:heb het reeds gevonden... celeigenschappen...categorie aangepast en dan aantal 0Op woensdag 7 februari 2007 13:59 schreef Frollo het volgende:
[..]
Moeten het getallen blijven, met andere woorden: wil je er nog mee kunnen rekenen als dat "00" er eenmaal voor staat?
En hebben alle getallen hetzelfde aantal cijfers?
veel te simpel eigenlijk
quote:Oh, je wilt de formules met een dropdown box aanpassen? Dan weet ik het niet. Anders had je gewoon alles moeten blokkeren, en de cellen die met de dropdown box aangepast moeten worden unlockenOp woensdag 7 februari 2007 16:28 schreef LennyKravitz het volgende:
[..]
Misschien begrijp ik het niet goed...
Maar als ik die cellen unlock... kan de formule veranderd worden... dat mag dus niet. Alleen de uitkomst moet wel kunnen veranderen wanneer elders in het spreadsheet de getallen worden aangepast.
Daarnaast moet ik de dropdwonbox op die pagina wel kunnen bewegen/veranderen.
quote:Bij de Opties, tabblad Internationaal, vinkje bij 'Scheidingsteken van systeem gebruiken' weghalen en in de vakjes erboven je eigen tekens ingeven.Op vrijdag 9 februari 2007 16:04 schreef Merkie het volgende:
Hoe zorg ik ervoor dat getallen met een punt in plaats van een komma worden weergeven?
quote:Stom.Op vrijdag 9 februari 2007 16:16 schreef Frollo het volgende:
[..]
Da's geen instelling van Excel, daarvoor moet je bji de landinstellingen van Windows zijn.
quote:Nee, ik was stom.
Zie m'n edit.
quote:Lijkt me wel.Op vrijdag 9 februari 2007 16:20 schreef Merkie het volgende:
Maar als iemand dan dat bestandje opent, dan staat er natuurlijk het scheidingsteken wat in zijn Excel staat vastgesteld. Toch?
En dat is maar goed ook, anders zou je niet eens bestanden kunnen uitwisselen met iemand in het buitenland.
quote:Snap ik, maar ik wil dat in het document het gebruik van het scheidingsteken wordt aangepast. Zeg maar dat je "gebruik standaard scheidingsteken voor deze werkmap" kan uitvinken en zelf een scheidingsteken naar wens kan kiezenOp vrijdag 9 februari 2007 16:22 schreef Frollo het volgende:
[..]
Lijkt me wel.
En dat is maar goed ook, anders zou je niet eens bestanden kunnen uitwisselen met iemand in het buitenland.
. En dat dat bestandsafhankelijk is. Maarja 
. Feest gaat niet door.| 1 2 3 4 5 6 7 | With Application .DecimalSeparator = "." .ThousandsSeparator = "," .UseSystemSeparators = False End With End Sub |
| 1 2 3 4 5 | With Application .UseSystemSeparators = True End With End Sub |
NB: Ik heb dit niet getest!
Afronden op halve uren, en dan in getalen inplaats van tijd (19,5 ; 8; 16,5)
Ik heb een zooi email adressen (nee ik ga geen spam versturen
)a@hotmail.com
b@hotmail.com
Hoe kan ik ervoor zorgen dat ik alleen de domeinen inclusief apenstaartje te zien krijg?
quote:=RECHTS(A1;LENGTE(A1)-VIND.SPEC("@";A1;1)+1)Op maandag 12 februari 2007 12:13 schreef JortK het volgende:
Vraagje!
Ik heb een zooi email adressen (nee ik ga geen spam versturen
a@hotmail.com
b@hotmail.com
Hoe kan ik ervoor zorgen dat ik alleen de domeinen inclusief apenstaartje te zien krijg?
en deze is nog mooier:
=ALS(ISFOUT(VIND.SPEC("@";A1;1));"onjuist e-mailadres";RECHTS(A1;LENGTE(A1)-VIND.SPEC("@";A1;1)+1))
[ Bericht 6% gewijzigd door Frollo op 12-02-2007 12:24:27 ]
quote:Het is maandag ochtend zullen we maar zeggenOp maandag 12 februari 2007 12:18 schreef Frollo het volgende:
[..]
=RECHTS(A1;LENGTE(A1)-VIND.SPEC("@";A1;1)+1)
En dan heb ik nog een vraagje: kent excel ook een waarde voor een lege cel of moet ik steeds met "" blijven kloten om een cel leeg te laten lijken.
Ik heb een rijtje met lead times en die varieeren dus van 6 weken, 8 weken tot zeg 12 weken. Uiteraard komt 8 weken het meeste voor. Nu wil ik daarvoor graag een normale verdeling tekenen in Excel.
Zo eentje dus maar dan met de echte waarden. Iemand een idee
Ik kijk er de hele tijd langs geloof ik.quote:STAND.NORM.VERD doet de truuk. Je krijgt dan wel de cumulatieve waardes, maar wanneer je die waardes van elkaar aftrekt per interval, kan je die grafiek verkrijgen.Op dinsdag 13 februari 2007 08:53 schreef FJD het volgende:
Nieuwe vraag. Vast een hele stomme.
Ik heb een rijtje met lead times en die varieeren dus van 6 weken, 8 weken tot zeg 12 weken. Uiteraard komt 8 weken het meeste voor. Nu wil ik daarvoor graag een normale verdeling tekenen in Excel.
[afbeelding]
Zo eentje dus maar dan met de echte waarden. Iemand een idee
| 1 2 3 4 5 6 7 8 | ' voert formulier uit voor invoeren van eerste gegevens van de dag Load frmProject frmProject.txtTime.Value = Time frmProject.Show End Function |
Nu geeft het formulier de tijd weer in AM/PM notatie en ik wil gewoon 24H notatie, wie weet waar ik dat kan instellen.
In windows is de tijdsinstelling al standaard 24H dus daar zit het niet in.
Nu wil ik weten hoevaak het getal 24 voorkomt binnen een rij.
Maar omdat ik niet alle cellen in de rij nodig heb, kies ik voor een bereik:
=(AANTAL.ALS((($H3:$I3);($DN3:$DO3);($DU3:$DV3);($EB3:$EC3));24))
Naar wanneer ik dit heb ingevuld krijg ik telkens: #WAARDE!
Ook wanneer ik het bereik zonder tussen-haakjes zet (dus alleen het totale bereik binnen haakjes) krijg ik een foutmelding...
Iemand een oplossing?
quote:Voorlopig zie ik geen andere oplossing dan het op te splitsen in meerdere AANTAL.ALS-formules en die bij elkaar op te tellen:Op dinsdag 13 februari 2007 13:29 schreef wouswous het volgende:
Heb binnen een rij een aantal keer lege cellen, en een aantal met het getal 24 gevulde cellen.
Nu wil ik weten hoevaak het getal 24 voorkomt binnen een rij.
Maar omdat ik niet alle cellen in de rij nodig heb, kies ik voor een bereik:
=(AANTAL.ALS((($H3:$I3);($DN3:$DO3);($DU3:$DV3);($EB3:$EC3));24))
Naar wanneer ik dit heb ingevuld krijg ik telkens: #WAARDE!
Ook wanneer ik het bereik zonder tussen-haakjes zet (dus alleen het totale bereik binnen haakjes) krijg ik een foutmelding...
Iemand een oplossing?
=AANTAL.ALS($H3:$I3;24)+AANTAL.ALS($DN3:$DO3;24)+AANTAL.ALS(etc...)
Ook als je de ranges gezamelijk een naam kan AANTAL.ALS niet met meerdere bereiken overweg dus zul je meerdere AANTAL.ALS-functies moeten gebruiken, zoals Frollo zegt.
[ Bericht 52% gewijzigd door Deetch op 13-02-2007 14:34:49 (oplossing getest en aangepast) ]
quote:Hoeft niet, tenminste, bij mij werkte het gewoon.Op dinsdag 13 februari 2007 14:29 schreef Deetch het volgende:
Bij de functie aantal.als moet het argument 24 volgens mij ook nog tussen aanhalingstekens: "24"
quote:Dat had ik uiteraard ook eerst geprobeerd, maar dan krijg je dezelfde foutmelding.Als je de ranges gezamelijk een naam geeft kun je in de aantal.als functie ipv de meerdere ranges die naam aanroepen.
Hij lijkt het om de een of andere reden niet te snappen. Vandaar mijn omslachtige oplossing dus.(Al is het wel een idee om '24' onder een naam te hangen. Zodat als je later naar een ander getal wilt zoeken, je alleen de constante hoeft te veranderen.)
quote:ik had hem inderdaad niet getest, zie mijn aangepaste post.Op dinsdag 13 februari 2007 14:30 schreef Frollo het volgende:
[..]
Hoeft niet, tenminste, bij mij werkte het gewoon.
[..]
Dat had ik uiteraard ook eerst geprobeerd, maar dan krijg je dezelfde foutmelding.
(Al is het wel een idee om '24' onder een naam te hangen. Zodat als je later naar een ander getal wilt zoeken, je alleen de constante hoeft te veranderen.)
Je kunt me niet helpen met mijn formulieren vraag, hierboven?
quote:OK.Op dinsdag 13 februari 2007 14:36 schreef Deetch het volgende:
ik had hem inderdaad niet getest, zie mijn aangepaste post.
quote:Nee, sorry.Je kunt me niet helpen met mijn formulieren vraag, hierboven?
Ben niet zo'n VBA-held, jij bent er beduidend bedrevener in dan ik.Is de functie FormatDateTime niet iets?
quote:Koning dat je bent. Er staat nu: frmProject.txtTime.Value = FormatDateTime(Time, vbShortTime)Op dinsdag 13 februari 2007 14:41 schreef Frollo het volgende:
[..]
OK.
[..]
Nee, sorry.
Is de functie FormatDateTime niet iets?
quote:Zie edit
vbShortTime geeft tijd volgens hh:mm
vbLongtime geeft tijd volgens hh:mm:ss
quote:gezien
onderaan de kolom staan en dan "=som(" intypen, alle cellen uit de kolom selecteren en dan weer ")" typen
quote:Met voorwaardelijke opmaak en dan als formule opgeven:Op donderdag 22 februari 2007 21:44 schreef Flaccid het volgende:
Als je om en om de de rijen een achtergrond kleur wil geven, kan je dat dan snel doen?
=ALS(REST(RIJ();2)=1;WAAR;ONWAAR)
Dit geeft de oneven rijen de opmaak die je opgeeft, en de even rijen niet.
Het kan vast makkelijker maar het is al laat.
Ik wil graag in Excel een aantal macro's voegen om tot dit resultaat te komen:
- vanuit gegevens wil ik een salarisstrookje laten uitdraaien;
- er moet een loonbelasting aangifte uitgedraaid kunnen worden;
- jaaropgaven voor de medewerkers;
Ik denk dat ik hiervoor bijna dezelfde methode wel kan gebruiken via de macro stijl, maar...
... ik heb die kennis hiervan totaal niet. Via google kom ik op allemaal sites waar dit soort bureau gespecialiseerd in zijn.. Heeft iemand een idee, hoe ik dit het beste kan oplossen?
Alvast bedankt voor jullie reacties.
Ik zou allereerst een extra werkblad maken met daarin de lay out van je salaris strookje.
Vervolgens kun je de variabelen (zoals salaris, inhoudingen etc) allemaal uit een werkblad met alle gegevens opvragen met behulp van de functie vert.zoeken.
Zo krijg je een werkblad dat via een naam of personeelsnummer (of ander uniek identificatienummerl) die je invult in het daarvoor bestemde veld alle andere velden invult.
Tot slot een macro om een gewenst bereik te printen naar de standaard primnter en klaar is Tha_dijkstra.
Bijvoorbeeld:
1 -> 1
61 -> 1:01
120 -> 2:00
3600-> 60:00
AA:BB:CC moet de notatie worden met CC tot de 60 en gaat hij daarover dan moet hij in BB komen, die gaat ook tot de 60 maar elke eenheid van BB is 60 waard. Hetzelfde geld voor AA, is BB groter dan 60 dan moet AA "gevuld" worden. Misschien een beetje een vage uitleg maar het ongeveer hetzelfde als minuten/uren/dagen
(61 seconden is 1 minuut en 1 sec: 1:01 / 500 seconden is 8:20 etc.)
Weet iemand de formule hiervoor zodat ik bij A1 het getal kan invoeren en dat bij bijv. B1 de nieuwe notatie eruit komt?
| 1 |
Indien NL versie vervang CONCATENATE door TEKST.SAMENVOEGEN, IF door ALS en TRUNC door GEHEEL
Zorg er wel voor dat je de formule begrijpt als je hem aan iemand moet uitleggen anders maak je zo'n knullige indruk.
[ Bericht 2% gewijzigd door Deetch op 27-02-2007 08:36:35 ]
De functies in een excel werkblad heten MIINVERSE en MMULT en die roep ik als volgt aan in excel:
| 1 2 | MaMult= Application.WorksheetFunction.MINVERSE(Ma, MaInv) |
MaInv, MaMult en Ma zijn matrices (variable namen)
Nu doet de eerste regel het wel (MINVERSE) maar de tweede niet (MMULT) hoe kan dat en wie kan me verder helpen.
ik heb de volgende :
A1,A2,A3 .. A.. is gevult met een regel
In deze regel staat er 0302/blahblah waar de 0302 de dag van bijv vandaag is
ik wil dat ie heel A afloopt tot ie een leeg velt tegen komt en dan van al die 0302 (maar is een willekeurige data , kan ook 0222/ of 0417/blahuhupoep zijn
Ik wil dus die 0222 los trekken van die regel .. hoe ging dat ook alweer ? ( hoeft geen macro te zijn, mag ook een formule zijn.. iets met left ofzo )
gevindt heheIk wil in een macro in visual basic een aantal matrixfuncties gebruiken.
De functies in een excel werkblad heten MIINVERSE en MMULT en die roep ik als volgt aan in excel:
| 1 2 | MaMult= Application.WorksheetFunction.MMULT(Ma, MaInv) |
MaInv, MaMult en Ma zijn matrices (variabele namen)
Nu doet de eerste regel het wel (MINVERSE) maar de tweede niet (MMULT) hoe kan dat en wie kan me verder helpen.
Ik kom er niet uit, dus ik dacht: [Excel] Het grote excel vragen topic, dan maar.
Mijn excelsheet heeft een kolom A, deze bevat bedragen. Deze bedragen moeten opgetelt worden, maar bedragen waarnaast (kolom B) een "x" staat, die mogen niet mee opgeteld worden.
Het is iets met ALS() denk ik, maar hoe ik dan nog SOM() moet doet is me totaal onduidelijk.
Kan iemand me hier uit de brand helpen?
quote:Moesten matrixfuncties niet tussen accolades? DusOp maandag 5 maart 2007 17:56 schreef Deetch het volgende:
Mijn vorige post was fout maar ik kan hem niet editen dus bij deze nog een keer
Ik wil in een macro in visual basic een aantal matrixfuncties gebruiken.
De functies in een excel werkblad heten MIINVERSE en MMULT en die roep ik als volgt aan in excel:
[ code verwijderd ]
MaInv, MaMult en Ma zijn matrices (variabele namen)
Nu doet de eerste regel het wel (MINVERSE) maar de tweede niet (MMULT) hoe kan dat en wie kan me verder helpen.
| 1 |
quote:=SOM.ALS(B1:B4;"<>x";A1:A4)Op dinsdag 6 maart 2007 16:50 schreef fokME2 het volgende:
Hee mensen,
Ik kom er niet uit, dus ik dacht: [Excel] Het grote excel vragen topic, dan maar.
Mijn excelsheet heeft een kolom A, deze bevat bedragen. Deze bedragen moeten opgetelt worden, maar bedragen waarnaast (kolom B) een "x" staat, die mogen niet mee opgeteld worden.
Het is iets met ALS() denk ik, maar hoe ik dan nog SOM() moet doet is me totaal onduidelijk.
Kan iemand me hier uit de brand helpen?
En dan in plaats van B1:B4 en A1:A4 natuurlijk even de bereiken invullen waar het om gaat.
De formule betekent: zoek in B1:B4 naar de voorwaarde; de voorwaarde is 'niet gelijk aan x'; tel in in A1:A4 de corresponderende cellen op waarvoor de voorwaarde geldt.
[ Bericht 5% gewijzigd door Frollo op 06-03-2007 17:12:00 ]
Hier nog openoffice gebruikers die weten hoe ik dat laatste puntje kan oplossen? (Dus de Openoffice variant op <>x ?)
quote:Ik zal het morgen eens proberen. Thanx alvast.Op dinsdag 6 maart 2007 16:57 schreef Frollo het volgende:
[..]
Moesten matrixfuncties niet tussen accolades? Dus
[ code verwijderd ]
quote:Mmm, héél misschien de aanhalingstekens om de "x" zetten, dus:Op dinsdag 6 maart 2007 17:34 schreef fokME2 het volgende:
Dankjewel, hier kom ik iig een stuk verder mee. Ik werk met Openoffice Calc. Deze geeft echter een fout op "<>x". Als ik "x" gebruik dan krijg ik het omgekeerde effect.
Hier nog openoffice gebruikers die weten hoe ik dat laatste puntje kan oplossen? (Dus de Openoffice variant op <>x ?)
| 1 |
.Voor mijn praktische opdracht wiskunde moet ik een bevokingspiramide maken. Nu heb ik al op google en in de help van Excel gezocht, maar zonder resultaat. Mijn idee was om een grafiek te spiegelen en zo tot twee te komen.
Weten jullie of ik eroverheen heb gelezen en je toch zoiets kunt fabriceren? Daarnaast lukt een normale grafiek opzetten ook niet. Op de Y-as moeten de leeftijdscategorieën komen, maar dat pakt die niet. Op de horizontale as moeten dan natuurlijk de aantallen zelf komen.
BVD
quote:openoffice calc heeft vast ook wel een help functie waarin de syntax van de som.als functie is te vinden.Op dinsdag 6 maart 2007 17:34 schreef fokME2 het volgende:
Dankjewel, hier kom ik iig een stuk verder mee. Ik werk met Openoffice Calc. Deze geeft echter een fout op "<>x". Als ik "x" gebruik dan krijg ik het omgekeerde effect.
Hier nog openoffice gebruikers die weten hoe ik dat laatste puntje kan oplossen? (Dus de Openoffice variant op <>x ?)
frequency distribution
én scatter plot + correlatie coefficient + vergelijking regressielijn?
vervolgens klik je rechts in de grafiek op je lijn en kiest trendllijn toevoegen. Vervolgens kun je bij de eigenschappen van je trendlijn de R2 en vergelijking weer laten geven.
Ik zou graag alle data van alle zaterdagen van jan. 2005 tot heden in 1 kolom willen hebben. Normaal als je een datum invult en de cel vanaf de hoek sleept, krijg je alle data, maar ik wil dus alleen de zaterdagen hebben. Kan dit, zo ja hoe?
[ Bericht 2% gewijzigd door Burbujas op 11-03-2007 18:05:09 (Nederlands, zo moeilijk :\')) ]
quote:Eerst even handmatig de eerste twee zaterdagen (1 jan en 8 jan) onder elkaar invoeren, dan selecteer je allebei die cellen en dan kun je gewoon zoals vanouds het hoekje slepen.Op zondag 11 maart 2007 15:28 schreef Burbujas het volgende:
Ik weet niet of dit mogelijk is met Excel maar ik vraag het toch.
Ik zou graag alle data van alle zaterdagen van jan. 2005 tot heden in 1 kolom willen hebben. Normaal als je een datum invult en de cel vanaf de hoek sleept je, dan krijg je alle data, maar ik wil dus alleen de zaterdagen hebben. Kan dit, zo ja hoe?
quote:Yup gelukt, thnxOp zondag 11 maart 2007 16:42 schreef Frollo het volgende:
[..]
Eerst even handmatig de eerste twee zaterdagen (1 jan en 8 jan) onder elkaar invoeren, dan selecteer je allebei die cellen en dan kun je gewoon zoals vanouds het hoekje slepen.
!! Zag mijn zondagavond al aan me voorbij gaan, als ik dit handmatig had moeten doen 
Ik wil graag de omzetten per maand berekenen. Nou is dat niet zo moeilijk (/12) , maar ik wil dat Excel de omzet per maand bijstelt n.a.v. de behaalde resultaten.
Voorbeeldje: 120 euro jaaromzet , 10 euro per maand, maar als ik dan 8 euro per maand omzet, hoeveel moet ik dan in de andere maanden doen om die 120 euro nog te halen.
Dit is natuurlijk een simpel voorbeeld, maar het gaat om het principe. Is hier iets voor in excel? Heb het zelf wel handmatig gedaan, maar dan moet het voor elke maand apart een formule berekenen.
Bedankt voor het nadenkwerk!
eronder zet je
kolom A: maandnamen
kolom B: behaalde omzetten
kolom C: benodigde omzetten
In kolom B zet je de behaalde omzet of als deze nog niet bekend is laat je de cel bij die maand leeg
in cel b14 zet je =som(b2:b13)
in cel c14 zet je =som(c2:c13)
in kolom C zet je in cel c2 de formule: =als(b2="";(120-$b$14)/aantal.lege.cellen($b$2:$b$13);b2)
en deze formule kopieer je naar cellen b3 tm b13
Als het goed is staat nu in cel c14 120.
Hier mijn vraag.
Ik wil een conversie uitrekenen van het aantal verkopen op een bepaald aantal mensen.
Dus stel dat ik 100 mensen heb in mijn winkel, en ik verkoop 5 producten. Dan zou mijn conversie 1:20 zijn
However, Excel geeft dit alleen weer als 20.
Plus op het moment dat ik 100 bezoekers heb en 0 verkopen werkt het niet meer. Dan moet hij dus 0:100 weergeven.
Graag eventjes een duwtje in de hele goede richting
| 1 |
quote:lijkt me een prima duwtje.
quote:THnx, ga hem morgen even proberen
Ik heb hier bijvoorbeeld .rdp bestanden die als je erop klikt wel rechtstreeks verbinden naar die server maar als ik die als hyperlink in excel zet, dan krijg ik een melding dat er geen toepassing is geselecteerd om het te openen.
en met system32/mstc.exe kom je ook niet echt verder, omdat je dan gewoon ngo het ip adres moet invullen enzo.
Iemand?
quote:Thnx, bijna goed. hij heeft hem nu alleen precies andersom weer, dus ipv 1:50 zegt hij 50:1
quote:Thanks man, werkt geweldig!Op dinsdag 13 maart 2007 10:04 schreef Deetch het volgende:
1e rij: maand, behaald, benodigd
eronder zet je
kolom A: maandnamen
kolom B: behaalde omzetten
kolom C: benodigde omzetten
In kolom B zet je de behaalde omzet of als deze nog niet bekend is laat je de cel bij die maand leeg
in cel b14 zet je =som(b2:b13)
in cel c14 zet je =som(c2:c13)
in kolom C zet je in cel c2 de formule: =als(b2="";(120-$b$14)/aantal.lege.cellen($b$2:$b$13);b2)
en deze formule kopieer je naar cellen b3 tm b13
Als het goed is staat nu in cel c14 120.
quote:Probeer eens: "system32/mstc.exe -config:xxxx.rdp"Op donderdag 15 maart 2007 11:26 schreef cw2cu het volgende:
Is het mogelijk om in excel een snelkoppeling te maken naar een vpn verbinding zodat je gelijk het aanmeldscherm ziet van die server?
Ik heb hier bijvoorbeeld .rdp bestanden die als je erop klikt wel rechtstreeks verbinden naar die server maar als ik die als hyperlink in excel zet, dan krijg ik een melding dat er geen toepassing is geselecteerd om het te openen.
en met system32/mstc.exe kom je ook niet echt verder, omdat je dan gewoon ngo het ip adres moet invullen enzo.
Iemand?
meer hulp via google zoek opdracht
quote:Graag nog eventjes wat hulp bij dit probleem.Op dinsdag 13 maart 2007 15:13 schreef Wytze het volgende:
Zojuist verplaatst van [Excel] Een Conversie uitrekenen
Hier mijn vraag.
Ik wil een conversie uitrekenen van het aantal verkopen op een bepaald aantal mensen.
Dus stel dat ik 100 mensen heb in mijn winkel, en ik verkoop 5 producten. Dan zou mijn conversie 1:20 zijn
However, Excel geeft dit alleen weer als 20.
Plus op het moment dat ik 100 bezoekers heb en 0 verkopen werkt het niet meer. Dan moet hij dus 0:100 weergeven.
Graag eventjes een duwtje in de hele goede richting :)
Ralphie kwam al met de volgende code
| 1 |
En deze werkt bijna :) Hij geeft alleen 50:1 weer ipv 1:50,
Wat is nu de juist formule om hem 1:50 weer te laten geven ?
| 1 |
en dan A4 vervangen door de code van ralphie
quote:Thnx :) De code is al heel relaxt gewordenOp maandag 19 maart 2007 16:35 schreef Deetch het volgende:
[ code verwijderd ]
en dan A4 vervangen door de code van ralphie
| 1 |
Alleen, geeft ie de conversie nu weer als 67:200 ipv waar die het daadwerkelijk ook deelt. Maar jouw bijdrage doet iig wattie moet doen, thnx :)
OK, nou dat is dus in ieder geval wat ik wil.
Ik zie dus wel dattie het bij 106 klanten 2 verkopen wel netjes doet 1:53, maar bij 225 klanten 2 verkopen zegt ie 2:225
Zou je me nog even willen helpen om alles op 1:xxx te krijgen of indien 0 verkopen 0:xxx
cel a2: aantal verkopen
| 1 |
eventueel kun je a1/a2 nog afronden maar die functie moet je zelf maar ff opzoeken want heb geen excel bij de hand. Zo is ie veel simpeler maar dan krijg je dus decimale getallen in je verkoopverhouding wat niet zo netjes staat.
klaar
quote:Deetch is mijn grote heldOp maandag 19 maart 2007 21:32 schreef Deetch het volgende:
cel a1: aantal bezoekers
cel a2: aantal verkopen
[ code verwijderd ]
eventueel kun je a1/a2 nog afronden maar die functie moet je zelf maar ff opzoeken want heb geen excel bij de hand. Zo is ie veel simpeler maar dan krijg je dus decimale getallen in je verkoopverhouding wat niet zo netjes staat.
klaar
quote:Ja, hij is goed hè?
quote:Die laatste had je ook zelf wel kunnen bedneken toch.
Oh ja en:
Ben wat meer met draaitabellen bezig nu, en als ik er 1 verwijder (via "Verwijderen"), blijft hij er volgens mij bij dat de lege cellen nog steeds een draaitabel moeten voorstellen. Daardoor kan ik een eventuele nieuwe draaitabel daar niet neerzetten, en heb ik dus zware problemen met de opmaak!
Hoe kan ik die cellen echt leegmaken, of hoe kan ik een draaitabel zo verwijderen dat ik geen "left-overs" heb..
BVD again!
Ik heb een voetbal-toto opgezet met 17 deelnemers. Iedere deelnemer heeft zijn eigen tabblad waar alle ingevulde uitslagen in staan. Onderin wordt alles opgeteld en staat een totaalscore. Nu wil ik dat in een leeg, volgend tabblad de stand wordt gemaakt (automatisch gerangschikt). Iemand een tip?
en wel met het volgende :Ik ben bezig om de kantonrechtsformule in excel te zetten zodat excel het voor me kan berekenen.
Ik kom echter met teveel statements in IF. Iemand die me kan helpen?
------
Kantonrechtersformule voorbeeld berekening
Een 51-jarige senior manager wordt na veertien jaar dienstverband ontslagen. Zijn bruto maandloon bedraagt ¤ 5.000,-. Zijn werkgever dient bij de kantonrechter een ontbindingsverzoek in. De rechter oordeelt dat er geen factoren zijn die een ontbinding in de weg staan. De ontbinding van de arbeidsovereenkomst volgt en de werknemer krijgt een vergoeding van ¤ 100.000,-.
Deze vergoeding is gebaseerd op de formule A x B x C
Waarbij A = 20, B = ¤ 5.000,- en C = 1.
Dus de hoogte van de gouden handdruk is:
20 x ¤ 5.000,- x 1 = ¤ 100.000,-.
A wordt als volgt berekend:
(3 x 1) + (10 x 1.5) + (1 x 2)= 20 dienstjaren
In tabelvorm ziet dit er zo uit:
Leeftijd Aantal jaar gewerkt - Aantal gewogen dienstjaren
Tot 40e jaar 3 - 3
Tussen 40e en 50e jaar 10 - 15
Vanaf 50e jaar 1 - 2
Totaal 14 - 20
B wordt als volgt berekend:
Het bruto maandloon inclusief 8akantiegeld en de dertiende maand bedraagt ¤ 5.000,-.
C wordt als volgt berekend:
Het betreft een neutrale ontbinding. De correctiefactor is 1. (kan ook 1,5 of 2 zijn )
-----
Ik kom er dus niet uit
Iemand die tijd heeft en me op weg kan helpen graag !
ps. Eventuele andere uitleg staat hier mocht die iets duidelijker zijn http://www.goudenhanddrukspecialist.nl/deepcontent/39.html
quote:Uitgaande van een gelijke opmaak van elk tabblad en dat de totaalscore in cel B20 staat.Op donderdag 22 maart 2007 15:11 schreef Damzkieee het volgende:
Ik zit nog steeds met een vraag:
Ik heb een voetbal-toto opgezet met 17 deelnemers. Iedere deelnemer heeft zijn eigen tabblad waar alle ingevulde uitslagen in staan. Onderin wordt alles opgeteld en staat een totaalscore. Nu wil ik dat in een leeg, volgend tabblad de stand wordt gemaakt (automatisch gerangschikt). Iemand een tip?
Geef de tabbladen de naam van de speler.
Een nieuw tabblad maken met in de eerste kolom de naam van de verschillende tabbladen beginnend bij cel A2
In de cel ernaast zet je de formule en die kopieer je door naar beneden
| 1 |
In cel A1 zet je "Speler" en in cel 2 zet je "Score".
vervolgens in de lijst staan en dan sorteren op Score (Data, sorteren)
Ik weet niet of dat laatste automatisch kan. je kunt evt. bovenstaande handeling opnemen in een macro en een knop naast de tabel maken die de macro start.
quote:Wat zijn nu je invoervariabelen?Op donderdag 22 maart 2007 17:25 schreef realbase het volgende:
-- kantonrechters verhaal --
Ik kom er dus niet uit
Iemand die tijd heeft en me op weg kan helpen graag !
ps. Eventuele andere uitleg staat hier mocht die iets duidelijker zijn http://www.goudenhanddrukspecialist.nl/deepcontent/39.html
Cel B2: Leeftijd
Cel B3: Duur dienstverband
Cel B4: Gewogen dienstjaren (factor A) [zie formule]
Cel B5: Maandloon (factor B)
Cel B6: Correctiefactor (factor C)
Cel B8: Vergoeding [zie formule]
| 1 2 3 4 5 | =IF(B2-B3<40;40-(B2-B3)*1;0*1)+IF(B2-B3<50;IF(50-(B2-B3)>10;10*1.5;(50-(B2-B3))*1.5);0)+IF(B2>=50;(B2-50)*2;0*2) Formule in B8 =B4*B5*B6 |
quote:Deetsch.. thnx maar je code hangt op de eerst 40Op donderdag 22 maart 2007 18:13 schreef Deetch het volgende:
[..]
Wat zijn nu je invoervariabelen?
Cel B2: Leeftijd
Cel B3: Duur dienstverband
Cel B4: Gewogen dienstjaren (factor A) [zie formule]
Cel B5: Maandloon (factor B)
Cel B6: Correctiefactor (factor C)
Cel B8: Vergoeding [zie formule]
[ code verwijderd ]
quote:excuusOp donderdag 22 maart 2007 21:02 schreef Deetch het volgende:
bij mij werkt ie. Wat gebeurt er precies? Want je reply laat aan duidelijkheid iets te wensen over.
als ik een leeftijd in B2 zet
Aantal dienstjaren in B3
formule in B4 geef excel een error
The formula you typed contains an error en dan wordt de eerste 40 in de formule blauw ( volgens mij als in waar de fout zit
)Leeftijd, start van baan
>50, >50
>50, 40-50
>50, <40
40-50, 40-50
40-50, <40
<40, <40
Dan krijg je deze 6 formules die je moet optellen en de rest wijst zich wel.
| 1 2 3 4 5 6 | =ALS(EN(B2>=50;B2-B3<50;B2-B3>=40);(B2-50)*2+(50-(B2-B3))*1,5;0) =ALS(EN(B2>=50;B2-B3<40);(B2-50)*2+10*1,5+40-(B2-B3)*1;0) =ALS(EN(B2<50;B2>=40;B2-B3<50;B2-B3>=40);B3*1,5;0) =ALS(EN(B2<50;B2>=40;B2-B3<40);40-(B2-B3)+(B2-40)*1,5;0) =ALS(B2<40;B3;0) |
of in een keer
| 1 |
Het kan vast korter met geneste als loops maar dit was het overzichtelijkste.
Ik heb thuis een NL versie van Excel en op mijn werk een EN versie, lekker makkelijk
dan werkt die lange formule niet .. ( kan ook komen omdat ik nu achter een Win 2k7 office zit
)ik kijk morgen even op mn werk
quote:nop.. en het is ook weer de eerste waarde ( 50 in dit geval )Op donderdag 22 maart 2007 22:38 schreef Deetch het volgende:
1,5 vervangen door 1.5
werkt het bij jou wel ?
quote:realbase AT gmail dot comOp donderdag 22 maart 2007 22:49 schreef Deetch het volgende:
tried and tested met excel 2000. Kan ik de spreadsheet ergens heen mailen?
Heb je hem ook met die ene regel code ? ( aangezien ik soms wel 100 medewerkers onder elkaar heb en bij mij de info op een rij staat en niet in een kolom
)Zo nu de kroeg in. Succes ermee.
[ Bericht 64% gewijzigd door Deetch op 22-03-2007 23:07:15 (slowchat beperking) ]
Morgen gelijk toetsen
Het werkt namelijk !! super thnx
quote:Okay dat kopieren naar het lege tabblad wil wel, maar nu nog het sorteren. Ik wil graag dat dat automatisch gaat en dat de namen er dan bij verplaatsen, zodat ze bij de goede score blijven staan.Op donderdag 22 maart 2007 18:00 schreef Deetch het volgende:
[..]
Uitgaande van een gelijke opmaak van elk tabblad en dat de totaalscore in cel B20 staat.
Geef de tabbladen de naam van de speler.
Een nieuw tabblad maken met in de eerste kolom de naam van de verschillende tabbladen beginnend bij cel A2
In de cel ernaast zet je de formule en die kopieer je door naar beneden
[ code verwijderd ]
In cel A1 zet je "Speler" en in cel 2 zet je "Score".
vervolgens in de lijst staan en dan sorteren op Score (Data, sorteren)
Ik weet niet of dat laatste automatisch kan. je kunt evt. bovenstaande handeling opnemen in een macro en een knop naast de tabel maken die de macro start.