abonnement Unibet Coolblue Bitvavo
  dinsdag 15 januari 2013 @ 13:41:18 #101
62215 qu63
..de tijd drinkt..
pi_121590541
quote:
2s.gif Op dinsdag 15 januari 2013 12:22 schreef Orealo het volgende:
Hoi,

Ik heb een excel sheet die automatisch een aantal gegevens moet kopieeren uit een ander tabblad. Kan niet moeilijk zijn maar toch lukt het niet.
(de code is iets uitgebreider want het bestand waarin de andere gegevens in staan heeft een variabele naam.). Ik krijg de gegevens niet gekopieerd. De code loopt gewoon goed door, geen foutmelding maar er staat uiteindelijk niets in het huidige bestand. Als ik ctrl-v druk zie ik overigens wel dezelfde celgrootte als in het bronbestand. Dit zou betekenen dat hij wel iets kopieerd maar de gegevens niet mee neemt..
-
[ code verwijderd ]

range() aanpassen naar workbook().range() oid? Lijkt er op alsof ie nu gegevens uit je huidige sheet wil kopiëren (denk ik)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 15 januari 2013 @ 14:29:44 #102
93304 Orealo
Tsu Tsu Tsunami!!!
pi_121592390
quote:
0s.gif Op dinsdag 15 januari 2013 13:41 schreef qu63 het volgende:

[..]

range() aanpassen naar workbook().range() oid? Lijkt er op alsof ie nu gegevens uit je huidige sheet wil kopiëren (denk ik)
Wat stom. Je hebt gelijk. Ik heb er activesheet.range van gemaakt en loopt nu als een zonnetje.
Bedankt!
  donderdag 17 januari 2013 @ 14:17:50 #103
62215 qu63
..de tijd drinkt..
pi_121678775
Heeft iemand al eens iets moois met Power View gemaakt? http://office.microsoft.c(...)iew-HA102835646.aspx

http://office.microsoft.c(...)102835634.aspx?CTT=3

