quote:Op dinsdag 18 augustus 2009 10:31 schreef Stpan het volgende:
Alle columns delen door 100, en dan de cell format veranderen naar %.
| 1 2 3 4 5 6 7 | With Worksheets("Project Overview") .EnableOutlining = True .Protect Password:="password", _ Contents:=True, UserInterfaceOnly:=True End With End Sub |
En de naam van je worksheet klopt wel?quote:Op woensdag 19 augustus 2009 16:47 schreef superheist het volgende:
Thanks! maar het werkt ook niet.. Ik heb het geplakt in 'Thisworkbook' en op mn sheet geklikt in VBA --> Insert Module. (waar de module dan bij een nieuw tabel "modules" komt te staan). De code moet wel kloppen lijkt mij (waren mensen bij wie het goed ging) volgens mij zet ik het gewoon verkeerd in de macro/vba..
ja die heet dus "Project Overview"quote:Op woensdag 19 augustus 2009 19:33 schreef hendrik2009 het volgende:
[..]
En de naam van je worksheet klopt wel?
| 1 2 3 4 5 6 | A Nederland Opleiding Budget Communicatie B Belgie Budget Logistiek Verloop C Nederland Communicatie Opleiding Budget D Duitsland Opleiding Budget Recruitment E Belgie Communicate Opleiding Recruitment |
| 1 |
Ik heb voor onze administratie een heel werkblad opgezet voor het bijhouden van tijden, overwerk, toeslagen e.d. Dus misschien kan ik je helpen.quote:Op vrijdag 28 augustus 2009 08:36 schreef ReWout het volgende:
Vraagje...
Houd er hier iemand zijn werktijden bij m.b.v. Excel? Zo ja kan hij/zij zijn bestand online zetten.
Zo nee dan heb ik de volgende vraag.
Ik wil graag me overuren berekenen in excel. Hoe doe ik dat?
Ik heb zeg maar de som van alle uren die ik heb gewerkt staan in cel b1. Dit is een tijd dus bijvoorbeeld "1 dag en 10:29 uren"
Nu moet ik 7 en een half uur werken per dag.
Dus dacht ik gewoon
[ code verwijderd ]
Maar dat werkt dus niethoe doe ik dit?
Als het kan graagquote:Op vrijdag 28 augustus 2009 08:47 schreef Joooo-pi het volgende:
[..]
Ik heb voor onze administratie een heel werkblad opgezet voor het bijhouden van tijden, overwerk, toeslagen e.d. Dus misschien kan ik je helpen.
Met de variabelen aantalDagenGewerkt en de andere doelde ik gewoon op informatie van een celquote:Waar wil je de code die jij noemt neerzetten. In een macro? Dan werkt B3 niet, maar gebruik dan Range("B3").value.
Wil je het in een cel gebruiken, dan weet ik niet waar je je variabelen "AantalDagenGewerkt" enzo weghaald.
Edit: 7:30 in een formule gaat ook niet werken. 7.5/24 = 0.3125 dus die waarde moet je gebruiken, volgens mij.
Nee, de tijden worden volgens mij als in een cel opgeslagen als 24ste deel. 0.5 betekent dan dus 12:00.quote:Op vrijdag 28 augustus 2009 09:00 schreef ReWout het volgende:
[..]
Als het kan graagzal ik je een pm sturen?
[..]
Met de variabelen aantalDagenGewerkt en de andere doelde ik gewoon op informatie van een celMaar ik moet dus gaan werken met tijden als 7,5 als 7:30, 13:35 als 13:5833~ etc...
Ah oke ik dacht zelf juist als uur en dan de 60 minuten als komma getal.quote:Op vrijdag 28 augustus 2009 09:37 schreef Joooo-pi het volgende:
[..]
Nee, de tijden worden volgens mij als in een cel opgeslagen als 24ste deel. 0.5 betekent dan dus 12:00.
Stuur maar PM.
| 1 |
Bij mij werktquote:Op vrijdag 28 augustus 2009 00:32 schreef Jefkie het volgende:
[ afbeelding ]
Ik krijg mijn formules in de C-kolom maar niet goed.
De bedoeling van C1.
* Maximale hoeveelheid die ingekocht kunnen worden.
* Ofwel gelimiteerd doordat de opslagruimte (B7) op is.
* Ofwel gelimiteerd doordat het geld (AFRONDEN.NAAR.BENEDEN(B6/D1)) op is.
Ik weet alleen niet hoe ik dat in één formule kan krijgen, ik zit op het moment hiermee.
=ALS(AFRONDEN.NAAR.BENEDEN(B6/D1)>=B7;B7;AFRONDEN.NAAR.BENEDEN(B6/D1))
Gevolg: Als B7>C1 wordt er een overschot ingekocht.
Oplossing: Geen flauw idee, help.
PS. Voor zij die zich zorgen maken over het bedrag, deze formules rekenen in tiende centen.
ff uit mijn hoofd hoor,quote:Op zaterdag 29 augustus 2009 09:30 schreef PerryVogelbekdier het volgende:
Hallo beste mensen,
ik heb een vraagje..
Ik werk met facturen in Excel.
Met een VBscriptje heb ik het nu zo voor elkaar dat telkens mijn factuurnummer met 1 nummer wordt verhoogd tijdens het openen van het bestand.
Echter zijn de artikelen + prijzen dan nog gevuld, omdat dat opgeslagen wordt.
Is er een manier waardoor de velgen 'leeg' (lees; zonder artikelen + prijzen) zijn op het moment dat ik het excelbestand open. Daarbij moet natuurlijk het factuurnummer wel telkens opgehoogd worden.
Bedankt alvast voor het lezen (en hopelijk antwoorden)
Ja, die regel past direct nadat het nummer is opgehoogd, neem ik aan.quote:Op zaterdag 29 augustus 2009 12:24 schreef PerryVogelbekdier het volgende:
De data mag uit het bestand. Alle facturen worden in tweevoud geprint en hier in mappen gedaan.
Digitaal wordt daar niets van bewaard.
Ik neem aan dat je dit ook in een VBScript zet, net zoals die factuurnummers dan? (Die hebk via internet zo gevonden namelijk)
Ja dat kloptquote:Op zaterdag 29 augustus 2009 15:45 schreef Joooo-pi het volgende:
[..]
Ja, die regel past direct nadat het nummer is opgehoogd, neem ik aan.
Ik hoop dat het te begijpen is.quote:Sub smartrounding()
Range("C5").Select
Do Until ActiveCell.Value = ""
If Range("C2") <> Range("C1") Then
If Range("C2") > Range("C1") Then
If Round(ActiveCell.Value, 3) - Round(ActiveCell.Value, 2) > 0 Then
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Else
If Round(ActiveCell.Value, 3) - Round(ActiveCell.Value, 2) < 0 Then
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)"
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
End If
Else
GoTo Norounding
End If
Loop
Norounding:
End Sub
Oplosser heb je alleen beschikbaar als je de analysis toolpack als add-in hebt geinstalleerd. Misschien kan het ook wel al met goalseek.quote:
Alvast bedankt voor de snelle reactie..maar helaas, hij pakt geen van beiden, bij goalseek maakt hij er het getal van dat je invoert, bij oplosser maakt hij er een getal van in de miljoenen. Is er niet iets dat ik in tabblad 2, 100 getallen kan neerzetten, hij ze om de beurt invoert in tabblad 1 in een cel en deze vervolgens in tabblad 2 weer neerzet naast de testgetallen?quote:Op maandag 7 september 2009 18:34 schreef Deetch het volgende:
[..]
Oplosser heb je alleen beschikbaar als je de analysis toolpack als add-in hebt geinstalleerd. Misschien kan het ook wel al met goalseek.
Echter als de berekening via een macro gaat werkt de oplosser/goalseek niet.
| 1 2 3 4 5 6 7 8 9 10 11 | Do Until ActiveCell.Value = "" If Range("C2") <= Range("C1") Then Exit Sub If Range("C2") > Range("C1") Then If Round(ActiveCell.Value, 3) - Round(ActiveCell.Value, 2) <> 0 Then ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)" End If End If ActiveCell.Offset(1, 0).Select Loop |
| 1 2 3 4 5 6 7 | If Not Intersect(Target, Range("A1")) Is Nothing Then '[JOUW CODE HIER] End If Application.EnableEvents = True |
Oja tuurlijk. Thx man!quote:Op woensdag 9 september 2009 14:48 schreef sanger het volgende:
Doe eers ttwee rijen. Die selecteer je en vervolgens selecteer je alle rijen waarin je dit wilt herhalen. Daarna Ctrl+V.
Als het goed is kopieert ie de opmaak nu.
| 1 2 3 4 5 6 7 8 9 | For i = 1 To 150 If i Mod 2 = 0 Then Rows .Interior.ColorIndex = 6End If Next i End Sub |
Dat wist ik nietquote:Op woensdag 9 september 2009 14:51 schreef EddyAlbena het volgende:
[..]
Oja tuurlijk. Thx man!
Overigens niet CTRL+V, maar Paste Special. Stonden namelijk al waarden in.
Thx
edit: of die kwast natuurlijk. En het is nog niet eens laat![]()
Ejo, bedankt manquote:Op woensdag 9 september 2009 14:55 schreef DaFan het volgende:
Hier een macro:
[ code verwijderd ]
Waarbij 150 het aantal rijen is, en 6 de kleur.
| Forum Opties | |
|---|---|
| Forumhop: | |
| Hop naar: | |