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.
Aangezien er vaker losse topics langskomen, leek het ons 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 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen: http://dolf.trieschnigg.nl/excel/excel.html
Voorgaande deeltjes met veel informatie:
[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
[EXCEL] Het grote Excel vragen topic, #5
[Excel] Het grote Excel-vragentopic #6
[EXCEL] Het grote Excel vragen topic, #7
Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?
Stel dan hier je vraag!!!
Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen: http://dolf.trieschnigg.nl/excel/excel.html
Voorgaande deeltjes met veel informatie:
[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
[EXCEL] Het grote Excel vragen topic, #5
[Excel] Het grote Excel-vragentopic #6
[EXCEL] Het grote Excel vragen topic, #7
tvp
in vervolg op mijn vorige post: Ik weet dat ik met die string niet meer kan rekenen, maar dat is in dit geval ook niet nodig gelukkig
in vervolg op mijn vorige post: Ik weet dat ik met die string niet meer kan rekenen, maar dat is in dit geval ook niet nodig gelukkig
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
ik heb het even getest en je moet eerst delen door (24*60*60)
excel rekent standaard in dagen.
dus =text(A1/(24*60*60);"[u]:mm:ss") zou ook moeten werken, en lijkt me net iets eleganter
excel rekent standaard in dagen.
dus =text(A1/(24*60*60);"[u]:mm:ss") zou ook moeten werken, en lijkt me net iets eleganter
quote:Op maandag 27 oktober 2008 13:19 schreef placebeau het volgende:
ik heb het even getest en je moet eerst delen door (24*60*60)
excel rekent standaard in dagen.
dus =text(A1/(24*60*60);"[u]:mm:ss") zou ook moeten werken, en lijkt me net iets eleganter
perfect!
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
Excel
Gebruik excel 2007 NL
In dit werkboek wil ik een aparte sheet maken waar ik in cel B2 een naam in kan vullen en dat daaronder dan alle rijen worden gekopieerd waar die naam in staat, het zou helemaal perfect zijn als de rijen met de dag en datum ook gekopieerd kunnen worden.
Heb al verschillende formules geprobeerd, maar ik kwam er niet echt uit
Gebruik excel 2007 NL
In dit werkboek wil ik een aparte sheet maken waar ik in cel B2 een naam in kan vullen en dat daaronder dan alle rijen worden gekopieerd waar die naam in staat, het zou helemaal perfect zijn als de rijen met de dag en datum ook gekopieerd kunnen worden.
Heb al verschillende formules geprobeerd, maar ik kwam er niet echt uit
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
Ideaal zou het er zo uit moeten zienquote:Op maandag 27 oktober 2008 23:09 schreef DaFan het volgende:
Kan je een screenshotje maken met je gewenste resultaat?
http://i35.tinypic.com/15pidy0.jpg
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
Ben je bekend met macro's? Ik denk dat het makkelijkste is om een kopie van sheet1 in sheet2 te maken, maar dan iets lager.
Als je dan in B2 iets invult kan je dmv een Change macro (die alleen checkt op B2) de naam uit je sheet halen. Daarna zou ik een loop bouwen die door alle namen heen kijkt (dus kolom A) en overal waar hij niét de juiste naam tegenkomt, hide je die row.
Je moet dan wel iets bedenken waardoor hij alleen door de namen heen loopt, en niet ook je maanden etc hide.
Het is denk ik makkelijk om 'achteruit' te denken (dus hiden ipv tevoorschijn halen) omdat je dan gezeur krijgt met de maanden, dagen, uren etc.
Als je dan in B2 iets invult kan je dmv een Change macro (die alleen checkt op B2) de naam uit je sheet halen. Daarna zou ik een loop bouwen die door alle namen heen kijkt (dus kolom A) en overal waar hij niét de juiste naam tegenkomt, hide je die row.
Je moet dan wel iets bedenken waardoor hij alleen door de namen heen loopt, en niet ook je maanden etc hide.
Het is denk ik makkelijk om 'achteruit' te denken (dus hiden ipv tevoorschijn halen) omdat je dan gezeur krijgt met de maanden, dagen, uren etc.
Ik kan een macro opnemen, maar echt verder dan dat kom ik niet echt. Ik heb dan ook geen idee waar ik hiermee zou moeten beginnenquote:Op dinsdag 28 oktober 2008 01:47 schreef DaFan het volgende:
Ben je bekend met macro's? Ik denk dat het makkelijkste is om een kopie van sheet1 in sheet2 te maken, maar dan iets lager.
Als je dan in B2 iets invult kan je dmv een Change macro (die alleen checkt op B2) de naam uit je sheet halen. Daarna zou ik een loop bouwen die door alle namen heen kijkt (dus kolom A) en overal waar hij niét de juiste naam tegenkomt, hide je die row.
Je moet dan wel iets bedenken waardoor hij alleen door de namen heen loopt, en niet ook je maanden etc hide.
Het is denk ik makkelijk om 'achteruit' te denken (dus hiden ipv tevoorschijn halen) omdat je dan gezeur krijgt met de maanden, dagen, uren etc.
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
Ik heb je mn mailadres gepm'd, geen idee of ik nog tijd/zin heb om er aan te werken, maar kan wel even kijken.
Ik heb mij mailadres ook gepm'd. Had ook al even op google gezocht, maar daar kon ik niet veel wijs uit worden.quote:Op dinsdag 28 oktober 2008 10:04 schreef DaFan het volgende:
Ik heb je mn mailadres gepm'd, geen idee of ik nog tijd/zin heb om er aan te werken, maar kan wel even kijken.
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
Ja of je dus even je huidige bestand mailtquote:Op dinsdag 28 oktober 2008 11:55 schreef Martijn85 het volgende:
[..]
Ik heb mij mailadres ook gepm'd. Had ook al even op google gezocht, maar daar kon ik niet veel wijs uit worden.
Ik kan niet iets bouwen van screens dan wijkt het ws van je huidige opzet af.
[wink]Kan je dat niet eensquote:Op dinsdag 28 oktober 2008 12:04 schreef DaFan het volgende:
[..]
Ja of je dus even je huidige bestand mailt
Ik kan niet iets bouwen van screens dan wijkt het ws van je huidige opzet af.
[/wink]Ik heb het bestand gestuurd
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
Ik heb nu dit staan
In F4
=IF(E4="Ja";(D4*B4)*0,6;B4*D4)
En in G4
=F4/C4
(in de rijen daarboven is het hetzelfde)
Nu heb ik in G9 Sum(G3:G8) staan, maar hij geeft hier een error, omdat ik bij sommige rijen de #div/0! error heb staan.
Wat logisch is, omdat er niet door nul gedeeld kan worden. Hoe kan ik ervoor zorgen dat de #div/0! error wegblijft en het gewoon 0 of niets weergeeft?
In F4
=IF(E4="Ja";(D4*B4)*0,6;B4*D4)
En in G4
=F4/C4
(in de rijen daarboven is het hetzelfde)
Nu heb ik in G9 Sum(G3:G8) staan, maar hij geeft hier een error, omdat ik bij sommige rijen de #div/0! error heb staan.
Wat logisch is, omdat er niet door nul gedeeld kan worden. Hoe kan ik ervoor zorgen dat de #div/0! error wegblijft en het gewoon 0 of niets weergeeft?
Ahjah!quote:
=IF(ISERROR(F4/C4),0,F4/C4)
of
=IF(C4=0,0,F4/C4)
Bedankt!
Bestaat er zoiets in excel:
In cel a1 voer ik een getal in (bv 3). Nu wil ik dat dat getal in een andere cel komt bv. L20. (Dat is niet moeilijk, dat lukt wel
)
Maar het getal in A1 wil ik verwijderen (weer op 0 zetten), maar dan moet het getal in L20 wel blijven staan. Als ik dan de volgende keer weer een getal in A1 invoer (bv. 5) dan wil ik dat er in L20 8 komt te staan (3 van de vorige keer + 5 van deze keer).
In cel a1 voer ik een getal in (bv 3). Nu wil ik dat dat getal in een andere cel komt bv. L20. (Dat is niet moeilijk, dat lukt wel
)Maar het getal in A1 wil ik verwijderen (weer op 0 zetten), maar dan moet het getal in L20 wel blijven staan. Als ik dan de volgende keer weer een getal in A1 invoer (bv. 5) dan wil ik dat er in L20 8 komt te staan (3 van de vorige keer + 5 van deze keer).
Kan met het change event in VBA. Try this:
(Alt-F11, dubbelklik op je sheetnaam links, plakken in het rechterscherm)
Ranges aanpassen waar nodig :s)
(Alt-F11, dubbelklik op je sheetnaam links, plakken in het rechterscherm)
| 1 2 3 4 5 6 7 | If Not Intersect(Target, Range("A1")) Is Nothing Then Range("L20").Value = Range("L20").Value + Range("A1").Value End If End Sub |
Ranges aanpassen waar nodig :s)
Top!quote:Op woensdag 29 oktober 2008 23:33 schreef DaFan het volgende:
Kan met het change event in VBA. Try this:
(Alt-F11, dubbelklik op je sheetnaam links, plakken in het rechterscherm)
[ code verwijderd ]
Ranges aanpassen waar nodig :s)
Maar ik kan er geen meerdere onder elkaar zetten?
| 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 | If Not Intersect(Target, Range("D7")) Is Nothing Then Range("L20").Value = Range("L20").Value + Range("D7").Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D8")) Is Nothing Then Range("L21").Value = Range("L21").Value + Range("D8").Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D9")) Is Nothing Then Range("L22").Value = Range("L22").Value + Range("D9").Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D10")) Is Nothing Then Range("L23").Value = Range("L23").Value + Range("D10").Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D11")) Is Nothing Then Range("L24").Value = Range("L24").Value + Range("D11").Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D12")) Is Nothing Then Range("L25").Value = Range("L25").Value + Range("D12").Value End If End Sub |
Waar gaat het mis?
Je hebt nu 10 verschillende Sub Worksheet_Change events gemaakt, daar wordt Excel niet blij van.
Haal de regels Private Sub..... en End Sub dus weg uit de code (behalve aan het begin en het einde).
Haal de regels Private Sub..... en End Sub dus weg uit de code (behalve aan het begin en het einde).
Het werkt!quote:
Je hebt nu 10 verschillende Sub Worksheet_Change events gemaakt, daar wordt Excel niet blij van.
Haal de regels Private Sub..... en End Sub dus weg uit de code (behalve aan het begin en het einde).
Bedankt
.