Toch jammer dat ik nog een oude versie van Excel heb ;(
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_121683699
- voor reclame mag je mailen met pr@fok.nl -

[ Bericht 45% gewijzigd door Bart op 17-01-2013 18:11:24 ]
  donderdag 17 januari 2013 @ 17:54:36 #105
346939 Janneke141
Green, green grass of home
pi_121687044
quote:
0s.gif Op donderdag 17 januari 2013 16:22 schreef Peter_Nijhuis het volgende:
knip
En je hebt je helemaal speciaal geregistreerd om dat met ons te delen? Wat tof van je!

TR

[ Bericht 37% gewijzigd door Bart op 17-01-2013 18:11:38 ]
Opinion is the medium between knowledge and ignorance (Plato)
pi_121891973
Volgend probleem:

Ik speel online spelletje Valor, hierbij moet je citys veroveren....
ik heb al een heel sheet gemaakt met verschillende reistijden legers.... maar ik wil een automatische
attack plan laten maken, die mn citys selecteerd op basis van reistijd...

B2 C2 D2 e2 F 2 g2 O2 P2 Q R S T
plaatsnaam A 184 238 1000 500 1 3:20:17 8:10:12 plaatsnaam A
plaatsnaam B 187 251 1000 500 1 2:19:147 9:12:40 plaatsnaam B
plaatsnaam C 210 240 1000 500 1 5:20:25 12:39:40 plaatsnaam C
plaatsnaam D 192 220 1000 500 1 4:10:56 8:10:12 plaatsnaam D
plaatsnaam E 188 227 000 500 1 3:35:20 8:25:19 plaatsnaam E

B2 zijn citynamen
C2 zijn coordinaten
D2 zijn coordinaten
E2/Ef/G2 zijn troepen aantallen
O2 zijn reistijden van E2/F2
P2 zijn reistijden van G2

Bovenste gedeelde is dus waar mijn onderste gedeelte zijn gegevens vandaan haald...

Onderste gedeelte:
Is aanvalsplan:
TIJDEN PLaats van uit verzenden( opzoeken uit schema boven
B74 =KLEINSTE(P2:P65;5) C74=VERT.ZOEKEN(B74;P2:T65;5;ONWAAR
B75 =KLEINSTE(P2:P65;4) C74=VERT.ZOEKEN(B74;P2:T65;5;ONWAAR
B75 =KLEINSTE(P2:P65;3) C74=VERT.ZOEKEN(B74;P2:T65;5;ONWAAR
B75 =KLEINSTE(P2:P65;2) C74=VERT.ZOEKEN(B74;P2:T65;5;ONWAAR
B75 =KLEINSTE(P2:P65;1) C74=VERT.ZOEKEN(B74;P2:T65;5;ONWAAR

Maar nu het probleem dat als 2 tijden hetzelfde zijn in kolom P... dat ik 2 dezelfde plaatsnamen krijg... Dus ik krijg nu bijvoorbeeld 2 x Plaatsnaam A.....

Ik wil dus dat bij gelijke reistijd hij allebei de verschillende plaatsnamen aangeeft....

Ik heb het nu in het verkort geprobeerd uit te leggen.

Ik kan het bestand mailen mocht iemand er uitgebreider naar willen kijken...

Kan iemand mij hierbij helpen?
pi_121892088
Je zou even een check op dezelfde tijden kunnen doen in die kolom en dan bij 1 van dubbele tijden steeds 1 seconde optellen. Als dit niet al teveel uitmaakt op het geheel natuurlijk. Als het over korte reistijden gaat dan werkt dit natuurlijk niet, maar als het om berekeningen van meer dan 10 minuten gaat = 600 seconden maakt die ene seconde natuurlijk ook niet uit.
pi_121892357
hoe kan ik dat bij dubbele tijden dan oplaten tellen dan?
pi_121892433
Liefst wel dat het automattisch gebeurt.....:-)
pi_121892537
Internet gaming srs business.
Deed ik ook altijd hoor :*
pi_121892949
De tabel op tijden sorteren,het handmatig doen aangezien het maar om 65 getallen gaat.

Niet geheel automagisch, nog steeds de tabel op tijden sorteren en er een VBA programmatje over heen laten lopen.

Om je een beetje op weg te helpen hier iets wat werkt, maar als er tijden 3* voorkomen in de rij dan gaat het nog fout. ;)

Ook bij het optellen tel hij er nu 1 dag bij op ipv 1 seconden, maar daaar moet je wel uit kunnen komen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub dubbelplus1()

Dim i, j  As Integer
    Dim date1, date2 As Date
  
   For i = 1 To 65 'rijen
     j = 16 '(dat is kolom P )
      date1 = Cells(i, j).Value
      date2 = Cells(i + 1, j).Value
       If date2 = date1 Then
         Cells(i + 1, j).Value = date2 + 1
    End If
   Next i
End Sub
pi_121893182
THX! ik ga het proberen....
  donderdag 24 januari 2013 @ 16:05:19 #113
241730 Klonterpot
Je geld of je never
pi_121988691
Hoi, ik heb een korte vraag en hoop dat iemand met ervaring mij kan helpen.

Ik heb een kolom 'Zender' met daarin als eerstvolgende rij 'RTL 8'. Ik wil deze naar beneden slepen zonder dat de 8 in de rij optelt. Waarschijnlijk erg simpel, maar ik krijg het niet voor elkaar en kan ook de juiste zoekopdrachten in Google niet beredeneren op dit moment.
The remedy is the experience.
  donderdag 24 januari 2013 @ 17:15:10 #114
62215 qu63
..de tijd drinkt..
pi_121992082
quote:
0s.gif Op donderdag 24 januari 2013 16:05 schreef Klonterpot het volgende:
Hoi, ik heb een korte vraag en hoop dat iemand met ervaring mij kan helpen.

Ik heb een kolom 'Zender' met daarin als eerstvolgende rij 'RTL 8'. Ik wil deze naar beneden slepen zonder dat de 8 in de rij optelt. Waarschijnlijk erg simpel, maar ik krijg het niet voor elkaar en kan ook de juiste zoekopdrachten in Google niet beredeneren op dit moment.
Vul in =tekst("RTL 8")
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 24 januari 2013 @ 17:22:10 #115
346939 Janneke141
Green, green grass of home
pi_121992375
quote:
0s.gif Op donderdag 24 januari 2013 17:15 schreef qu63 het volgende:

[..]

Vul in =tekst("RTL 8")
Dit inderdaad, of gewoon kopiëren en plakken in plaats van slepen.
Opinion is the medium between knowledge and ignorance (Plato)
  donderdag 24 januari 2013 @ 19:17:53 #116
158136 Joooo-pi
Do you want a balloon...
pi_121996617
of control (CTRL) ingedrukt houden bij het doortrekken :7
heitieh
pi_122006845
ik hou de uitslagen van het jeugdelftal dat ik train in een excel bestandje bij, maar nu verandert excel een uitslag van bijvoorbeeld 2-1, automatisch in 2 januari 2013. Hoe kan ik het instellen dat dit niet meer gebeurt?
  donderdag 24 januari 2013 @ 22:08:57 #118
62215 qu63
..de tijd drinkt..
pi_122007078
quote:
0s.gif Op donderdag 24 januari 2013 22:04 schreef deuk.in.een.pakje.boter het volgende:
ik hou de uitslagen van het jeugdelftal dat ik train in een excel bestandje bij, maar nu verandert excel een uitslag van bijvoorbeeld 2-1, automatisch in 2 januari 2013. Hoe kan ik het instellen dat dit niet meer gebeurt?
Opmaak instellen op 'getal' of 'standaard'..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_122007196
quote:
0s.gif Op donderdag 24 januari 2013 22:08 schreef qu63 het volgende:

[..]

Opmaak instellen op 'getal' of 'standaard'..
nope, dan maakt hij er nog steeds een datum van
  donderdag 24 januari 2013 @ 23:37:56 #120
346939 Janneke141
Green, green grass of home
pi_122012485
quote:
0s.gif Op donderdag 24 januari 2013 22:04 schreef deuk.in.een.pakje.boter het volgende:
ik hou de uitslagen van het jeugdelftal dat ik train in een excel bestandje bij, maar nu verandert excel een uitslag van bijvoorbeeld 2-1, automatisch in 2 januari 2013. Hoe kan ik het instellen dat dit niet meer gebeurt?
Opmaak instellen op Tekst.
Opinion is the medium between knowledge and ignorance (Plato)
pi_122012567
quote:
0s.gif Op donderdag 24 januari 2013 23:37 schreef Janneke141 het volgende:

[..]

Opmaak instellen op Tekst.
Top, bedankt :). Het kan allemaal zo simpel zijn als je weet hoe het moet :P
pi_122019975
quote:
0s.gif Op donderdag 24 januari 2013 16:05 schreef Klonterpot het volgende:
Hoi, ik heb een korte vraag en hoop dat iemand met ervaring mij kan helpen.

Ik heb een kolom 'Zender' met daarin als eerstvolgende rij 'RTL 8'. Ik wil deze naar beneden slepen zonder dat de 8 in de rij optelt. Waarschijnlijk erg simpel, maar ik krijg het niet voor elkaar en kan ook de juiste zoekopdrachten in Google niet beredeneren op dit moment.
quote:
99s.gif Op donderdag 24 januari 2013 19:17 schreef Joooo-pi het volgende:
of control (CTRL) ingedrukt houden bij het doortrekken :7
Die kende ik nog niet en er zijn nog meer mogelijkheden

of de hele range die gevuld moet worden met RTL8 selecteren.
Vervolgens "RTL8" intypen en CTRL+ENTER

Of als de eerste RTL8 er al staat deze selecteren samen met de gehele range eronder en dan CTRL+D doen.
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
  vrijdag 25 januari 2013 @ 12:32:32 #123
158136 Joooo-pi
Do you want a balloon...
pi_122025569
quote:
3s.gif Op vrijdag 25 januari 2013 09:28 schreef Deetch het volgende:

[..]

[..]

Die kende ik nog niet en er zijn nog meer mogelijkheden

Die CTRL optie is superhandig, en het werkt ook andersom. Als je in een cel het getal 1 zet en je trekt deze naar beneden, dan is de standaard dat de opvolgende cellen ook gevuld worden met 1. Druk je op CTRL, dan wordt het 1, 2, 3, 4, ..... Als dat klaar is en je trekt 4 cellen door met 1, 2, 3, 4 erin, dan is de standaard dat de opvolgende cellen worden gevuld met 5, 6, 7 ..., maar druk je op CTRL dan wordt het 1,2,3,4,1,2,3,4,1,2,3,4 ...

:)
heitieh
  dinsdag 29 januari 2013 @ 13:38:59 #124
93304 Orealo
Tsu Tsu Tsunami!!!
pi_122210013
Excelkoningen,

Ik ben redelijk bedreven in formules, maar VBA is nogal nieuw voor me. Ik heb een probleem met een verwijzingsbestand. De gebruiker voort een aantal gegevens in (zeg dag en week) en vervolgens tovert de sheet de juiste link naar voren, in de vorm van een verwijzing. Dus stel:
Gebruiker voert in: week 1, dag dinsdag.

De sheet maakt dan in een cel de volgende verwijzing: "='X:\rapportage\2013 week 5.xls]maandag'!$C30"

Als ik vervolgens de verwijzing kopieer in notepad en weer plak wordt de verwijzing gepakt en komen de juiste gegevens naar voren.
Ik wil dat laatste nu met VBA doen, maar zonder omslachtig via VBA notepad te laten openen hoop ik dat er een makkelijkere methode bestaat.. Weten jullie daar iets van?
  dinsdag 29 januari 2013 @ 13:50:31 #125
62215 qu63
..de tijd drinkt..
pi_122210443
quote:
5s.gif Op dinsdag 29 januari 2013 13:38 schreef Orealo het volgende:
Excelkoningen,

Ik ben redelijk bedreven in formules, maar VBA is nogal nieuw voor me. Ik heb een probleem met een verwijzingsbestand. De gebruiker voort een aantal gegevens in (zeg dag en week) en vervolgens tovert de sheet de juiste link naar voren, in de vorm van een verwijzing. Dus stel:
Gebruiker voert in: week 1, dag dinsdag.

De sheet maakt dan in een cel de volgende verwijzing: "='X:\rapportage\2013 week 5.xls]maandag'!$C30"

Als ik vervolgens de verwijzing kopieer in notepad en weer plak wordt de verwijzing gepakt en komen de juiste gegevens naar voren.
Ik wil dat laatste nu met VBA doen, maar zonder omslachtig via VBA notepad te laten openen hoop ik dat er een makkelijkere methode bestaat.. Weten jullie daar iets van?
cel.value='X:\rapportage\2013 week 5.xls]maandag'!$C30;

:?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 29 januari 2013 @ 13:59:00 #126
93304 Orealo
Tsu Tsu Tsunami!!!
pi_122210746
quote:
0s.gif Op dinsdag 29 januari 2013 13:50 schreef qu63 het volgende:

[..]

cel.value='X:\rapportage\2013 week 5.xls]maandag'!$C30;

:?
Het gaat om iets meer dan 200 cellen die aangepast moeten worden.
Ik kan dan inderdaad 200 keer in VBA aangeven hoe hij de celwaarde moet berekenen (en hopen dat hij er dan een formule van maakt) maar dat moet toch sneller kunnen?
pi_122214976
Ik heb een vraagje;

Stel ik heb een hoop getallen die ik laat optellen en die komt uit op 100 (voor gemak)

Nu wil ik die 100 als 100% gebruiken.

Naast al die getallen zet ik een nieuwe reeks neer die bijvoorbeeld op 50 uitkomt, nu wil ik onder elke aantal dat er uit de reeks komt zien staan hoeveel procent dat is in vergelijking met die eerdere gestelde 100%.

Dus 100/50 (daaronder 50%)/25 (daaronder 25%)/76 (daaronder 76%) en ga zo maar door...

Hopelijk is het duidelijk :P
  dinsdag 29 januari 2013 @ 16:19:53 #128
346939 Janneke141
Green, green grass of home
pi_122216605
quote:
2s.gif Op dinsdag 29 januari 2013 15:42 schreef wc-eend het volgende:
Hopelijk is het duidelijk
Eigenlijk niet echt, maar ik wil wel wat gokken:
Zorg in ieder geval dat al die kolom-totalen in dezelfde rij uitkomen. Ik neem voor het gemak even aan dat die totalen in rij 37 staan. En dat je referentie-totaal (de gestelde 100%) in kolom A staat.

In B38 zet je dan =B37/$A37 en die formule kopieer je door naar rechts. De celeigenschappen van heel rij 38 stel je in op Percentage met het gewenste aantal decimalen.

Als je bedoelt wat ik denk, dan zou dit goed moeten gaan.
Opinion is the medium between knowledge and ignorance (Plato)
pi_122218170
quote:
0s.gif Op dinsdag 29 januari 2013 16:19 schreef Janneke141 het volgende:

[..]

Eigenlijk niet echt, maar ik wil wel wat gokken:
Zorg in ieder geval dat al die kolom-totalen in dezelfde rij uitkomen. Ik neem voor het gemak even aan dat die totalen in rij 37 staan. En dat je referentie-totaal (de gestelde 100%) in kolom A staat.

In B38 zet je dan =B37/$A37 en die formule kopieer je door naar rechts. De celeigenschappen van heel rij 38 stel je in op Percentage met het gewenste aantal decimalen.

Als je bedoelt wat ik denk, dan zou dit goed moeten gaan.
Mijn excuus..

Als wat jij zegt niet werkt dan zal ik ff een voorbeeldplaatje maken met wat ik bedoel :P
pi_122243255
quote:
5s.gif Op dinsdag 29 januari 2013 13:38 schreef Orealo het volgende:
Excelkoningen,

Ik ben redelijk bedreven in formules, maar VBA is nogal nieuw voor me. Ik heb een probleem met een verwijzingsbestand. De gebruiker voort een aantal gegevens in (zeg dag en week) en vervolgens tovert de sheet de juiste link naar voren, in de vorm van een verwijzing. Dus stel:
Gebruiker voert in: week 1, dag dinsdag.

De sheet maakt dan in een cel de volgende verwijzing: "='X:\rapportage\2013 week 5.xls]maandag'!$C30"

Als ik vervolgens de verwijzing kopieer in notepad en weer plak wordt de verwijzing gepakt en komen de juiste gegevens naar voren.
Ik wil dat laatste nu met VBA doen, maar zonder omslachtig via VBA notepad te laten openen hoop ik dat er een makkelijkere methode bestaat.. Weten jullie daar iets van?
Ik snap er eigenlijk niets van. Als je week 1 invult heb je week 5 nodig?
Vervolgens heb je het over dat de verwijzing wordt 'gepakt'. Bedoel je dat er een hyperlink van wordt gemaakt?

Zoek je gewoon iets van:
ActiveCell.FormulaR1C1 = "=HYPERLINK(""x:\rapportage\2013 week" & A1 & ".xls"")"
pi_122245226
quote:
0s.gif Op dinsdag 29 januari 2013 16:19 schreef Janneke141 het volgende:

[..]

Eigenlijk niet echt, maar ik wil wel wat gokken:
Zorg in ieder geval dat al die kolom-totalen in dezelfde rij uitkomen. Ik neem voor het gemak even aan dat die totalen in rij 37 staan. En dat je referentie-totaal (de gestelde 100%) in kolom A staat.

In B38 zet je dan =B37/$A37 en die formule kopieer je door naar rechts. De celeigenschappen van heel rij 38 stel je in op Percentage met het gewenste aantal decimalen.

Als je bedoelt wat ik denk, dan zou dit goed moeten gaan.
Het werkt maar hij zegt inplaats van 100% dat het een 1% is, dus als ik 50% eraf haal krijg ik niet 100/50 maar 1/0,5..

Er moeten dus twee nullen bij :P


Opgelost, thanks :D
  woensdag 30 januari 2013 @ 18:24:03 #132
93304 Orealo
Tsu Tsu Tsunami!!!
pi_122264380
quote:
0s.gif Op woensdag 30 januari 2013 01:04 schreef snabbi het volgende:

[..]

Ik snap er eigenlijk niets van. Als je week 1 invult heb je week 5 nodig?
Vervolgens heb je het over dat de verwijzing wordt 'gepakt'. Bedoel je dat er een hyperlink van wordt gemaakt?

Zoek je gewoon iets van:
ActiveCell.FormulaR1C1 = "=HYPERLINK(""x:\rapportage\2013 week" & A1 & ".xls"")"
Ik ben niet zo goed in uitleggen.
Maar wat ik bedoel is dat de gebruiker door het invullen van twee velden zelf de verwijzing maakt naar het juiste excelbestand. De waarde die benodigd is komt uit dat excelbestand, uit een tabblad die dat de gebruiker aangeeft (maandag, dinsdag, etc).

Met ActiveCell kan ik dat invullen. Maar het is voor 200+ cellen bedoeld en dan ben ik nog wel even bezig.
pi_122268410
quote:
2s.gif Op woensdag 30 januari 2013 18:24 schreef Orealo het volgende:

[..]

Ik ben niet zo goed in uitleggen.
Maar wat ik bedoel is dat de gebruiker door het invullen van twee velden zelf de verwijzing maakt naar het juiste excelbestand. De waarde die benodigd is komt uit dat excelbestand, uit een tabblad die dat de gebruiker aangeeft (maandag, dinsdag, etc).

Met ActiveCell kan ik dat invullen. Maar het is voor 200+ cellen bedoeld en dan ben ik nog wel even bezig.
Probeer eens wat met "indirect"
pi_122272137
met macro moet je een loop bouwen of iets kopieren.

zonder macro kan je ook gebruik maken van iets als:
=HYPERLINK("file://c:/test/"&A1&".xlsx";"link")

waarbij A1 natuurlijk je random tekst is.
  FOK!-Schrikkelbaas woensdag 30 januari 2013 @ 21:05:50 #135
862 Arcee
Look closer
pi_122272607
quote:
5s.gif Op dinsdag 29 januari 2013 13:38 schreef Orealo het volgende:
Excelkoningen,

Ik ben redelijk bedreven in formules, maar VBA is nogal nieuw voor me. Ik heb een probleem met een verwijzingsbestand. De gebruiker voort een aantal gegevens in (zeg dag en week) en vervolgens tovert de sheet de juiste link naar voren, in de vorm van een verwijzing. Dus stel:
Gebruiker voert in: week 1, dag dinsdag.

De sheet maakt dan in een cel de volgende verwijzing: "='X:\rapportage\2013 week 5.xls]maandag'!$C30"

Als ik vervolgens de verwijzing kopieer in notepad en weer plak wordt de verwijzing gepakt en komen de juiste gegevens naar voren.
Ik wil dat laatste nu met VBA doen, maar zonder omslachtig via VBA notepad te laten openen hoop ik dat er een makkelijkere methode bestaat.. Weten jullie daar iets van?
Bedoel je dat die link niet standaard klikbaar is direct?

Met =HYPERLINK() wordt-ie dat wel idd, zoals diverse mensen al aangaven.
Never in the entire history of calming down did anyone ever calm down after being told to calm down.
pi_122324835
Ik heb meer een algoritme nodig die ik in Excel wil programmeren. Ik heb de volgende lijst met waardes:
1: 0,07 | 2: 0,45 | 3: 0,3 | 4: 0,2 | 5: 0,5 | 6: 0,2 | 7: 0,28 | 8: 0,40 | 9> 0,53 | 10: 0,5 | 11: 0,5.
(nog heel veel meer). Deze waardes kun je zien als dozen met een bepaalde inhoud die op een pallet moeten komen.

Nu zou ik willen dat Excel terugkomt met de optimale samenstelling waarbij:
1) het niet uitmaakt of er 2 of meerdere componenten op 1 palet komen
2) De inhoud mag nooit boven 1 komen
3) Vaak is er geen combinatie mogelijk die tot 1 komt
4) Zo weinig mogelijk pallets moeten worden gebruikt

