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.
Tnx allquote:Op donderdag 10 december 2009 15:23 schreef DaFan het volgende:
Komma wordt puntkomma, het werkt bij mij.
Puntkomma was het inderdaad, en de spaties weglaten.
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.
2 simpele vragen weer 
1 Wat voor macro moet ik aan mijn knop hangen om naar de volgende tab te gaan ? (die rechts ervan dus)
2 Hoe kan ik (makkenlijk) een aantal waardes optellen die op verschillende tabs staan ? (wel in dezelfde cel steeds)
1 Wat voor macro moet ik aan mijn knop hangen om naar de volgende tab te gaan ? (die rechts ervan dus)
2 Hoe kan ik (makkenlijk) een aantal waardes optellen die op verschillende tabs staan ? (wel in dezelfde cel steeds)
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
1.
2.
Succes
| 1 2 3 4 5 | Sheets(ActiveSheet.Index + 1).Activate End Sub |
2.
| 1 2 3 4 5 6 7 8 9 | For i = 1 To Application.Sheets.Count a = Sheets( i).Range("A1").Value + a Next i Range("B1").Value = a End Sub |
Succes
Nu heb ik nog een misschien moeilijkere ? vraag.
Kan ik als ik 1 tab heb. Deze heel snel een keer of 70 klonen ? Wil exact dezelfde tab hebben, maar dan bv 70x in een excel doc. Nu moet de naam dus wel logisch oplopend zijn. Dus bv: auto1, auto2. enz.
Kan dat ook ?
Kan ik als ik 1 tab heb. Deze heel snel een keer of 70 klonen ? Wil exact dezelfde tab hebben, maar dan bv 70x in een excel doc. Nu moet de naam dus wel logisch oplopend zijn. Dus bv: auto1, auto2. enz.
Kan dat ook ?
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Vraagje
heb Excel 2007 en heb allemaal trackingnummers die ik automatisch wil kunnen doorlaten klikken naar de trackingwebsite als ik er op klik.
Met welke functie kan ik dat oplossen?
Ik ben de grootste n00b
heb Excel 2007 en heb allemaal trackingnummers die ik automatisch wil kunnen doorlaten klikken naar de trackingwebsite als ik er op klik.
Met welke functie kan ik dat oplossen?
Ik ben de grootste n00b
quote:Op zaterdag 12 december 2009 16:55 schreef znarch het volgende:
Nu heb ik nog een misschien moeilijkere ? vraag.
Kan ik als ik 1 tab heb. Deze heel snel een keer of 70 klonen ? Wil exact dezelfde tab hebben, maar dan bv 70x in een excel doc. Nu moet de naam dus wel logisch oplopend zijn. Dus bv: auto1, auto2. enz.
Kan dat ook ?
| 1 2 3 4 | Sheets("Blad1").Copy ActiveWorkbook.Close savechanges:=True, Filename:="auto"&i next |
[ Bericht 19% gewijzigd door Joooo-pi op 12-12-2009 19:28:33 ]
heitieh
Werkt perfect. Alleen maakt hij geen 70 tabs aan maar 70 nieuwe excel bestandenquote:
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Ghehe jooo-pi nice try :p
tis niet zo lastig, als je de code aanpast lukt het jezelf ook wel.
Ik heb geen pc bij de hand...sorry
tis niet zo lastig, als je de code aanpast lukt het jezelf ook wel.
Ik heb geen pc bij de hand...sorry
ik dacht dat je dat wildequote:Op zaterdag 12 december 2009 19:45 schreef znarch het volgende:
[..]
Werkt perfect. Alleen maakt hij geen 70 tabs aan maar 70 nieuwe excel bestanden
heitieh
dan werkt dit vast beter:
[ Bericht 4% gewijzigd door Joooo-pi op 12-12-2009 21:22:47 (next i is beter) ]
| 1 2 3 4 | Sheets("Blad1").Copy After:=Sheets( i ) Sheets(1 + i).Name = "auto" & i Next i |
[ Bericht 4% gewijzigd door Joooo-pi op 12-12-2009 21:22:47 (next i is beter) ]
heitieh
Het ligt aan mij denk ik, maar hij maakt er geen 70, maar gewoon 1 kopie aan. Hmm, wat ben ik er ook slecht in 
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
raar, ik zet em gewoon nog es bij mij in excel en het werkt gewoon.quote:Op zaterdag 12 december 2009 20:50 schreef znarch het volgende:
Het ligt aan mij denk ik, maar hij maakt er geen 70, maar gewoon 1 kopie aan. Hmm, wat ben ik er ook slecht in
welke versie gebruik jij? Ik heb 2007 gebruikt hiervoor.
heitieh
Iemandquote:Op zaterdag 12 december 2009 18:20 schreef Poepoog het volgende:
Vraagje
heb Excel 2007 en heb allemaal trackingnummers die ik automatisch wil kunnen doorlaten klikken naar de trackingwebsite als ik er op klik.
Met welke functie kan ik dat oplossen?
Ik ben de grootste n00b
Gaat om een URL waarachter automagisch een nummer geplakt moet worden. www.nummerkomthierachter.nl/track.jps[nummer]
Dan zou je het heel simpel nog op kunnen lossen. Doe "macro opnemen" en maak een kopie van het werkblad: rechts klikken op de tab en selecteer "blad kopieren of verplaatsen" en vink "kopie maken" aan. Vervolgens klik je rechts op het nieuwe blad en selecteer "Naam wijzigen". Daarna stop je de macro opname en zet je de for loop er omheen.quote:Op zaterdag 12 december 2009 22:13 schreef znarch het volgende:
Ik zal wel iets fout gedaan hebben, ik zal morgen eens kijken
for i = 1 to 70
<opgenomen macro>
next i
Dat stukje met die naam haal je ff uit mijn vorige post: ="auto" & i
Zo heb ik het ook ff gedaan. Ik weet natuurlijk niet alles uit mijn hoofd
[ Bericht 1% gewijzigd door Joooo-pi op 13-12-2009 11:48:32 ]
heitieh
Bij 2 bedoelde ik eigenlijk gewoon een formule om te tellen :@ Ik las op internet dat je zo kunt tellen in een aantal tabs (als het om dezelfde cel gaat)quote:Op zaterdag 12 december 2009 09:32 schreef DaFan het volgende:
1.
[ code verwijderd ]
2.
[ code verwijderd ]
Succes :s)
| 1 |
Maar die gaat huilen omdat er in mijn tabnamen spaties staan -O-
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
heb je een ' om je tabnamen heen gezet?quote:
[..]
Bij 2 bedoelde ik eigenlijk gewoon een formule om te tellen
[ code verwijderd ]
Maar die gaat huilen omdat er in mijn tabnamen spaties staan
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]
quote:
[..]
heb je een ' om je tabnamen heen gezet?
hehe, niet bij nagedacht 
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Hallo,
ik heb een formuliertje gemaakt met checkboxes en radiobuttons. Nu heeft mijn collega dit getest en hij zegt dat hij de radiobuttons niet kan selecteren. Nu blijkt dat hij in de ontwerpmodus zit. 2 vragen hierover:
1) Als ik een formulier beveilig wordt dan niet afgedwongen dat de ontwerpmodus wordt uitgeschakeld?
2) Wat moet het macroniveau zijn als je Zijn macro's nodig als je de radiobutton gebruikt van de "werkset besturingselementen"?
thx alvast!
ik heb een formuliertje gemaakt met checkboxes en radiobuttons. Nu heeft mijn collega dit getest en hij zegt dat hij de radiobuttons niet kan selecteren. Nu blijkt dat hij in de ontwerpmodus zit. 2 vragen hierover:
1) Als ik een formulier beveilig wordt dan niet afgedwongen dat de ontwerpmodus wordt uitgeschakeld?
2) Wat moet het macroniveau zijn als je Zijn macro's nodig als je de radiobutton gebruikt van de "werkset besturingselementen"?
thx alvast!
Volgens mij wel.quote:
Hallo,
ik heb een formuliertje gemaakt met checkboxes en radiobuttons. Nu heeft mijn collega dit getest en hij zegt dat hij de radiobuttons niet kan selecteren. Nu blijkt dat hij in de ontwerpmodus zit. 2 vragen hierover:
1) Als ik een formulier beveilig wordt dan niet afgedwongen dat de ontwerpmodus wordt uitgeschakeld?
Gemiddeld of laag, bij gemiddeld wordt telkens de vraag gesteld of je de macro wilt uitvoeren. Bij laag krijg je geen vraag.quote:2) Wat moet het macroniveau zijn als je Zijn macro's nodig als je de radiobutton gebruikt van de "werkset besturingselementen"?
thx alvast!
Maar ik betwijfel of je überhaupt wel vba code hebt gebruikt, alleen een userform met wat besturings elementen doet vrij weinig.
We stoppen niet met spelen omdat we oud worden.... We worden oud omdat we stoppen met spelen.
Nu heb ik een lastigere vraag.
Ik heb een excelbestand met werk roosters. Hierin staan dus 52 sheets met het rooster per week.
Nu wil ik in een hoofdtabje kunnen zien hoeveel uur er gewerkt is in de huidige week. Iemand hoe zoiets moet werken ?
Ik heb een excelbestand met werk roosters. Hierin staan dus 52 sheets met het rooster per week.
Nu wil ik in een hoofdtabje kunnen zien hoeveel uur er gewerkt is in de huidige week. Iemand hoe zoiets moet werken ?
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Ik kan wel wat verzinnen, maar het hangt heel erg af van de opbouw van je werkroosters...quote:
Nu heb ik een lastigere vraag.
Ik heb een excelbestand met werk roosters. Hierin staan dus 52 sheets met het rooster per week.
Nu wil ik in een hoofdtabje kunnen zien hoeveel uur er gewerkt is in de huidige week. Iemand hoe zoiets moet werken ?
Meer info is dus gewenst
(hoe meer hoe beter zelfs!)
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]
Welke info wil je allemaal hebben ?quote:
[..]
Ik kan wel wat verzinnen, maar het hangt heel erg af van de opbouw van je werkroosters...
Meer info is dus gewenst
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Ehm...quote:
[..]
Welke info wil je allemaal hebben ?
Dat hangt dus af van hoe je werkblad is opgemaakt
Ik heb een idee hoe het er uit zou kunnen zien, maar het is jouw sheet Dus jij mag vertellen hoe het er uit ziet
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]
Het zijn 52x dezelfde tab.
Hier staan namen en werktijden op. Aan de rechterkant heb ik een kolom waar hij telt hoeveel er in totaal gewerkt is die week.
Onderaan telt hij hoeveel iedereen heeft gewerkt die week.
De tabs hebben een logische naam "werkweek 33" "werkweek 34".
In mijn hoofdtab heb ik een cel die de huidige werkweek berekend.
Dmv een vlookup "weet" excel welke werkweek bij welke tab zou horen.
Nu is de vraag dus, hoe zorg ik ervoor dat ik in mijn hoofdtab, het aantal gewerkte uren uit de tab van de huide werkweek weergeef ? :)
Hier staan namen en werktijden op. Aan de rechterkant heb ik een kolom waar hij telt hoeveel er in totaal gewerkt is die week.
Onderaan telt hij hoeveel iedereen heeft gewerkt die week.
De tabs hebben een logische naam "werkweek 33" "werkweek 34".
In mijn hoofdtab heb ik een cel die de huidige werkweek berekend.
| 1 |
Dmv een vlookup "weet" excel welke werkweek bij welke tab zou horen.
Nu is de vraag dus, hoe zorg ik ervoor dat ik in mijn hoofdtab, het aantal gewerkte uren uit de tab van de huide werkweek weergeef ? :)
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Hi Poepoog,quote:Op zaterdag 12 december 2009 23:26 schreef Poepoog het volgende:
[..]
Iemand
Gaat om een URL waarachter automagisch een nummer geplakt moet worden. www.nummerkomthierachter.nl/track.jps[nummer]
Extra kolommetje aanmaken naast je tracking nummer (H kolom = kolom met tracking nummers in onderstaande formule) en je link zonder tracking nummer op een fixed locatie zetten in je sheet ($i$1 hieronder) dan de formule hieronder doorkopieren.
=HYPERLINK($I$1&$H1;$H1)
Succes!
HeetBoven
quote:
[..]
Hi Poepoog,
Extra kolommetje aanmaken naast je tracking nummer (H kolom = kolom met tracking nummers in onderstaande formule) en je link zonder tracking nummer op een fixed locatie zetten in je sheet ($i$1 hieronder) dan de formule hieronder doorkopieren.
=HYPERLINK($I$1&$H1;$H1)
Succes!
HeetBoven
Dank!
Nog een vraagje,
Hoe maak ik een fixed location aan met $i$1?
Echt een n00b dus
Daar zet je gewoon de link van je website neer, of als je het helemaal geintegreerd wil hebben, vervang je $I$1 met "www.nummerkomthierachter.nl/track.jps/" ( " 2x niet vergeten!)quote:Op maandag 14 december 2009 20:05 schreef Poepoog het volgende:
[..]
Dank!
Nog een vraagje,
Hoe maak ik een fixed location aan met $i$1?
Echt een n00b dus
Stel in A1 staat "Sheet2" (zonder aanhalingstekens).quote:Op maandag 14 december 2009 18:11 schreef znarch het volgende:
Nu is de vraag dus, hoe zorg ik ervoor dat ik in mijn hoofdtab, het aantal gewerkte uren uit de tab van de huide werkweek weergeef ?
Stel op mijn Sheet2 in cel A1 staat "toet toet"
Dan geeft de volgende formule in Sheet1, de waarde uit A1 in Sheet2 weer:
=INDIRECT(A1 & "!A1")
Is dat duidelijk dan hoe je een sheetnaam uit een cel kan gebruiken?
Excel problemen! Wie kan helpen
Ik heb het volgende probleem. In cell A1 t/m A10 heb ik 10 verschillende getallen staan. Vervolgens zijn cell A11 tot en met A20 leeg. Dan komen er in A21 t/m A30 weer 10 getallen. Dit gaat steeds door, en de lijst breidt zich steeds verder uit naar onder (ja ik heb even een macro erin gegooid 8)).
Mijn vraag is nu, hoe kan ik in bijvoorbeeld column D1 tot en met D10 steeds de laatste 10 cells met getallen weergeven die in column A staan? Dus als A41-A50 de laatste zijn van het rijtje, hoe kan ik die dan in D1-D10 krijgen? En dat het telkens update als bijvoorbeeld A61-A70 weer gevuld worden met getallen?
Alvast héél erg bedankt!
Wie kan helpen Ik heb het volgende probleem. In cell A1 t/m A10 heb ik 10 verschillende getallen staan. Vervolgens zijn cell A11 tot en met A20 leeg. Dan komen er in A21 t/m A30 weer 10 getallen. Dit gaat steeds door, en de lijst breidt zich steeds verder uit naar onder (ja ik heb even een macro erin gegooid 8)).
Mijn vraag is nu, hoe kan ik in bijvoorbeeld column D1 tot en met D10 steeds de laatste 10 cells met getallen weergeven die in column A staan? Dus als A41-A50 de laatste zijn van het rijtje, hoe kan ik die dan in D1-D10 krijgen? En dat het telkens update als bijvoorbeeld A61-A70 weer gevuld worden met getallen?
Alvast héél erg bedankt!
Is het mogelijk om Excel de positie in een lijst uit te laten rekenen?
Ik heb 5 getallen naast elkaar staan:
Nu wil ik dat excel aangeeft dat 264k 1e is en 216k de laatste. (bijvoorbeeld door na iedere cel en extra cel te maken waar het cijfer in kan)
Zoiets dus:
En dan moet het voor bepaalde reeksen ook nog zo zijn dat die waarde omgekeerd kan worden :P
(ene lijstje is bijvoorbeeld aankoopwaarde, andere lijst is bijvoorbeeld restwaarde)
En dan moet het ook nog met ja/nee lijstjes kunnen werken (1 of 0 punten), maar dat is makkelijk op te lossen met een als-functie als het moet :P
Ohja, en het liefst geen macro's...
Ik heb 5 getallen naast elkaar staan:
| 1 |
Nu wil ik dat excel aangeeft dat 264k 1e is en 216k de laatste. (bijvoorbeeld door na iedere cel en extra cel te maken waar het cijfer in kan)
Zoiets dus:
| 1 |
En dan moet het voor bepaalde reeksen ook nog zo zijn dat die waarde omgekeerd kan worden :P
(ene lijstje is bijvoorbeeld aankoopwaarde, andere lijst is bijvoorbeeld restwaarde)
En dan moet het ook nog met ja/nee lijstjes kunnen werken (1 of 0 punten), maar dat is makkelijk op te lossen met een als-functie als het moet :P
Ohja, en het liefst geen macro's...
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]
staan die getallen allemaal in 1 regel? Dan eerst uitsplitsen naar kolommen. Daarna kun je gewoon van elke cel de kolompositie berekenen.
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
moet je een macrootje maken, ff uit het hoofd.quote:Op dinsdag 15 december 2009 18:51 schreef lobzorenzo het volgende:
Excel problemen!
Ik heb het volgende probleem. In cell A1 t/m A10 heb ik 10 verschillende getallen staan. Vervolgens zijn cell A11 tot en met A20 leeg. Dan komen er in A21 t/m A30 weer 10 getallen. Dit gaat steeds door, en de lijst breidt zich steeds verder uit naar onder (ja ik heb even een macro erin gegooid 8)).
Mijn vraag is nu, hoe kan ik in bijvoorbeeld column D1 tot en met D10 steeds de laatste 10 cells met getallen weergeven die in column A staan? Dus als A41-A50 de laatste zijn van het rijtje, hoe kan ik die dan in D1-D10 krijgen? En dat het telkens update als bijvoorbeeld A61-A70 weer gevuld worden met getallen?
Alvast héél erg bedankt!
| 1 2 3 4 5 6 7 8 9 10 | ActiveSheet.Range("a10000").End(xlUp).Select For i = 1 to 10 j=-1*i range("D"&i).value = activecell.offset(j,0) next i end sub |
Elke keer als je dan wilt updaten kun je die code runnen. Je zou hem ook achter je code van het maken van je rijtje kunnen plakken, ben je in een keer klaar.
Beter nog je zou de code waarmee die 10 cellen worden gevuld ook kunnen grbruiken om de cellen D1 tm D10 te vullen.
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 snap jequote:
[..]
Stel in A1 staat "Sheet2" (zonder aanhalingstekens).
Stel op mijn Sheet2 in cel A1 staat "toet toet"
Dan geeft de volgende formule in Sheet1, de waarde uit A1 in Sheet2 weer:
=INDIRECT(A1 & "!A1")
Is dat duidelijk dan hoe je een sheetnaam uit een cel kan gebruiken?
Hij werkt alleen niet Ik krijg de ref fout
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Ik heb het geïmplementeerd, en het is een goede oplossing, maar toch is er iets mee. Ik heb hem inderdaad achter de update code gegooid, zodat het mee-update elke 30 seconden. Alleen het hele bestand wordt er gewoon te traag door. Omdat hij meer dan 1000 regels eerst om moet keren en vervolgens de 1e 10 moet pakken (ik neem aan dat het stukje code daarvoor zorgt, maar ik ben niet zo'n expertquote:Op dinsdag 15 december 2009 21:05 schreef Deetch het volgende:
[..]
moet je een macrootje maken, ff uit het hoofd.
[ code verwijderd ]
Elke keer als je dan wilt updaten kun je die code runnen. Je zou hem ook achter je code van het maken van je rijtje kunnen plakken, ben je in een keer klaar.
Beter nog je zou de code waarmee die 10 cellen worden gevuld ook kunnen grbruiken om de cellen D1 tm D10 te vullen.
). Zou het niet mogelijk zijn te kijken wat de laatst beschreven rij uit kolom A is, en vervolgens de onderste 10 te pakken?Ik gooi er gewoon maar een suggestie in, geen idee of het helpt
Misschien kun je me verder helpen? Wel bedankt voor de hulp tot zover trouwens, echt goed!
Hoe ziet je code eruit die de data in eerste instantie schrijft?
Wat mijn code doet is naar cel A10000 gaan dan control+pijltje omhoog zodat ie bij de onderste gevulde cel uitkomt. Wat ie dan doet is van de tien cellen erboven de gegevens in de eerste tien cellen van kolom D zetten.
Misschien kan je de gegevens wel al in een array plaatsen voor je ze uberhaupt aan je werkblad toevoegt, dan kun je die array nog een tweede keer aanroepen om je data in kolom D te plaatsen, ik denk dat dat sneller is.
Waarom moet je elke 30 seconden updaten? Is het een soort van live registratie van een event ofzo?
Wat mijn code doet is naar cel A10000 gaan dan control+pijltje omhoog zodat ie bij de onderste gevulde cel uitkomt. Wat ie dan doet is van de tien cellen erboven de gegevens in de eerste tien cellen van kolom D zetten.
Misschien kan je de gegevens wel al in een array plaatsen voor je ze uberhaupt aan je werkblad toevoegt, dan kun je die array nog een tweede keer aanroepen om je data in kolom D te plaatsen, ik denk dat dat sneller is.
Waarom moet je elke 30 seconden updaten? Is het een soort van live registratie van een event ofzo?
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
Kan iemand mij helpen met een formule?
Ik wil graag de waarden selecteren die in drie kolommen tegelijk voorkomen. Het lukt me nu wel in twee stappen via voorwaardelijke opmaak, maar ik zou het liefst een lijstje van de drie-dubbelen netjes in een aparte kolom gepresenteerd krijgen.
Waar ik het voor nodig heb: voor een forum op een torrentsite maak ik graag raadseltjes in een wedstrijd. Daarvoor heb ik van IMDB van zo'n 300 TV-series alle acteurs in excel gezet. Per kolom een serie. Voor de puzzeltjes wil ik weten welke acteurs allemaal in dezelfde drie TV-series hebben meegedaan. Ik kies zelf de drie kolommen uit.
Zo doe ik het nu:
Maar het moet handiger kunnen, alleen ik weet niet hoe.
Ik wil graag de waarden selecteren die in drie kolommen tegelijk voorkomen. Het lukt me nu wel in twee stappen via voorwaardelijke opmaak, maar ik zou het liefst een lijstje van de drie-dubbelen netjes in een aparte kolom gepresenteerd krijgen.
Waar ik het voor nodig heb: voor een forum op een torrentsite maak ik graag raadseltjes in een wedstrijd. Daarvoor heb ik van IMDB van zo'n 300 TV-series alle acteurs in excel gezet. Per kolom een serie. Voor de puzzeltjes wil ik weten welke acteurs allemaal in dezelfde drie TV-series hebben meegedaan. Ik kies zelf de drie kolommen uit.
Zo doe ik het nu:
Maar het moet handiger kunnen, alleen ik weet niet hoe.
loblorenzo:
Als je in A1:A10 (of in A1034:A1044) je 10 waardes hebt staan, geeft de volgende formule in D1:D10 je laatste 10 waarden uit kolom A:
=INDIRECT(ADRES(VERGELIJKEN(9E+307;A:A)-(10-RIJ());1))
Dit werkt alleen als er 10 waarden achter elkaar staan, als er 9 staan bv dan wordt de eerste een 0 omdat de cel 10 rijen boven je laatste waarde leeg is.
Hoop dat je hier wat aan hebt.
Als je in A1:A10 (of in A1034:A1044) je 10 waardes hebt staan, geeft de volgende formule in D1:D10 je laatste 10 waarden uit kolom A:
=INDIRECT(ADRES(VERGELIJKEN(9E+307;A:A)-(10-RIJ());1))
Dit werkt alleen als er 10 waarden achter elkaar staan, als er 9 staan bv dan wordt de eerste een 0 omdat de cel 10 rijen boven je laatste waarde leeg is.
Hoop dat je hier wat aan hebt.
Geef je formule eens?quote:Op dinsdag 15 december 2009 21:31 schreef znarch het volgende:
[..]
Ik snap je
Dus je geeft de 3 kolommen al aan ergens?quote:Op woensdag 16 december 2009 02:59 schreef Nerobacsi het volgende:
Kan iemand mij helpen met een formule?
Ik wil graag de waarden selecteren die in drie kolommen tegelijk voorkomen. Het lukt me nu wel in twee stappen via voorwaardelijke opmaak, maar ik zou het liefst een lijstje van de drie-dubbelen netjes in een aparte kolom gepresenteerd krijgen.
Waar ik het voor nodig heb: voor een forum op een torrentsite maak ik graag raadseltjes in een wedstrijd. Daarvoor heb ik van IMDB van zo'n 300 TV-series alle acteurs in excel gezet. Per kolom een serie. Voor de puzzeltjes wil ik weten welke acteurs allemaal in dezelfde drie TV-series hebben meegedaan. Ik kies zelf de drie kolommen uit.
Zo doe ik het nu:
[ afbeelding ]
Maar het moet handiger kunnen, alleen ik weet niet hoe.
Dus je kijkt niet welke waarden in welke 3 kolommen komen, maar welke waarden in 3 vaste kolommen voorkomen?
Ja, ik kies willekeurig een drietal kolommen uit om te proberen of en hoeveel acteurs in alle drie daarvan gespeeld hebben. Soms zet ik die kolommen voor het gemak even naast mekaar; ze hoeven niet op alfabet te blijven of zo.quote:Op woensdag 16 december 2009 08:25 schreef DaFan het volgende:
[..]
Dus je geeft de 3 kolommen al aan ergens?
Dus je kijkt niet welke waarden in welke 3 kolommen komen, maar welke waarden in 3 vaste kolommen voorkomen?
Ik vind het een goed idee, maar dit gaat niet lukken, helaas. Ik heb het geprobeerd, maar het probleem is dat er niet altijd 10 gevulde cellen zijn. Bij minder dan 10 gevulde cellen krijg ik inderdaad 0.quote:Op woensdag 16 december 2009 08:13 schreef DaFan het volgende:
loblorenzo:
Als je in A1:A10 (of in A1034:A1044) je 10 waardes hebt staan, geeft de volgende formule in D1:D10 je laatste 10 waarden uit kolom A:
=INDIRECT(ADRES(VERGELIJKEN(9E+307;A:A)-(10-RIJ());1))
Dit werkt alleen als er 10 waarden achter elkaar staan, als er 9 staan bv dan wordt de eerste een 0 omdat de cel 10 rijen boven je laatste waarde leeg is.
Hoop dat je hier wat aan hebt.
Wel snap ik wat je met het VERGELIJKEN of MATCH gedeelte wilt. Ik heb deze formule gevonden:
=MATCH(9.99999999999999E+307,E:E)
Nu krijg ik de laatste gevulde cell-waarde van rij E. Maar misschien is die formule op een of andere manier aan te passen zodat ik ook nog de 9 cell-waardes erboven krijg?
EDIT: kan ik bijvoorbeeld ook de een-na-laatste waarde vinden? Dan zou ik gewoon daarna nog de twee-na-laatste kunnen pakken etc. Of een formule die alle 9 waarden boven de gevonden laatste 10e waarde kan weergeven?
[ Bericht 26% gewijzigd door lobzorenzo op 16-12-2009 11:25:36 ]
Denk dat het ook wel anders kan.
Wil je dan alsnog de laatste 10 waardes, dus als er 8 zijn ingevuld, wil je dan ook de laatste 2 van de vorige 10?
Wil je dan alsnog de laatste 10 waardes, dus als er 8 zijn ingevuld, wil je dan ook de laatste 2 van de vorige 10?
Nero:
Ik heb dit maar dit werkt alleen voor getallen
http://www.mrexcel.com/forum/showthread.php?t=362629
Helemaal uitgewerkt en shit, maar namen doet ie niet
Wel mooie formules (maar snap ze zelf ook niet )
Kijk ik nog even verder.
Ik heb dit maar dit werkt alleen voor getallen
http://www.mrexcel.com/forum/showthread.php?t=362629
Helemaal uitgewerkt en shit, maar namen doet ie niet
Wel mooie formules (maar snap ze zelf ook niet
)Kijk ik nog even verder.
maar als je toch een macro hebt die steeds verse getallen toevoegt kun je die toch ook de verse getallen in cellen D1 tm D10 laten schrijven of ben ik nou debiel. Hoe ziet die macro voor je verse getallen eruit, ws. kun je daar door 1 regeltje toe te voegen precies krijgen wat je wilt.
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
Hm zou dit voor je werken Nero:
Ik heb in A2:C6 een aantal waarden staan, waarvan in alle drie kolommen een bepaalde waarde drie keer voorkomt.
Via Voorwaardelijke opmaak, kies ik A2:C6, vanaf A2, en voer dan in als formule:
=AANTAL.ALS($A$2:$C$6;A2)>2
=COUNTIF($A$2:$C$6,A2)>2)
En dan kies ik een opmaak.
Alles wat nu in alle drie de kolommen voorkomt, wordt gekleurd.
Nadeel hiervan is dat ook als een naam dubbel in de lijst staat, deze wordt gekleurd (dus zeg maar 2x in kolom 1 en 1x in kolom 2, dan kleurt ie).
Maarrrr er staan nooit 2 acteurs in dezelfde kolom toch?
Werkt dat voor je?
Met een macro kan je evt later nog dan de gekleurde cellen zoeken in een kolom en die in een apart deel als output genereren.
Ik heb in A2:C6 een aantal waarden staan, waarvan in alle drie kolommen een bepaalde waarde drie keer voorkomt.
Via Voorwaardelijke opmaak, kies ik A2:C6, vanaf A2, en voer dan in als formule:
=AANTAL.ALS($A$2:$C$6;A2)>2
=COUNTIF($A$2:$C$6,A2)>2)
En dan kies ik een opmaak.
Alles wat nu in alle drie de kolommen voorkomt, wordt gekleurd.
Nadeel hiervan is dat ook als een naam dubbel in de lijst staat, deze wordt gekleurd (dus zeg maar 2x in kolom 1 en 1x in kolom 2, dan kleurt ie).
Maarrrr er staan nooit 2 acteurs in dezelfde kolom toch?
Werkt dat voor je?
Met een macro kan je evt later nog dan de gekleurde cellen zoeken in een kolom en die in een apart deel als output genereren.
Ik hoop het. Ik heb de macro van internet geplukt, maar dit is 'em:quote:Op woensdag 16 december 2009 12:01 schreef Deetch het volgende:
maar als je toch een macro hebt die steeds verse getallen toevoegt kun je die toch ook de verse getallen in cellen D1 tm D10 laten schrijven of ben ik nou debiel. Hoe ziet die macro voor je verse getallen eruit, ws. kun je daar door 1 regeltje toe te voegen precies krijgen wat je wilt.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | Public Const cRunIntervalSeconds = 30 ' one minute Public Const cRunWhat = "DoTheImport" ' the name of the procedure to run Sub StartTimer() RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds) Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _ Schedule:=True End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ImportTextFile ' This imports a text file into Excel. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub ImportTextFile(FName As String, Sep As String) Dim RowNdx As Long Dim ColNdx As Integer Dim TempVal As Variant Dim WholeLine As String Dim Pos As Integer Dim NextPos As Integer Dim SaveColNdx As Integer Application.ScreenUpdating = False 'On Error GoTo EndMacro: SaveColNdx = 1 RowNdx = 1 Open FName For Input Access Read As #1 While Not EOF(1) Line Input #1, WholeLine If Right(WholeLine, 1) <> Sep Then WholeLine = WholeLine & Sep End If ColNdx = SaveColNdx Pos = 1 NextPos = InStr(Pos, WholeLine, Sep) While NextPos >= 1 TempVal = Mid(WholeLine, Pos, NextPos - Pos) Cells(RowNdx, ColNdx).Value = TempVal Pos = NextPos + 1 ColNdx = ColNdx + 1 NextPos = InStr(Pos, WholeLine, Sep) Wend RowNdx = RowNdx + 1 Wend EndMacro: On Error GoTo 0 Application.ScreenUpdating = True Close #1 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' END ImportTextFile '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End Sub Sub DoTheImport() ImportTextFile FName:=textbestand.txt", Sep:=" " StartTimer ' Reschedule the procedure End Sub |
Het tekstbestand wordt dus per spatie opgedeeld in cells. De getallen die ik nodig heb staan steeds in A.
Ik vind het ook prima als het hele textbestand meteen bij import wordt omgekeerd. Dat zou zelfs nog mooier zijn
Hoop dat het lukt!
HET WERKT!!quote:Op woensdag 16 december 2009 12:08 schreef DaFan het volgende:
Hm zou dit voor je werken Nero:
Ik heb in A2:C6 een aantal waarden staan, waarvan in alle drie kolommen een bepaalde waarde drie keer voorkomt.
Via Voorwaardelijke opmaak, kies ik A2:C6, vanaf A2, en voer dan in als formule:
=AANTAL.ALS($A$2:$C$6;A2)>2
=COUNTIF($A$2:$C$6,A2)>2)
En dan kies ik een opmaak.
Alles wat nu in alle drie de kolommen voorkomt, wordt gekleurd.
Nadeel hiervan is dat ook als een naam dubbel in de lijst staat, deze wordt gekleurd (dus zeg maar 2x in kolom 1 en 1x in kolom 2, dan kleurt ie).
Maarrrr er staan nooit 2 acteurs in dezelfde kolom toch?
Werkt dat voor je?
Met een macro kan je evt later nog dan de gekleurde cellen zoeken in een kolom en die in een apart deel als output genereren.
En er komen inderdaad nooit dubbelen in dezelfde kolom voor, dus dat gaat perfect zo.
Geweldig bedankt voor de (snelle!) hulp!!
Was die voor mij?quote:
staan die getallen allemaal in 1 regel? Dan eerst uitsplitsen naar kolommen. Daarna kun je gewoon van elke cel de kolompositie berekenen.
Zo ja, Het staat inderdaad in 6 kolommen naast elkaar, maar hoe kan je dan de kolompositie berekenen?
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]
No problemo, succes met je quiz.quote:Op woensdag 16 december 2009 12:39 schreef Nerobacsi het volgende:
[..]
HET WERKT!!
En er komen inderdaad nooit dubbelen in dezelfde kolom voor, dus dat gaat perfect zo.
Geweldig bedankt voor de (snelle!) hulp!!
qu63:
=MATCH(MIN(A1:F1),A1:F1,0) geeft de kolom waar de laagste waarde in staat.
Via RANK kan je dus ook de 2e, 3e etc vinden.
=MATCH(MIN(A1:F1),A1:F1,0) geeft de kolom waar de laagste waarde in staat.
Via RANK kan je dus ook de 2e, 3e etc vinden.
quote:Op woensdag 16 december 2009 11:50 schreef DaFan het volgende:
Denk dat het ook wel anders kan.
Wil je dan alsnog de laatste 10 waardes, dus als er 8 zijn ingevuld, wil je dan ook de laatste 2 van de vorige 10?
Nee die heb ik niet nodig. Waar denk je aan?
Het is makkelijker om er 10 weer te geven dan 8 als er maar 8 zijn.
Ik moet er nog wel ff over nadenken...
Beginnen je gegevens wel altijd op een vaste rij, dus altijd een meervoud van 10 + 1 (1, 11, 21 etc)
Ik moet er nog wel ff over nadenken...
Beginnen je gegevens wel altijd op een vaste rij, dus altijd een meervoud van 10 + 1 (1, 11, 21 etc)
Nee helaas niet, steeds verschillend hoeveel rijen ertussen zitten.quote:Op woensdag 16 december 2009 13:29 schreef DaFan het volgende:
Het is makkelijker om er 10 weer te geven dan 8 als er maar 8 zijn.
Ik moet er nog wel ff over nadenken...
Beginnen je gegevens wel altijd op een vaste rij, dus altijd een meervoud van 10 + 1 (1, 11, 21 etc)
voeg onder regel 45
de volgende regel toe:
Volgens mij werkt het dan.
| 1 |
de volgende regel toe:
| 1 |
Volgens mij werkt het dan.
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
Wat zou dit moeten doen dan? Want volgens mij kopieert ie de 4e kolom, namelijk D, naar kolom 4+1, namelijk E.quote:Op woensdag 16 december 2009 13:38 schreef Deetch het volgende:
voeg onder regel 45
[ code verwijderd ]
de volgende regel toe:
[ code verwijderd ]
Volgens mij werkt het dan.
Maar misschien komt dat ook wel door mezelf :p
Kun je uitleggen wat het doet?
is dat wat ie doet of wat je denkt dat ie doet?
Als ik die code goed heb gelezen leest je macro een regel en voegt elke waarde tussen spaties (sep=" ") in een nieuwe regel toe. Wat die nieuwe regel doet is dezelfde data in kolom D op dezelfde rij toevoegen.
Als ik die code goed heb gelezen leest je macro een regel en voegt elke waarde tussen spaties (sep=" ") in een nieuwe regel toe. Wat die nieuwe regel doet is dezelfde data in kolom D op dezelfde rij toevoegen.
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
Hallo,
even een simpele vraag; wat voor celinstellingen moet je gebruiken om het getaal 030 te kunnen typen? Hij verandert het telkens in 30 of 30,0
even een simpele vraag; wat voor celinstellingen moet je gebruiken om het getaal 030 te kunnen typen? Hij verandert het telkens in 30 of 30,0
Aangepaste notatie > 000quote:
Hallo,
even een simpele vraag; wat voor celinstellingen moet je gebruiken om het getaal 030 te kunnen typen? Hij verandert het telkens in 30 of 30,0
of begin met een ' (je kan er dan alleen niet meer mee rekenen, maar ik gok dat het om kengetallen gaat)quote:
Hallo,
even een simpele vraag; wat voor celinstellingen moet je gebruiken om het getaal 030 te kunnen typen? Hij verandert het telkens in 30 of 30,0
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]
Als ik de regel toevoeg aan de macro, dan kopieert ie alle gevulde cellen uit kolom E naar kolom D.quote:Op woensdag 16 december 2009 14:11 schreef Deetch het volgende:
is dat wat ie doet of wat je denkt dat ie doet?
Als ik die code goed heb gelezen leest je macro een regel en voegt elke waarde tussen spaties (sep=" ") in een nieuwe regel toe. Wat die nieuwe regel doet is dezelfde data in kolom D op dezelfde rij toevoegen.
De lege cellen van kolom E worden niet gekopieerd, daar blijft de data die oorspronkelijk in kolom D staat gewoon staan.
Maar wat nu
Het is een grootboekrekeningnummer waar niet meer gerekend hoeft te wordenquote:Op woensdag 16 december 2009 14:41 schreef qu63 het volgende:
[..]
of begin met een ' (je kan er dan alleen niet meer mee rekenen, maar ik gok dat het om kengetallen gaat)
Dan kan je het ook doen dmv een apostrof (')quote:
[..]
Het is een grootboekrekeningnummer waar niet meer gerekend hoeft te worden
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]
Ik zal mijn vorige code nog eens herschrijven om hem sneller te maken, blijkbaar heb ik jouw gekopieerde macro verkeerd begrepen. Vanavond meer.quote:Op woensdag 16 december 2009 15:07 schreef lobzorenzo het volgende:
[..]
Als ik de regel toevoeg aan de macro, dan kopieert ie alle gevulde cellen uit kolom E naar kolom D.
De lege cellen van kolom E worden niet gekopieerd, daar blijft de data die oorspronkelijk in kolom D staat gewoon staan.
Maar wat nu
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 als je wel moet rekenen: je gaat naar celeigenschappen, dan maak je de bij Getal -> aangepast een nieuw type aan dmv onder Type zoveel nullen in te geven als je nodig hebt.quote:Op woensdag 16 december 2009 15:57 schreef qu63 het volgende:
[..]
Dan kan je het ook doen dmv een apostrof (')
ik was niet in staat eerder te reageren, sorry.quote:
Ik gebruik jouw formule:
| 1 |
In cel A1 staat de naam van de Tab waar hij moet kijken genaamd: 2009 Week 51 (of zoiets) (de cel geeft de huidige week weer).
mijn !A1 (de 2de) staat op !S32, deze cel (op sheet 2009 Week 51) is de waarde die ik wil zien.
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
quote:
[..]
Of als je wel moet rekenen: je gaat naar celeigenschappen, dan maak je de bij Getal -> aangepast een nieuw type aan dmv onder Type zoveel nullen in te geven als je nodig hebt.
quote:
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
je bent nu al m'n held, of het nou lukt of nietquote:Op woensdag 16 december 2009 16:20 schreef Deetch het volgende:
[..]
Ik zal mijn vorige code nog eens herschrijven om hem sneller te maken, blijkbaar heb ik jouw gekopieerde macro verkeerd begrepen. Vanavond meer.
je moet even met extra aanhalingstekens werken:quote:Op woensdag 16 december 2009 18:44 schreef znarch het volgende:
[..]
ik was niet in staat eerder te reageren, sorry.
Ik gebruik jouw formule:
[ code verwijderd ]
In cel A1 staat de naam van de Tab waar hij moet kijken genaamd: 2009 Week 51 (of zoiets) (de cel geeft de huidige week weer).
mijn !A1 (de 2de) staat op !S32, deze cel (op sheet 2009 Week 51) is de waarde die ik wil zien.
"'" & A1 & "'!A1"
Omdat er spaties instaan dienen er nog aanhalingstekens omheen
Zo bedoel je ? =INDIRECT("E8" & "!S32")
of waarom die "" voor de & ? in jouw eeste formule staat die & sowieso maar 2x
Trouwens in de formule staan geen spaties he, allen zo:
=INDIRECT("E8" & "!S32")
in cel e8 staat wel een een naam met spaties ja. Al helpt dit ook niet
[ Bericht 38% gewijzigd door znarch op 16-12-2009 20:57:57 ]
of waarom die "" voor de & ? in jouw eeste formule staat die & sowieso maar 2x
Trouwens in de formule staan geen spaties he, allen zo:
=INDIRECT("E8" & "!S32")
in cel e8 staat wel een een naam met spaties ja. Al helpt dit ook niet
[ Bericht 38% gewijzigd door znarch op 16-12-2009 20:57:57 ]
"AAAAAHH ZENNE MOAT, WOARST VLEISCH"
Nee je snapt me niet. Er moeten enkele aanhalingstekens om de sheetnaam heen. Dat doe je door daar weer dubbele omheen te zetten, en dan pas de sheetnaam eraan te plakken dmv &.
"'" = dubbel, enkel, dubbel
& A1 = plakt de enkele aan de sheetnaam vast (alleen links)
& "'!A1" = dubbel, enkel etc
Hoop dat het zo duidelijker is
"'" = dubbel, enkel, dubbel
& A1 = plakt de enkele aan de sheetnaam vast (alleen links)
& "'!A1" = dubbel, enkel etc
Hoop dat het zo duidelijker is
