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.
Je kan een macro niet terugdraaien.quote:Op woensdag 9 september 2009 15:15 schreef EddyAlbena het volgende:
[..]
Ejo, bedankt man
En hoe maak ik de actie van de Macro weer ongedaan? Had alles al goed gekleurd, maar wilde die macro toch checken maar nu is alles geel en kan ik niks terugzetten![]()
A1:A3 bevatten je productenquote:Op donderdag 10 september 2009 08:51 schreef gurdi het volgende:
hallo ik ben nog een beetje een nieuweling in excel .
Ik stuit op het volgende probleem.
In kolom 1 heb ik een aantal producten.
in kolom 2 heb ik het bijbehorende besparing op dat product.
nou wil ik van het product met de maximale besparing de productnaam in bijvoorbeeld d4 hebben
hoe krijg ik dit voor elkaar.
met max krijg ik gewoon het getal van de besparing.
met verschuiving kan ik wel 1 kolom naar links kijken maar ik kan de formules niet combineren,
want ik dacht aan: =verschuiving(max(b1;b10);0;-1)
dus een verschuiving naar 1 vakje naar links, met asl verwijzingsvakje het maximum van kolom 2
maar dit werkt niet
![]()
Thanks voor de moeite!quote:Op dinsdag 8 september 2009 08:10 schreef DaFan het volgende:
Hendrik ik ben hiertoe gekomen:
[ code verwijderd ]
Veel overbodige Else, veel overbodige Ifs. De laatste twee zeggen uiteindelijk precies hetzelfde, of het nu groter of kleiner is dan 0. Dan kan je beter gebruiken NIET GELIJK AAN nul, en dan je formule.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Do Until ActiveCell.Value = "" If Range("C2") <> Range("C1") Then If Range("C2") > Range("C1") Then If ActiveCell.Value - 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 ActiveCell.Value - 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 done End If Loop |
| 1 2 3 4 5 6 7 8 9 10 | Do Until ActiveCell.Value = "" If Range("C2") <= Range("C1") Then Exit Sub If Range("C2") > Range("C1") Then If ActiveCell.Value - 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 | ... Else GoTo done End If |
| 1 |
| 1 2 3 4 | Else ActiveCell.Offset(1, 0).Select End If |
| 1 2 | ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)" |
| 1 2 | ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)" |
| 1 |
| 1 2 3 4 5 6 7 8 9 10 | Do Until ActiveCell.Value = "" If Range("C2") = Range("C1") Then Exit Sub If Range("C2") > Range("C1") Then ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*RC[-1],2)" End If ActiveCell.Offset(1, 0).Select Loop |
hee bedankt man, het werkt.quote:Op donderdag 10 september 2009 11:29 schreef DaFan het volgende:
[..]
A1:A3 bevatten je producten
B1:B3 bevatten je besparingen
=INDEX(A1:A3;VERGELIJKEN(MAX(B1:B3);B1:B3;0))
en alweer bedankt.quote:Op vrijdag 11 september 2009 12:16 schreef DaFan het volgende:
="Besparing tov oude installatie met " & INDEX(A1:A3;VERGELIJKEN(MAX(B1:B3);B1:B3;0))
Probleem met zulke combinaties van strings en berekeningen, is dat je niet meer kan rekenen met de uitkomst van je berekening (het is immers een string). Denk daar dus aan
abs()quote:Op dinsdag 15 september 2009 10:40 schreef gurdi het volgende:
Ik heb een 2 nieuwe vragen
in kolom H staan veel wardes, zowel positief als negatief.
eerste vraag. ik wil ene getal het dichtste bij 0 hebben. een minimum geeft het laagste negatieve getal weer.
is er een functie om het dichtst bij 0 te komen,
of een manier om alle negatieve getallen positief te maken en dan een minimum te doen.
een worksheet is gelukkig niet oneindig, neem dus gewoonquote:- ik dacht zelf twee manieren met cel eigenschappen veranderen maar dan word er gewoon met negatief doorgerekend en komt er niet het goede antwoord uit bij minimum.
- de functie =ALS(h8<0;"";h8*-1,h8), nadeel je krijgt er een hele rij langs. geen onderscheiding wat nou negatief was en wat niet.
tweede vraag. Ik wil dat de functie begint bij h8 en eindigt bij oneindig (dus waar het laatste getal staat)
hoe vul ik dit in?
over de hele kolom =min(H;H) dus ik dacht =min(h8;h) maar dat werkt niet..
wie kan deze vragen beantwoorden.
Je ontkomt er echt niet aan om een extra kolom te gebruiken ;(quote:Op woensdag 16 september 2009 12:28 schreef Stansfield het volgende:
Ik heb een vraag over afronden. Ik wil graag bedragen afronden op hondertallen. Dus 125.840 moet worden 125.800. Nu is dit natuurlijk wel mogelijk met de formulie =AFRONDEN(125.840);-2)
Maar ik wil eigenlijk dan een heleboel verschillende bedragen tegelijk kopieeren in die cellen. Dat werkt dus niet als ik overal die formule voor moet gaan zetten. Weet iemand hoe je dat nog op een andere manier voor elkaar krijgt. Iets met celeigenschappen ofzo.
Ik gebruik trouwens de excel 2007 NL versie.
| 1 2 3 4 5 6 7 8 9 | Dim c As Range For Each c In Selection c.Value = Round(c.Value / 100, 0) * 100 Next End Sub |
| Forum Opties | |
|---|---|
| Forumhop: | |
| Hop naar: | |