In het bovenstaande voorbeeld zou optimaal zijn:
Pallet 1: 1 + 8 + 9 => 0,07 + 0,4 + 0,53 = 1
Pallet 2: 10 + 11 => 0,5 + 0,5 = 1
Pallet 3: 3 + 4 + 5 => 0,3 + 0,2 + 0,5 = 1
Pallet 4: 2 + 6 + 7 => 0,45 + 0,2 + 0,28 = 0,93

Pfff opschrijven duurt al een half uur. Ik hoop dat iemand een slim algoritme weet. Thx alvast!
pi_122327788
De oplossing zit in de Solver van Excel (Oplosser in het Nederlands).
Je moet hiervoor via de Excel opties de Oplosser Invoegtoepassing activeren.

Door middel van deze tool kan je restricties opgeven en de optimale waarde opzoeken.

Voorbeeld:
http://www.mijnbestand.nl/Bestand-ZEVNCEM77J87.xlsx

(in de gekleurde cellen kun je de maten wijzigen en door de solver te gebruiken gaat hij de combinaties zoeken die werken.

[ Bericht 37% gewijzigd door snabbi op 01-02-2013 01:12:36 ]
  vrijdag 1 februari 2013 @ 10:12:54 #138
82396 nils7
De forumkrokodil
pi_122332347
Geen idee of ik het hier juist vraag, maar heb een grote kans dat jullie het weten....

Ik wil graag de taal van Excel/Office 2013 veranderen.
Prive heb ik van de week Office 2013 in het Nederlands geïnstalleerd, op het werk gebruik in een Engelstalige versie waar ik dus liever iets mee doe. (op google zoeken in het Engels naar formules werkt ook wat beter).

Anyway ik krijg 'm dus niet in het Engels :(
Ik heb een language pack voor Win8 geinstalleerd (gewoon via Config. Scherm, maar dat doet ie zo snel dat ik me niet kan voorstellen dat die heel dat pakket zo heeft gedownload).
Als ik dat instel dan is de helft van m'n menu's in Win8 idd in het Engels maar Office helaas niet.
Ook de mogelijkheid Engels in te stellen lukt niet binnen Office.
Iemand enige tips?
N/A
Disclaimer: ik ben geen expert maar shitposter, dit is geen advies en aan deze post zijn geen rechten te ontlenen
  vrijdag 1 februari 2013 @ 10:52:30 #139
62215 qu63
..de tijd drinkt..
pi_122333531
quote:
0s.gif Op vrijdag 1 februari 2013 10:12 schreef nils7 het volgende:
Geen idee of ik het hier juist vraag, maar heb een grote kans dat jullie het weten....

Ik wil graag de taal van Excel/Office 2013 veranderen.
Prive heb ik van de week Office 2013 in het Nederlands geïnstalleerd, op het werk gebruik in een Engelstalige versie waar ik dus liever iets mee doe. (op google zoeken in het Engels naar formules werkt ook wat beter).

Anyway ik krijg 'm dus niet in het Engels :(
Ik heb een language pack voor Win8 geinstalleerd (gewoon via Config. Scherm, maar dat doet ie zo snel dat ik me niet kan voorstellen dat die heel dat pakket zo heeft gedownload).
Als ik dat instel dan is de helft van m'n menu's in Win8 idd in het Engels maar Office helaas niet.
Ook de mogelijkheid Engels in te stellen lukt niet binnen Office.
Iemand enige tips?
Dit zou moeten werken: http://office.microsoft.c(...)ams-HA010356057.aspx
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  vrijdag 1 februari 2013 @ 11:11:31 #140
82396 nils7
De forumkrokodil
pi_122334151
quote:
Die had ik idd al gevonden maar helaas (al ging ik er wel vanuit dat de Win7 instructies ook van toepassing zijn op Win8) dat werkte niet.
N/A
Disclaimer: ik ben geen expert maar shitposter, dit is geen advies en aan deze post zijn geen rechten te ontlenen
pi_122338642
welke versie van office? Office starter kan bijvoorbeeld niet van taal wisselen.

Als je in office de taal wil wisselen van de menu's enzo doe je dat normaliter als volgt:
file, options, languages, en dan bij overal voor engels kiezen (of match windows default als dat ook enegels is)
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
pi_122355087
quote:
0s.gif Op vrijdag 1 februari 2013 00:53 schreef snabbi het volgende:
De oplossing zit in de Solver van Excel (Oplosser in het Nederlands).
Je moet hiervoor via de Excel opties de Oplosser Invoegtoepassing activeren.

Door middel van deze tool kan je restricties opgeven en de optimale waarde opzoeken.

Voorbeeld:
http://www.mijnbestand.nl/Bestand-ZEVNCEM77J87.xlsx

(in de gekleurde cellen kun je de maten wijzigen en door de solver te gebruiken gaat hij de combinaties zoeken die werken.
held!

Is het ook mogelijk om dit met een formule aan te sturen? Thx alvast!
pi_122362483
quote:
0s.gif Op vrijdag 1 februari 2013 20:19 schreef jakees het volgende:

[..]

held!

Is het ook mogelijk om dit met een formule aan te sturen? Thx alvast!
Nee. Het probleem wat je beschrijft noemen we in de wiskunde lineair programmeren. Het is een optimaliseringsprobleem. Je formule approach zou betekenen dat er maar 1 uitkomst is, dat is niet zo. Er zijn meerdere uitkomsten maar er is er maar 1 (of meerdere) de beste.

Wel kan je natuurlijk gewoon alle waarden aanpassen en via de solver iedere keer opnieuw de beste uitrekenen. Wel moet je je even verdiepen in hoe ik die constraints voor je hebt gebouwd.
pi_122374129
quote:
0s.gif Op vrijdag 1 februari 2013 22:45 schreef snabbi het volgende:

[..]

Nee. Het probleem wat je beschrijft noemen we in de wiskunde lineair programmeren. Het is een optimaliseringsprobleem. Je formule approach zou betekenen dat er maar 1 uitkomst is, dat is niet zo. Er zijn meerdere uitkomsten maar er is er maar 1 (of meerdere) de beste.

Wel kan je natuurlijk gewoon alle waarden aanpassen en via de solver iedere keer opnieuw de beste uitrekenen. Wel moet je je even verdiepen in hoe ik die constraints voor je hebt gebouwd.
ok je bent een kanjer! Die contraints snap ik wel redelijk maar ik vraag me toch af of ik dat niet wat dynamisch kan maken. Ik weet namelijk niet of ik 5 of 15 pallets nodig heb. Ik zit zelf te denken aan ok dan de contraints wat ruimer op te zetten en ook het aantal pallets. Is het dan geen probleem als er een aantal pallets niet gevuld zijn?
pi_122375056
quote:
0s.gif Op vrijdag 1 februari 2013 22:45 schreef snabbi het volgende:

[..]

Nee. Het probleem wat je beschrijft noemen we in de wiskunde lineair programmeren. Het is een optimaliseringsprobleem. Je formule approach zou betekenen dat er maar 1 uitkomst is, dat is niet zo. Er zijn meerdere uitkomsten maar er is er maar 1 (of meerdere) de beste.

Wel kan je natuurlijk gewoon alle waarden aanpassen en via de solver iedere keer opnieuw de beste uitrekenen. Wel moet je je even verdiepen in hoe ik die constraints voor je hebt gebouwd.
Ik probeer hem even na te bouwen maar als ik dan de constraint: $B$2:$K$4 =geheeltallig wil wijzigen naar wat groter bereik krijg ik de melding: "een randvoorwaarde moet een getal, verwijziging of formule met een numerieke waarde zijn". Wat doe ik verkeerd?
pi_122377430
Tools als matlab zijn er beter geschikt voor complexere problemen. Ook zou je het na kunnen bouwen in een programmeertaal.

ik had voor het aantal pallets nog zitten kijken naar het toevoegen van een extra voorwaarde in je doelcel, door het aantal pallets zo klein mogelijk te maken. Heb dit ook niet zo snel werkend gekregen.

Voor war betreft de foutmelding. Let goed op dat je in een constraint maar 1 bereik kan opgeven. dus wanneer je er van maakt $B$2:$K$10 INT kan het wel, maar niet wanneer je 2 bereiken in 1 constraint zet.

Tot slot je kan ook alleen de int afdwingen op cellen die ook zijn aangemerkt als cellen die veranderen mogen.
pi_122787605
Vraag:

Ik heb een excel bestand met ongeveer 400 rijen.
Nu wil ik echter onder iedere rij een lege rij toevoegen..

Dus feitelijk komen dan de waarden in de oneven rijen te staan en de even rijen zijn leeg..

Ik krijg het echter niet voor elkaar om dit bij alle rijen tegelijk te doen.. Iemand een idee?
“It's gonna be legend-... wait for it... and I hope you're not lactose intolerant because the second half of that word is DAIRY!”
  dinsdag 12 februari 2013 @ 14:09:49 #148
346939 Janneke141
Green, green grass of home
pi_122787899
Volgens mij kan dat niet subtiel. De onsubtiele manier is om op een leeg werkblad een rij getallen 1..800 in kolom A te zetten, in kolom B een combi ALS/INDEX* te zetten en dan vervolgens met waarden plakken alles weer terug te zetten op je oorspronkelijke werkblad.

SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Opinion is the medium between knowledge and ignorance (Plato)
  dinsdag 12 februari 2013 @ 16:03:24 #149
62215 qu63
..de tijd drinkt..
pi_122792297
quote:
0s.gif Op dinsdag 12 februari 2013 14:09 schreef Janneke141 het volgende:
Volgens mij kan dat niet subtiel. De onsubtiele manier is om op een leeg werkblad een rij getallen 1..800 in kolom A te zetten, in kolom B een combi ALS/INDEX* te zetten en dan vervolgens met waarden plakken alles weer terug te zetten op je oorspronkelijke werkblad.

SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Of op deze manier: http://www.pcmag.com/article2/0,2817,1785247,00.asp
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_122793332
Ik ben wat aan het oefenen met macro's. Deze zou het witregelprobleem moeten tackelen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub witregel()

Dim rw As Integer
Dim x As Integer

rw = Cells.SpecialCells(xlCellTypeLastCell).Row
x = 0

For i = 0 To rw

Range("A1").Offset(x, 0).Select
ActiveCell.EntireRow.Insert

x = x + 2

Next i

End Sub
Aldus.
pi_122793838
quote:
deze was wel heel erg makkelijk :)
“It's gonna be legend-... wait for it... and I hope you're not lactose intolerant because the second half of that word is DAIRY!”
  dinsdag 12 februari 2013 @ 18:24:38 #152
62215 qu63
..de tijd drinkt..
pi_122797264
quote:
2s.gif Op dinsdag 12 februari 2013 16:43 schreef RanTheMan het volgende:

[..]

deze was wel heel erg makkelijk :)
Lang leve google :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_122822103
Ik heb een lijst met 150 cijfers (1;150) in cellen A1;A150, nu wil ik dat excel dezen in willekeurige volgorde zet in cellen B1;B150. Cijfers mogen niet 2x voorkomen in kolom B.

