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
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?
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.
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.
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.
[wink]Kan je dat niet eens [/wink]quote: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.
Ahjah!quote:Op woensdag 29 oktober 2008 22:48 schreef DaFan het volgende:
=IF(ISERROR(F4/C4),0,F4/C4)
of
=IF(C4=0,0,F4/C4)
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 |
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)
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 |
Het werkt!quote:Op woensdag 29 oktober 2008 23:46 schreef DaFan het volgende:
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).
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |