DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Ah dus aanvullen tot 80 karakters.
Ik heb het zo gedaan, met een eigen functie:
Ga naar Visual Basic editor (Alt-F11), en voeg een Module toe (rechtermuisknop op je bestandsnaam, Insert -> Module).
Voeg daar deze code toe:
Nu kan je dmv VASTELENGTE(string) iets aanvullen tot 80 karakters (spaties aan het einde).
A1 = Pietersen
A2 = VASTELENGTE(A1)
A3 = LEN(A2)
A3 geeft dan waarde 80.
Ik heb het zo gedaan, met een eigen functie:
Ga naar Visual Basic editor (Alt-F11), en voeg een Module toe (rechtermuisknop op je bestandsnaam, Insert -> Module).
Voeg daar deze code toe:
| 1 2 3 4 5 6 7 8 | Dim b As String * 80 b = a VasteLengte = b End Function |
Nu kan je dmv VASTELENGTE(string) iets aanvullen tot 80 karakters (spaties aan het einde).
A1 = Pietersen
A2 = VASTELENGTE(A1)
A3 = LEN(A2)
A3 geeft dan waarde 80.
Onderstaande macro kopieert de regels die voldoen aan je zoekcriterium naar een nieuwe sheetquote:Op woensdag 9 december 2009 09:00 schreef Harmvt het volgende:
Ok, vergeet even die 6 bestanden. Het eerste dat ik wil bewerkstelligen is om de gegevens uit dat bestand dat ik in bovenstaande posts heb geupload te verzamelen in 1 verzamelsheet. Dat met die 6 bestanden lijkt er erg op, maar is de volgende stap.
Bovengenoemd bestand krijg ik wekelijks toegestuurd en ik wil gewoon dat alle gegevens toegevoegd worden aan 1 verzamelsheet, zodat ik er vervolgens grafieken etc op los kan laten om trends te ontdekken.
Handmatig kopiëren en plakken zou het meest voor de hand liggend zijn, maar ik wil dit trucje dus voor nog meer doeleinden gaan gebruiken. Zoals dat met die 6 bestanden. Dit alles moet ook nog eens fool-proof zijn voor de mensen die er mee gaan werken.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | ' ' FokTest Macro ' Dim datum, zoekdatum, bereik As String Dim startpunt, eindpunt As Integer datum = InputBox("Geef datum in te voeren bestand:(ddmmjj)") 'plaats hier je bestand open code zoekdatum = Left(datum, 2) & "/" & Mid(datum, 3, 2) & "/20" & Right(datum, 2) 'zoekdatum is datum waarop in excelsheet gezocht moet worden zoekdatum = DateValue(zoekdatum) 'datevalue converteert deze tekst naar een "echte datum" 'open bestand om in te zoeken Windows("WORegelInternWeek_091207(1).xls").Activate Range("A1").Select Do While ActiveCell.Value <> zoekdatum ActiveCell.Offset(1, 0).Select Loop 'nu is eerste cel met zoekdatum gevonden startpunt = ActiveCell.Row Do Until ActiveCell.Value <> zoekdatum ActiveCell.Offset(1, 0).Select Loop 'nu is laatste cel (eentje verder) met zoekdatum gevonden eindpunt = ActiveCell.Row - 1 Rows(startpunt & ":" & eindpunt).Select Selection.Copy Windows("Book2").Activate 'verzamelsheet openen Range("A10000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select 'eerste lege regel zoeken vanaf onderen ActiveSheet.Paste End Sub |
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Ik heb een cel met een formule waar een waarde uit komt.( 
) Als de waarde onder de 200 komt moet hij rood worden en erboven groen.
Hoe doe ik dit?
) Als de waarde onder de 200 komt moet hij rood worden en erboven groen.Hoe doe ik dit?
érg!quote:Op woensdag 9 december 2009 21:52 schreef Mendeljev het volgende:
Waarom zie ik dit topic nu pas? Hoe geniaal is deze reeks?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Voorwaardelijke opmaak. Te vinden in het lint in Excel 2007quote:Op woensdag 9 december 2009 21:32 schreef Cracka-ass het volgende:
Ik heb een cel met een formule waar een waarde uit komt.(
Hoe doe ik dit?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Dit is de Fokking meest geniale reeks ever. Hij is zo fokking geniaal dat deze fokking geniale reeks opgenomen is in het guinessbook of records als meest fokking geniale reeks ever.quote:Op woensdag 9 december 2009 21:52 schreef Mendeljev het volgende:
Waarom zie ik dit topic nu pas? Hoe geniaal is deze reeks?
Verder heerst deze reeks zodanig omdat er alleen echte bazen in rondwaren.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Thanks, ik ga ernaar kijken. Ik denk dat een tussenstap via Access toch gebruiksvriendelijker is.quote:Op woensdag 9 december 2009 13:57 schreef DaFan het volgende:
Ah dus aanvullen tot 80 karakters.
Ik heb het zo gedaan, met een eigen functie:
Ga naar Visual Basic editor (Alt-F11), en voeg een Module toe (rechtermuisknop op je bestandsnaam, Insert -> Module).
Voeg daar deze code toe:
[ code verwijderd ]
Nu kan je dmv VASTELENGTE(string) iets aanvullen tot 80 karakters (spaties aan het einde).
A1 = Pietersen
A2 = VASTELENGTE(A1)
A3 = LEN(A2)
A3 geeft dan waarde 80.
Excel 2003 NL. Ik wil graag in een grafiek met een trendlijn die 2 periodes vooruit loopt, de labels op de X-as toevoegen voor deze extra periodes.
Voorbeeld:
Hier zou ik dus in de grafiek onder de X-as ook Apr en Mei willen hebben.
Al geprobeerd:
- apr en mei in cellen E1 en F1 ingetikt en grafiekgebied uitgebreid -> foutmelding
- de cellen daaronder met nullen gevuld en grafiekgebied uitgebreid -> trendlijn klopt niet meer
Ik kom er niet uit, maar zou denken dat het wel zou moeten kunnen... Iemand een idee? Alvast dank!
Voorbeeld:
Hier zou ik dus in de grafiek onder de X-as ook Apr en Mei willen hebben.
Al geprobeerd:
- apr en mei in cellen E1 en F1 ingetikt en grafiekgebied uitgebreid -> foutmelding
- de cellen daaronder met nullen gevuld en grafiekgebied uitgebreid -> trendlijn klopt niet meer
Ik kom er niet uit, maar zou denken dat het wel zou moeten kunnen... Iemand een idee? Alvast dank!
In office 2007 werkt dat wel gewoon door in E1 en F1 apr en may te zetten en de cellen eronder leeg. In 2003 geen idee.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
En nulwaarden negeren aanvinken?quote:
Excel 2003 NL. Ik wil graag in een grafiek met een trendlijn die 2 periodes vooruit loopt, de labels op de X-as toevoegen voor deze extra periodes.
Voorbeeld:
[ afbeelding ]
Hier zou ik dus in de grafiek onder de X-as ook Apr en Mei willen hebben.
Al geprobeerd:
- apr en mei in cellen E1 en F1 ingetikt en grafiekgebied uitgebreid -> foutmelding
- de cellen daaronder met nullen gevuld en grafiekgebied uitgebreid -> trendlijn klopt niet meer
Ik kom er niet uit, maar zou denken dat het wel zou moeten kunnen... Iemand een idee? Alvast dank!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hm ja ik merk nu dat als ik van tevoren al apr en mei erbij zet, en dan pas de grafiek genereer (en daarna de trendlijn), dat het wel goed gaat, ook in 2003. Alleen achteraf aanpassen lijkt dus niet te lukken.quote:Op donderdag 10 december 2009 11:49 schreef Deetch het volgende:
In office 2007 werkt dat wel gewoon door in E1 en F1 apr en may te zetten en de cellen eronder leeg. In 2003 geen idee.
Probleem opgelost dus, dank!
wtfquote:Op donderdag 10 december 2009 10:30 schreef Deetch het volgende:
[..]
Dit is de Fokking meest geniale reeks ever. Hij is zo fokking geniaal dat deze fokking geniale reeks opgenomen is in het guinessbook of records als meest fokking geniale reeks ever.
Verder heerst deze reeks zodanig omdat er alleen echte bazen in rondwaren.
Denk je dat =VASTELENGTE() niet te snappen is?quote:Op donderdag 10 december 2009 11:04 schreef Stpan het volgende:
[..]
Thanks, ik ga ernaar kijken. Ik denk dat een tussenstap via Access toch gebruiksvriendelijker is.
Excel 2007, Vista.
Ik heb een tab met enkele gegevens. Deze gegevens moet ik in een ander tabblad hebben. Nu staat in tab 1 een datum, welke in een zin in tab 2 wil kopieeren.
De zin is (bv): Werknemer treedt in dienst van werkgever met ingang van [DATUM UIT TAB 1). De werkzaamheden bestaan uit blablabla.
Iemand een idee?
Ik heb een tab met enkele gegevens. Deze gegevens moet ik in een ander tabblad hebben. Nu staat in tab 1 een datum, welke in een zin in tab 2 wil kopieeren.
De zin is (bv): Werknemer treedt in dienst van werkgever met ingang van [DATUM UIT TAB 1). De werkzaamheden bestaan uit blablabla.
Iemand een idee?
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
"Werknemer treedt in dienst van werkgever met ingang van " & Blad1!A1 & "De werkzaamheden bestaan uit blablabla.
Als ik hem letterlijk c/p doet hij het niet.quote:Op donderdag 10 december 2009 13:58 schreef DaFan het volgende:
"Werknemer treedt in dienst van werkgever met ingang van " & Blad1!A1 & "De werkzaamheden bestaan uit blablabla.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
moet nog een = voor en de datum moet idd op blad1, cel 1 staan en ook nog een " aan het eind
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Of ik moet blad1 vervangen door de echte naam en cel neem ik aanquote:Op donderdag 10 december 2009 14:42 schreef Deetch het volgende:
moet nog een = voor en de datum moet idd op blad1, cel 1 staan en ook nog een " aan het eind
En wara moet de =? Aan begin van de regel, of voor "?
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
Sorry de datum moet ook nog naar een tekststring vertaald worden.
Sheet1!A1 is de celverwijzing, als je datum ergens anders staat dan alszodanig aanpassen
Indien je NL versie van office gebruikt:
TEXT=TEKST en misschien dat je het format "dd/mm/yyyy" nog naar wens moet aanpassen.
| 1 |
Sheet1!A1 is de celverwijzing, als je datum ergens anders staat dan alszodanig aanpassen
Indien je NL versie van office gebruikt:
TEXT=TEKST en misschien dat je het format "dd/mm/yyyy" nog naar wens moet aanpassen.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Alvast bedankt voor de moeite! Ik ga het aankomende maandag proberen!quote:Op woensdag 9 december 2009 18:19 schreef Deetch het volgende:
Onderstaande macro kopieert de regels die voldoen aan je zoekcriterium naar een nieuwe sheet
[ code verwijderd ]
-edit- te laat 
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
Die yyyy hangt zelfs gewoon af van de taal die bij je windows is ingesteld. we werken hier allemaal met een engelse excel, maar doordat windows soms franstalig en soms nederlandstalig staat ingesteld, werkt die code niet steeds. Erg vervelend.quote:Op donderdag 10 december 2009 14:53 schreef Deetch het volgende:
Sorry de datum moet ook nog naar een tekststring vertaald worden.
[ code verwijderd ]
Sheet1!A1 is de celverwijzing, als je datum ergens anders staat dan alszodanig aanpassen
Indien je NL versie van office gebruikt:
TEXT=TEKST en misschien dat je het format "dd/mm/yyyy" nog naar wens moet aanpassen.
En nog niet...
Ik heb nu:
"Werknemer treedt in dienst van Werkgever in de functie van Uitzendkracht met ingang van " & TEKST(INVOERSCHERM!C12,"dd/mm/jjjj") & "
Het tabblad/bronblad is INVOERSCHERM, en de datum staat in cel C12.
Als ik dit doe wordt C12," automatisch geselecteerd en krijg ik een melding: TEKST(waarde; notatie_tekst)
Ik heb nu:
"Werknemer treedt in dienst van Werkgever in de functie van Uitzendkracht met ingang van " & TEKST(INVOERSCHERM!C12,"dd/mm/jjjj") & "
Het tabblad/bronblad is INVOERSCHERM, en de datum staat in cel C12.
Als ik dit doe wordt C12," automatisch geselecteerd en krijg ik een melding: TEKST(waarde; notatie_tekst)
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