Ik krijg het niet voor elkaar. -O-
Het gaat hier om XL 2003.

Mag ook een VB/Macro oplossing zijn. Niet dat ik daar heel veel verstand van heb, maar red me er wel aardig mee.

Voorbeeldje
1
2
3
4
5
[  ][ A ][ B]
[1 ]   1  [3 ]
[2 ]   2  [1 ]
[3 ]   3  [2 ]
...


[ Bericht 6% gewijzigd door mien-moeke op 13-02-2013 11:36:35 ]
  woensdag 13 februari 2013 @ 11:36:32 #154
346939 Janneke141
Green, green grass of home
pi_122822665
Maak een hulpkolom met willekeurige getallen [ =ASELECT() ] en sorteer ze op die kolom?
Opinion is the medium between knowledge and ignorance (Plato)
pi_122822748
quote:
0s.gif Op woensdag 13 februari 2013 11:36 schreef Janneke141 het volgende:
Maak een hulpkolom met willekeurige getallen [ =ASELECT() ] en sorteer ze op die kolom?
??
Wil je dit iets uitgebreider uitleggen? Snap je idee erachter niet.
  woensdag 13 februari 2013 @ 11:42:44 #156
346939 Janneke141
Green, green grass of home
pi_122822895
Wat je wil kan niet in één formule, maar wel met een paar handelingen. Je mag er een macro voor schrijven als je dat leuk vindt, maar dit is wat je doet:

- Kopieer je getallen 1..150 naar kolom B.
- in C1 zet je de formule =ASELECT(). Deze genereert een willekeurig getal tussen 0 en 1 met een stuk of 12 decimalen.
- Kopieer de formule naar C2..C150.
- Selecteer nu de cellen B1..C150 en sorteer op kolom C. De getallen in kolom B staan nu in willekeurige volgorde.
- Verwijder de inhoud van kolom C.
Opinion is the medium between knowledge and ignorance (Plato)
pi_122823290
quote:
0s.gif Op woensdag 13 februari 2013 11:42 schreef Janneke141 het volgende:
Wat je wil kan niet in één formule, maar wel met een paar handelingen. Je mag er een macro voor schrijven als je dat leuk vindt, maar dit is wat je doet:

- Kopieer je getallen 1..150 naar kolom B.
- in C1 zet je de formule =ASELECT(). Deze genereert een willekeurig getal tussen 0 en 1 met een stuk of 12 decimalen.
- Kopieer de formule naar C2..C150.
- Selecteer nu de cellen B1..C150 en sorteer op kolom C. De getallen in kolom B staan nu in willekeurige volgorde.
- Verwijder de inhoud van kolom C.
Ik 'ruik' hierin mogelijkheden. Ik ga er even mee stoeien. Thnx alvast.
  woensdag 13 februari 2013 @ 12:20:37 #158
62215 qu63
..de tijd drinkt..
pi_122824258
quote:
0s.gif Op woensdag 13 februari 2013 11:42 schreef Janneke141 het volgende:
Wat je wil kan niet in één formule, maar wel met een paar handelingen. Je mag er een macro voor schrijven als je dat leuk vindt, maar dit is wat je doet:

- Kopieer je getallen 1..150 naar kolom B.
- in C1 zet je de formule =ASELECT(). Deze genereert een willekeurig getal tussen 0 en 1 met een stuk of 12 decimalen.
- Kopieer de formule naar C2..C150.
- Selecteer nu de cellen B1..C150 en sorteer op kolom C. De getallen in kolom B staan nu in willekeurige volgorde.
- Verwijder de inhoud van kolom C.
Dat kan sneller :)

Gebruik ASELECTTUSSEN(1;150) en zit dit in B1:B150 en je bent klaar :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 13 februari 2013 @ 12:21:10 #159
346939 Janneke141
Green, green grass of home
pi_122824278
quote:
0s.gif Op woensdag 13 februari 2013 12:20 schreef qu63 het volgende:

[..]

Dat kan sneller :)

Gebruik ASELECTTUSSEN(1;150) en zit dit in B1:B150 en je bent klaar :)
Niet als je geen doublures wil toch?
Opinion is the medium between knowledge and ignorance (Plato)
  woensdag 13 februari 2013 @ 12:25:11 #160
62215 qu63
..de tijd drinkt..
pi_122824396
quote:
0s.gif Op woensdag 13 februari 2013 12:21 schreef Janneke141 het volgende:

[..]

Niet als je geen doublures wil toch?
Hmm, fair point..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_122825760
Hoe zien de getallen in kolom A er uit?
Aldus.
pi_122826011
quote:
2s.gif Op woensdag 13 februari 2013 13:03 schreef Z het volgende:
Hoe zien de getallen in kolom A er uit?
1 tot en met 150. Geen decimalen. Celeigenschappen: Getal
Of bedoel je wat anders?
pi_122826313
Nee dat. Maar er kunnen dus een paar dubbele tussen zitten?
Aldus.
pi_122826407
Voorts heb ik nog een soortgelijk edoch iets ingewikkelder probleem.

Ik heb 8 mensen, 8 taken, en 5 weken.
In kolom A2;A9 staan de taken
In rij B1;F1 staan de weeknummers
in kolom A 11;A18 staan de namen van de personen.
(Uiteraard is de hoeveelheid taken en namen behoorlijk wat langer. Maar voor t overzicht hier effe ingekort)

Ik wil volledig willekeurig door xl de namen bij de taken laten plaatsen. Maar:
1- 1 iemand kan niet meer dan 1 taak/wk uitvoeren
2- 1 iemand kan niet meer tijd dan 1wk/taak hebben
(beetje sudoku achtig dus)

Ik wil dus per cel 1 naam hebben. Die naam mag verder in de rij en kolom niet weer voorkomen.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
T=taak
[ ][A][B][C][D][E][F]
[1][  ][1][2][3][4][5]   (weken)
[2][T1]
[3][T2]
[4][T3]
[5][T4]
[6][T5]
[7][T6]
[8][T7]
[9][T8]

[11][naam1]
[12][naam2]
[13][naam3]
[14][naam4]
[15][naam5]
[16][naam6]
[17][naam7]
[18][naam8]

Eigenlijk denk ik, als ik deze heb, red ik me met die ander ook wel :)

[ Bericht 67% gewijzigd door mien-moeke op 13-02-2013 13:29:51 ]
pi_122826426
quote:
2s.gif Op woensdag 13 februari 2013 13:18 schreef Z het volgende:
Nee dat. Maar er kunnen dus een paar dubbele tussen zitten?
Nee, geen dubbellen
pi_122828520
Dat is toch een kwestie van 40 (8 x 5) cellen random verdelen over de 8 namen?
Aldus.
pi_122828863
quote:
2s.gif Op woensdag 13 februari 2013 14:18 schreef Z het volgende:
Dat is toch een kwestie van 40 (8 x 5) cellen random verdelen over de 8 namen?
Ja,volgens mij wel.Maar hoe doe je dat?
pi_122828999
Wil je dat met een druk op de knop of in een paar stappen? In een paar stappen kan je de namen als uitgangspunt nemen en daar random per week de taken over verdelen toch?
Aldus.
pi_122829082
quote:
10s.gif Op woensdag 13 februari 2013 14:31 schreef Z het volgende:
Wil je dat met een druk op de knop of in een paar stappen? In een paar stappen kan je de namen als uitgangspunt nemen en daar random per week de taken over verdelen toch?
Graag met een druk op de knop. Aangezien de hele sheet nogal aan verandering onderhevig is.
pi_122847640
Dit klinkt een beetje als het klassieke 8-koninginnen probleem. Dat is de casus, zet 8 koninginnen op een schaakbord zonder dat ze elkaar kunnen slaan. http://en.wikipedia.org/wiki/Eight_queens_puzzle

Volgens mij maak je het probleem alleen te ingewikkeld. Als je 1 werkende oplossing hebt, kun je vervolgens de namen willekeurig bepalen?

In mijn ogen kan je verschillende scenario's uitwerken:
1) Je bouwt een macro dat gebruik maakt van de voorwaarden die je schetst.
2) Je gebruikt de solver van Excel
3) Je maakt 1 werkend model en plaatst daar random namen in.

Overigens denk ik niet dat je alle voorwaarden hebt benoemd, en dat dit een onderdeel van het probleem is. Zoals ik je vraag interpreteer:
8 mensen, 8 taken, 5 weken:
1) ieder mens moet 1 taak uitvoeren in een week (dus niet wat je zegt niet meer dan, want niemand die 1 taak uitvoert is ook niet meer dan).
2) ieder mens mag de taak maar 1 keer uitvoeren
of mis ik hier iets?
pi_122859838
Ik zit met een excel probleem waar ik maar niet uit kom.
Ik heb het grotendeels al voorelkaar maar een aantal zaken niet:
Het zou als volgt moeten gaan: Als ik bij uitgifte een getal invoer en ik klik op de button "verwerken" dan zou hij dat getal moeten aftrekken van de huidige voorraad en het kolom van "uitgifte" moet dan weer leeg zijn.
Kom je onder de minimum voorraad dan zou er in kolom K en L "bestellen" moeten komen te staan.
Ik hoop dat iemand mij hier mee kan helpen.
Ander probleem is dat ik op mijn werk zit en alles is nogal redelijk afgeschermd dus ik kan deze file niet zomaar even ergens sharen.
Ik kan het wel via email doen.
Iemand die mij wil helpen?

THANX!!
Als we niet bereid zijn een tolerante samenleving te verdedigen tegen de aanvallen van de intolerante medemens, dan zal de tolerante mens te gronde gaan, en met hem de tolerantie
pi_122860368
quote:
0s.gif Op donderdag 14 februari 2013 08:19 schreef sloopkogel het volgende:
Ik zit met een excel probleem waar ik maar niet uit kom.
Ik heb het grotendeels al voorelkaar maar een aantal zaken niet:
Het zou als volgt moeten gaan: Als ik bij uitgifte een getal invoer en ik klik op de button "verwerken" dan zou hij dat getal moeten aftrekken van de huidige voorraad en het kolom van "uitgifte" moet dan weer leeg zijn.
Kom je onder de minimum voorraad dan zou er in kolom K en L "bestellen" moeten komen te staan.
Ik hoop dat iemand mij hier mee kan helpen.
Ander probleem is dat ik op mijn werk zit en alles is nogal redelijk afgeschermd dus ik kan deze file niet zomaar even ergens sharen.
Ik kan het wel via email doen.
Iemand die mij wil helpen?

THANX!!
Stel in kolom A (vanaf A2) staat je artikelomschrijving, in kolom B (vanaf B2) je actuele voorraad en in kolom C je minimale voorraad. In kolom D typ je de uitgiftewaarde in en doet op de knop drukken.
Die knop moet je aan de volgende code koppelen:

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
Sub uitgeven()

Dim iUit As Integer
Dim iVoor As Integer
Dim iMin As Integer
Dim iRest As Integer

If ActiveCell.Column <> 4 Then
    MsgBox "Selecteer cel in kolom D met uitgifte waarde"
    Exit Sub
End If

iUit = ActiveCell.Value
iMin = ActiveCell.Offset(0, -1).Value
iVoor = ActiveCell.Offset(0, -2).Value
omschrijving = ActiveCell.Offset(0, -3).Value
iRest = iVoor - iUit

Select Case iRest
Case Is < 0
    MsgBox "Je hebt te weinig voorraad voor deze uitlevering (" & iUit & " stuks)"
    Exit Sub
Case 0
    MsgBox "Je nieuwe voorraad is 0, direct nieuwe bestellen"
Case Is <= iMin
    MsgBox "Je komt na uitleveren onder je minimale voorraad, direct bestellen"
End Select

'bevestigen
btnCheck = MsgBox("Wil je " & iUit & " stuks van materiaal " & omschrijving & " uitgeven?", vbYesNo)
If btnCheck = vbNo Then Exit Sub

'voorraad aanpassen
ActiveCell.Offset(0, -2).Value = iRest
ActiveCell.Select
Selection.ClearContents
MsgBox ("Uitgifte is verwerkt")

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
pi_122860404
En in kolom K en L zet je de functie: =if(b2<=C2, "BESTELLEN")
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
pi_122861188
quote:
3s.gif Op donderdag 14 februari 2013 08:59 schreef Deetch het volgende:
En in kolom K en L zet je de functie: =if(b2<=C2, "BESTELLEN")
Ik heb je een prive-bericht geschreven
Als we niet bereid zijn een tolerante samenleving te verdedigen tegen de aanvallen van de intolerante medemens, dan zal de tolerante mens te gronde gaan, en met hem de tolerantie
pi_122866934
quote:
0s.gif Op donderdag 14 februari 2013 09:38 schreef sloopkogel het volgende:

[..]

Ik heb je een prive-bericht geschreven
en beantwoord
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
pi_122876315
quote:
0s.gif Op woensdag 13 februari 2013 21:27 schreef snabbi het volgende:
Dit klinkt een beetje als het klassieke 8-koninginnen probleem. Dat is de casus, zet 8 koninginnen op een schaakbord zonder dat ze elkaar kunnen slaan. http://en.wikipedia.org/wiki/Eight_queens_puzzle

Volgens mij maak je het probleem alleen te ingewikkeld. Als je 1 werkende oplossing hebt, kun je vervolgens de namen willekeurig bepalen?

In mijn ogen kan je verschillende scenario's uitwerken:
1) Je bouwt een macro dat gebruik maakt van de voorwaarden die je schetst.
2) Je gebruikt de solver van Excel
3) Je maakt 1 werkend model en plaatst daar random namen in.

Overigens denk ik niet dat je alle voorwaarden hebt benoemd, en dat dit een onderdeel van het probleem is. Zoals ik je vraag interpreteer:
8 mensen, 8 taken, 5 weken:
1) ieder mens moet 1 taak uitvoeren in een week (dus niet wat je zegt niet meer dan, want niemand die 1 taak uitvoert is ook niet meer dan).
2) ieder mens mag de taak maar 1 keer uitvoeren
of mis ik hier iets?
Even een simpelere uitleg.
Iedereen moet per week 1 taak uitvoeren
Niemand mag 2 x dezelfde taak uitvoeren in de gehele periode van (hier) 5 weken
Om iedereen tevreden te houden worden de taken willekeurig verdeelt.

Het liefst alles in een macro/vb script, zodat ik die aan een knop kan koppellen.
Hiermee kan ik eenvoudig de taken en namen veranderen, zonder in de code/formules te moeten 'kloten'.
pi_122877301
Deze macro zet de getallen 1 t/m 5 in een random volgorde:

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
Sub Shuffle()
     
Dim intNumbers(5) As Integer
Dim rngNumbers As Range
Dim rngRandom As Range
Dim rngSort As Range
Dim rngTemp As Range

    Set rngNumbers = ActiveSheet.Range("A1:A5")
    Set rngRandom = ActiveSheet.Range("B1:B5")
    Set rngSort = ActiveSheet.Range("A1:B5")
     
    Randomize
     ' store number and random sequence
    For Each rngTemp In rngRandom
        rngTemp = Rnd()
        rngTemp.Offset(0, -1) = rngTemp.Row
    Next
     
    rngSort.Sort key1:=rngSort.Columns(2)
    For Each rngTemp In rngNumbers
        intNumbers(rngTemp.Row) = rngTemp
        Debug.Print "Order "; rngTemp.Row, "number "; intNumbers(rngTemp.Row)
    Next
     
Range("A1").Select
ActiveCell.Offset(0, 1).EntireColumn.Delete

End Sub

En plaatst de waarden in A1 t/m A5. Dat is eigenlijk alles wat je nodig hebt toch?
Aldus.
pi_122893400
quote:
12s.gif Op donderdag 14 februari 2013 16:43 schreef mien-moeke het volgende:
Om iedereen tevreden te houden worden de taken willekeurig verdeelt.
Zoek een oplossing in de trant van:
Mens 1, taak 1, week 1
mens 2, taak 2, week 1 etc

Wanneer je een werkende combinatie hebt gevonden over de weken heen, dan kan je daarna random toewijzen dat mens 1 = Piet.

Voor Piet is de taak die hij moet uitvoeren nog steeds random, omdat Piet vooraf niet weet of hij het schema van mens 1, 2 of 3 gaat volgen. Het schema van mens 1, 2 en 3 ligt wel vast.
pi_122904345
quote:
2s.gif Op donderdag 14 februari 2013 17:04 schreef Z het volgende:
Deze macro zet de getallen 1 t/m 5 in een random volgorde:
[ code verwijderd ]

En plaatst de waarden in A1 t/m A5. Dat is eigenlijk alles wat je nodig hebt toch?
Dit lijkt er heel erg op. Alleen kreeg ik een foutmelding bij het moment waarop t script wil gaan sorteren.
Op één of andere manier kan ik geen cellen/bereiken selecteren om opdrachten op uit te voeren, die in een vooraf gedefinieerde range staan.

Heb t op de volgende manier opgelost:
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
Sub Shuffle()
     
Dim intNumbers(9) As Integer
Dim RngOne As Range
Dim rngAll As Range
Dim rngNumbers As Range
Dim rngRandom As Range
Dim rngSort As Range
Dim rngTemp As Range

    Set rngNumbers = ActiveSheet.Range("A1:A9")
    Set rngRandom = ActiveSheet.Range("B1:B9")
    Set rngSort = ActiveSheet.Range("A1:A9")
    Set rngAll = ActiveSheet.Range("B9:A1")
    Set RngOne = ActiveSheet.Range("B1")
     
    Randomize
     ' store number and random sequence
    For Each rngTemp In rngRandom
        rngTemp = Rnd()
        rngTemp.Offset(0, -1) = rngTemp.Row
    Next
     
    rngAll.Select
    RngOne.Activate
    Selection.sort Key1:=RngOne, Order1:=xlAscending
    
End Sub

Snap ook niet helemaal wat dit:
1
2
3
4
5
rngSort.Sort key1:=rngSort.Columns(2)
    For Each rngTemp In rngNumbers
        intNumbers(rngTemp.Row) = rngTemp
        Debug.Print "Order "; rngTemp.Row, "number "; intNumbers(rngTemp.Row)
    Next
stukje code precies doet. (Uiteraard ligt dit aan mijn VB kennis. -O- )

Nog 1 vraag:
Hoe ga ik dit bv 5x herhalen, zodat ik, als t script afgelopen is, in de kolommen A,B,C,D en E een rij met 5 willekeurige cijfers (van 1 t/m 5) heb? En t liefst ook dat elk cijfer maar 1x per rij voorkomt?
Thnx

[ Bericht 7% gewijzigd door mien-moeke op 15-02-2013 09:34:55 ]
pi_122945548
Een korte vraag als deze nog niet is gesteld.

Ik merk plotseling dat ik bij Excel niet meer e.a. kan saven maar gelijk moet uitprinten wil ik het niet verloren laten gaan. Iemand een oplossing?
  zondag 17 februari 2013 @ 06:21:51 #181
62215 qu63
..de tijd drinkt..
pi_122977769
quote:
6s.gif Op zaterdag 16 februari 2013 12:15 schreef Iwanius het volgende:
Een korte vraag als deze nog niet is gesteld.

Ik merk plotseling dat ik bij Excel niet meer e.a. kan saven maar gelijk moet uitprinten wil ik het niet verloren laten gaan. Iemand een oplossing?
Is dat bij 1 werkblad of bij alle?

Check de com-toepassingen, plugins en macro's als t bij alle is..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_123020733
Tabbladen niet zichtbaar.
Hoe kun je de tabbladen weer zichtbaar maken?
Bij een bepaald bestand zie ik ze niet meer. Minimaliseren en Maximaliseren helpt niet.
Het zal wel iets eenvoudigs zijn...
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_123021873
quote:
0s.gif Op maandag 18 februari 2013 08:20 schreef Twentsche_Ros het volgende:
Tabbladen niet zichtbaar.
Hoe kun je de tabbladen weer zichtbaar maken?
Bij een bepaald bestand zie ik ze niet meer. Minimaliseren en Maximaliseren helpt niet.
Het zal wel iets eenvoudigs zijn...
http://office.microsoft.c(...)den-HA010278741.aspx
Hallo Twentsche Ros,

Ik heb het even nagezocht, het ligt aan de horizontale taakbalk. Die heb je waarschijnlijk over de tabbladen heengeschoven naar links. Als je op het streepje links van het driehoekje gaat staan (Echte Jip en Janneke taal) dan kun je het weer naar rechts schuiven.
Probeer maar!
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_123021884
quote:
0s.gif Op maandag 18 februari 2013 09:47 schreef Twentsche_Ros het volgende:

[..]

http://office.microsoft.c(...)den-HA010278741.aspx
Hallo Twentsche Ros,

Ik heb het even nagezocht, het ligt aan de horizontale taakbalk. Die heb je waarschijnlijk over de tabbladen heengeschoven naar links. Als je op het streepje links van het driehoekje gaat staan (Echte Jip en Janneke taal) dan kun je het weer naar rechts schuiven.
Probeer maar!
Inderdaad je hebt gelijk! Bedankt!
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_123022206
quote:
0s.gif Op zondag 17 februari 2013 06:21 schreef qu63 het volgende:

[..]

Is dat bij 1 werkblad of bij alle?

Check de com-toepassingen, plugins en macro's als t bij alle is..
Wij hebben hier op het werk daar last van als de file in de explorerer met een preview ook nog zichtbaar is, als we dan in de explorerer een andere file kiezen kunnen we opeens wel weer saven.
  maandag 18 februari 2013 @ 11:45:47 #186
62215 qu63
..de tijd drinkt..
pi_123024935
quote:
0s.gif Op maandag 18 februari 2013 09:47 schreef Twentsche_Ros het volgende:

[..]

Inderdaad je hebt gelijk! Bedankt!
:D
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_123058300
Klein vraagje:

Ik heb op B1 de formule =COUNT(D2:D10).
En nu wil ik dat hij op C1 de formule =SUM(D2:D10) automatisch invult zo gauw ik het bereik van B1 selecteer(dus niet de uitkomst, maar alleen de formule), wat hier dus D2:D10 is

Ik selecteer op B2 =COUNT(D11:D20) en dat hij dan automatisch op C2 =SUM(D11:D20) zet.
Ik selecteer op B3 =COUNT(D21:D35) en dat hij dan automatisch op C3 =SUM(D21:D35) zet.
etc.

Moet ik een aantal honderd keer achter elkaar doen dus dan is het handig om het automatisch te doen. Iemand suggestie?

[ Bericht 9% gewijzigd door MaxC op 19-02-2013 00:57:42 ]
If I'm sad, I stop being sad and be awesome instead. True story
  dinsdag 19 februari 2013 @ 10:58:12 #188
62215 qu63
..de tijd drinkt..
pi_123064361
quote:
0s.gif Op dinsdag 19 februari 2013 00:44 schreef MaxC het volgende:
Klein vraagje:

Ik heb op B1 de formule =COUNT(D2:D10).
En nu wil ik dat hij op C1 de formule =SUM(D2:D10) automatisch invult zo gauw ik het bereik van B1 selecteer(dus niet de uitkomst, maar alleen de formule), wat hier dus D2:D10 is

Ik selecteer op B2 =COUNT(D11:D20) en dat hij dan automatisch op C2 =SUM(D11:D20) zet.
Ik selecteer op B3 =COUNT(D21:D35) en dat hij dan automatisch op C3 =SUM(D21:D35) zet.
etc.

Moet ik een aantal honderd keer achter elkaar doen dus dan is het handig om het automatisch te doen. Iemand suggestie?
Je zou de count()'s uit kolom B kunnen kopieren naar kolom C en dan met ctrl+h count vervangen door sum :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_123064594
quote:
0s.gif Op dinsdag 19 februari 2013 10:58 schreef qu63 het volgende:

[..]

Je zou de count()'s uit kolom B kunnen kopieren naar kolom C en dan met ctrl+h count vervangen door sum :)
Bedankt! Alleen hoe voorkom ik dat de formule in kolom C als het ware opschuift? Als ik B naar C kopieer dan vervangt hij bv D2:D10 door E2:E10
If I'm sad, I stop being sad and be awesome instead. True story
  dinsdag 19 februari 2013 @ 11:13:38 #190
62215 qu63
..de tijd drinkt..
pi_123064938
quote:
0s.gif Op dinsdag 19 februari 2013 11:04 schreef MaxC het volgende:

[..]

Bedankt! Alleen hoe voorkom ik dat de formule in kolom C als het ware opschuift? Als ik B naar C kopieer dan vervangt hij bv D2:D10 door E2:E10
Maak er $D2:$D10 of $D$2:$D$10 van. Aan het gebruik van het dollarteken ($) ziet Excel dat de verwijzing naar D2:D10 "absoluut" is, hetgeen betekent dat wanneer je de formule naar een andere cel kopieert, de verwijzing altijd naar cel D2:D10 blijft.

Dollarteken voor de kolomletter zet dus de kolomletter vast, dollarteken voor het rijnummer zet het rijnummer vast. Dollarteken voor beiden zet beiden vast :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_123066520
Top, enorm bedankt! _O_
If I'm sad, I stop being sad and be awesome instead. True story
pi_123068709
quote:
0s.gif Op dinsdag 19 februari 2013 11:59 schreef MaxC het volgende:
Top, enorm bedankt! _O_
En met F4 kun je deze Dollartjes snel inbrengen en verwisselen, zolang je in de edit-mode (F2) zit bij de betreffende cel.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
  woensdag 20 februari 2013 @ 17:32:14 #193
36971 Invictus_
Religieuze Minderheid
pi_123124852
Is het mogelijk om in een formule de inhoud van een cel te gebruiken als verwijzing naar een werkblad?

En natuurlijk, zo ja, hoe?
Now I'm walking on the sunnyside of the street
pi_123125269
Jep, kijk maar s naar INDIRECT()
  woensdag 20 februari 2013 @ 18:09:57 #195
36971 Invictus_
Religieuze Minderheid
pi_123126153
Lijkt idd een goede mogelijkheid, nu nog op de goede manier in de formule. Ik krijg het niet voor elkaar.

=ALS(ISNB(VERT.ZOEKEN($A7;'NED-3GT'!$J$3:$L$25;2;0));" ";(VERT.ZOEKEN($A7;'NED-3GT'!$J$3:$L$25;2;0)))

Het gaat om het vervangen van de 'NED-3GT' of 'NED-3GT'!$J$3 door de inhoud van B2(oid). Beide delen vervangen door een indirect() geven foutmeldingen.
Now I'm walking on the sunnyside of the street
  woensdag 20 februari 2013 @ 19:30:39 #196
346939 Janneke141
Green, green grass of home
pi_123129525
quote:
0s.gif Op woensdag 20 februari 2013 18:09 schreef Invictus_ het volgende:
Lijkt idd een goede mogelijkheid, nu nog op de goede manier in de formule. Ik krijg het niet voor elkaar.

=ALS(ISNB(VERT.ZOEKEN($A7;'NED-3GT'!$J$3:$L$25;2;0));" ";(VERT.ZOEKEN($A7;'NED-3GT'!$J$3:$L$25;2;0)))

Het gaat om het vervangen van de 'NED-3GT' of 'NED-3GT'!$J$3 door de inhoud van B2(oid). Beide delen vervangen door een indirect() geven foutmeldingen.
Het zou moeten werken. In dit geval zou er in je indirect-verwijzing zoiets als het volgende moeten staan: (Dat is, als de cellenreeks identiek blijft, en de naam van het werkblad is gegeven in B2)

=INDIRECT(B2&"!$J$3:$L$25")
Opinion is the medium between knowledge and ignorance (Plato)
  donderdag 21 februari 2013 @ 09:36:55 #197
170545 DaviniaHR
Mrs. PhysicsRules
pi_123151037
Ik heb een vraag: Ik gebruik Excel 2010, de taal staat ingesteld op Nederlands, maar toch krijg ik een punt als scheidingsteken ipv een komma. Hoe kan ik dit aanpassen?

Never mind. Al gevonden. :)

[ Bericht 28% gewijzigd door DaviniaHR op 21-02-2013 13:50:25 ]
*O* Trotse mama van E l i en A v i v a *O*
Insanity is heritable. You get it from your children.
Ik ben wel gek, maar niet achterlijk.
If you can't beat them, confuse them.
  donderdag 21 februari 2013 @ 13:42:40 #198
195027 D.Licious
Ik heb geen ondertitel
pi_123158981
Ik heb een Excel file toegestuurd gekregen, en de prijzen daarin wil ik dmv een formule aanpassen. Nu is het zo dat elke cel uit 2 regels bestaat, waardoor de formule dus niet kan worden uitgevoerd. Hoe kan ik deze ongewenste 2e regels verwijderen? Met de hand duurt te lang, 6 kolommen van 1000+ rijen... Kan dat met een macro oid?

Excel 2010
extensie is .xlsb

Help aub!

[ Bericht 0% gewijzigd door D.Licious op 21-02-2013 13:50:13 ]
Wie altijd achter de kudde aanloopt, staat altijd in de stront.
Iedereen heeft recht op mijn mening.
  donderdag 21 februari 2013 @ 13:53:49 #199
346939 Janneke141
Green, green grass of home
pi_123159384
quote:
0s.gif Op donderdag 21 februari 2013 13:42 schreef D.Licious het volgende:
Ik heb een Excel file toegestuurd gekregen, en de prijzen daarin wil ik dmv een formule aanpassen. Nu is het zo dat elke cel uit 2 regels bestaat, waardoor de formule dus niet kan worden uitgevoerd. Hoe kan ik deze ongewenste 2e regels verwijderen? Met de hand duurt te lang, 6 kolommen van 1000+ rijen... Kan dat met een macro oid?

Excel 2010
extensie is .xlsb

Help aub!
Je zou een nieuw werkblad kunnen invoegen, waar je in kolom A de getallen 1, 3, 5, 7 etc. zet en dan vervolgens met een INDIRECT-verwijzing de data uit je oorspronkelijke werkblad ophaalt. Daarna kun je ermee rekenen zoveel je wil.
Opinion is the medium between knowledge and ignorance (Plato)
  donderdag 21 februari 2013 @ 13:57:54 #200
195027 D.Licious
Ik heb geen ondertitel
pi_123159544
quote:
0s.gif Op donderdag 21 februari 2013 13:53 schreef Janneke141 het volgende:

[..]

Je zou een nieuw werkblad kunnen invoegen, waar je in kolom A de getallen 1, 3, 5, 7 etc. zet en dan vervolgens met een INDIRECT-verwijzing de data uit je oorspronkelijke werkblad ophaalt. Daarna kun je ermee rekenen zoveel je wil.
Ok, bedankt. Ik probeer het even en je hoort er zo weer van. :)
Wie altijd achter de kudde aanloopt, staat altijd in de stront.
Iedereen heeft recht op mijn mening.
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')