abonnement Unibet Coolblue Bitvavo
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.
  donderdag 21 februari 2013 @ 14:00:39 #201
195027 D.Licious
Ik heb geen ondertitel
pi_123159633
Die INDIRECT functie snap ik niet helemaal...
Wie altijd achter de kudde aanloopt, staat altijd in de stront.
Iedereen heeft recht op mijn mening.
  donderdag 21 februari 2013 @ 14:27:37 #202
62215 qu63
..de tijd drinkt..
pi_123160647
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 21 februari 2013 @ 14:34:20 #203
195027 D.Licious
Ik heb geen ondertitel
pi_123160869
quote:
Naar gezocht maar die functie biedt geen oplossing.
Inmiddels heb ik iets anders gevonden en dat werkt wel *O*

Je selecteert de bewuste cellen
Control + H
Bij 'zoeken naar' voer je in Alt + 010
'vervangen door' laat je leeg
En voila *O*

Waarom kwam ik daar nou niet zelf op :')
Wie altijd achter de kudde aanloopt, staat altijd in de stront.
Iedereen heeft recht op mijn mening.
  donderdag 21 februari 2013 @ 14:34:43 #204
195027 D.Licious
Ik heb geen ondertitel
pi_123160885
-dubbel-
Wie altijd achter de kudde aanloopt, staat altijd in de stront.
Iedereen heeft recht op mijn mening.
pi_123162031
Hallo,

Ik heb een simpele som;
=SOM(A1)-8
Nu wil ik dat als veld A1 leeg of 0 is dat hij dan niet -8 rekent maar er dan 0 van maakt. Heeft iemand enig idee wat ik voor code hiervoor moet gebruiken?

Alvast bedankt voor de hulp!

ps. Ik werk met Excel 2007 Nederlands
pi_123162142
Indirect was inderdaad niet echt van toepassing daar D.Licious. Mooi dat je er zelf bent uitgekomen.

Ringomanic: met een ALS eromheen. Zit op m'n mobiel dus kan niet echt goed voor je uitwerken. Kijk even of je er zelf uitkomt.
  Redactie Frontpage donderdag 21 februari 2013 @ 15:11:11 #207
21273 JeMoeder
MijnMoeder
pi_123162250
quote:
0s.gif Op donderdag 21 februari 2013 15:06 schreef ringomanic het volgende:
Hallo,

Ik heb een simpele som;
=SOM(A1)-8
Nu wil ik dat als veld A1 leeg of 0 is dat hij dan niet -8 rekent maar er dan 0 van maakt. Heeft iemand enig idee wat ik voor code hiervoor moet gebruiken?

Alvast bedankt voor de hulp!

ps. Ik werk met Excel 2007 Nederlands
=ALS(OF(A1="";A1=0);0;A1-8)
Ta mère
El Coño
ウイスキー
pi_123162334
quote:
0s.gif Op donderdag 21 februari 2013 15:11 schreef JeMoeder het volgende:

[..]

=ALS(OF(A1="";A1=0);0;A1-8)
Kijk dat werkt! Hartstikke bedankt voor de snelle reactie en oplossing!!
  Redactie Frontpage donderdag 21 februari 2013 @ 15:13:55 #209
21273 JeMoeder
MijnMoeder
pi_123162369
quote:
0s.gif Op donderdag 21 februari 2013 15:12 schreef ringomanic het volgende:

[..]

Kijk dat werkt! Hartstikke bedankt voor de snelle reactie en oplossing!!
Geen probleem :)
Ta mère
El Coño
ウイスキー
pi_123162618
Ik heb een lus met berekeningen (150x) voor X
Nou wil ik elke waarde van X in een tabel hebben, zodat ik hiervan een grafiek kan plotten.
Echter: Ik wil maar 50 waardes van X laten zien in die grafiek. Dus een soort van 'schuivende' grafiek.

dus:
1
2
3
4
5
| | A | B |...
|1|3,0|
|2|5,0|
|3|7,0|
... (Tot |150|)

met als grafiek
1
2
3
4
5
6
7
8
9
10
11
12
x |10|
  |09|
  |08|
  |07|      X
  |06|
  |05|    X
  |04|
  |03| X
  |02|
  |01|
  |00|t1|t2|t3|t4|t5|...
Waarbij de rij t verschuift van t1 naar t150, en er steeds 50xt zichtbaar is

Hoe ga ik dit in xl03.NL voor elkaar krijgen?

(Eerst alleen die waardes van X in een tabel is al heel wat :D )
pi_123164421
Ik heb een vraag:

Ik heb een bestand waarmee ik bij hou welke films ik gekeken heb.
Ik hou hierin bij wanneer ik ze keek, welke genre, filmstudio, regisseur, productiejaar, speelduur, enzovoort.
In een ander werkblad kan ik door middel van draaitabellen en dergelijke bepaalde statistieken zien. Zoals van welke filmstudio ik de meeste films zag.
Er moet bij gezegd worden dat van elke films alles op 1 rij in excel staat.

Het probleem wat ik nu tegenkom is wanneer ik bijvoorbeeld drie acteurs/actrices aangeef bij een film, en ik zet die in drie kolommen achter elkaar, dan kan ik daar geen optelling van maken.

Wat ik dus wil is dat ik kan optellen hoevaak bijvoorbeeld de naam 'Jason Statham' voorkomt in een bereik van B2 tot E850. Ik heb het inmiddels geprobeerd met draaitabellen, verticaal zoeken en index-functie maar ik kom er niet uit.
Ik krijg het wel voor elkaar om de naam 'Jason Statham' om te zetten naar een getal zodat hij naar een getal kan zoeken.

Wellicht is er een hele voor de hand liggende oplossing voor maar weet iemand die?

PS: ivm de opmaak kon ik de acteur niet onderelkaar zetten.

Visualisatie:

A-----B------------C------------------D-------------------E-------------------------F-------------------G-------------------------H
1 Film---Datum gezien---filmstudio---acteur/actrice1---acteur/actrice2---acteur/actrice3--speelduur
2 Argo---20-01-2013---blablabla---jason statham---britney spears---theo van gogh--------120
3 Gladiator---24-01-2013---blablabla---britney spears---megan fox---felicitas woll--------130

En hier wil ik zo ongeveer een tabel van creeren:

Jason Statham: 1x
Britney Spears: 2x
Theo van gogh: 1x
Megan Fox: 1x
Felicitas Woll: 1x
  Redactie Frontpage donderdag 21 februari 2013 @ 16:17:17 #212
21273 JeMoeder
MijnMoeder
pi_123164949
quote:
0s.gif Op donderdag 21 februari 2013 16:02 schreef mistermysterion het volgende:
Ik heb een vraag:

Ik heb een bestand waarmee ik bij hou welke films ik gekeken heb.
Ik hou hierin bij wanneer ik ze keek, welke genre, filmstudio, regisseur, productiejaar, speelduur, enzovoort.
In een ander werkblad kan ik door middel van draaitabellen en dergelijke bepaalde statistieken zien. Zoals van welke filmstudio ik de meeste films zag.
Er moet bij gezegd worden dat van elke films alles op 1 rij in excel staat.

Het probleem wat ik nu tegenkom is wanneer ik bijvoorbeeld drie acteurs/actrices aangeef bij een film, en ik zet die in drie kolommen achter elkaar, dan kan ik daar geen optelling van maken.

Wat ik dus wil is dat ik kan optellen hoevaak bijvoorbeeld de naam 'Jason Statham' voorkomt in een bereik van B2 tot E850. Ik heb het inmiddels geprobeerd met draaitabellen, verticaal zoeken en index-functie maar ik kom er niet uit.
Ik krijg het wel voor elkaar om de naam 'Jason Statham' om te zetten naar een getal zodat hij naar een getal kan zoeken.

Wellicht is er een hele voor de hand liggende oplossing voor maar weet iemand die?

PS: ivm de opmaak kon ik de acteur niet onderelkaar zetten.

Visualisatie:

A-----B------------C------------------D-------------------E-------------------------F-------------------G-------------------------H
1 Film---Datum gezien---filmstudio---acteur/actrice1---acteur/actrice2---acteur/actrice3--speelduur
2 Argo---20-01-2013---blablabla---jason statham---britney spears---theo van gogh--------120
3 Gladiator---24-01-2013---blablabla---britney spears---megan fox---felicitas woll--------130

En hier wil ik zo ongeveer een tabel van creeren:

Jason Statham: 1x
Britney Spears: 2x
Theo van gogh: 1x
Megan Fox: 1x
Felicitas Woll: 1x
Kan je een openbaar google doc document maken? Dan kan ik ff knoeien.
Ta mère
El Coño
ウイスキー
pi_123165994
https://docs.google.com/spreadsheet/ccc?key=0Ag66GZ2DHAR2dG5ucnNNWkZSSFoxdDFybnpHRjhwN3c&usp=sharing


Dit bedoel je neem ik aan? Ik heb even snel het belangrijke deel geknipt en geplakt.. Werkbladen met draaitabellen heb ik eronder gezet maar die werken hier niet geloof ik.

[ Bericht 29% gewijzigd door mistermysterion op 21-02-2013 16:41:53 (extra info) ]
pi_123166584
quote:
0s.gif Op donderdag 21 februari 2013 16:17 schreef JeMoeder het volgende:

[..]

Kan je een openbaar google doc document maken? Dan kan ik ff knoeien.
Op P4: =+I4&"/"&J4&"/"&K4
Op Q4 =+P4
Op P5 =+I5&"/"&J5&"/"&K5
Copieren naar P6 en meer naar onder

Op Q5 =+Q4&"/"&P5
Copieren naar Q6 en meer naar beneden

Op A40 t/m A44:
Jason
Britney
Theo
Megan
Felicitas

Op C40: =+Q6
Op C41 =+D40
copieren naar beneden

Op D40: =SUBSTITUEREN(C40;A40;"1")
copieren naar beneden

Op B40: =+(LENGTE(C40)-LENGTE(D40))/(LENGTE(+A40)-1)
Copieren naar beneden

P4 t/m P 6 wordt dan:
Jason/Britney/Theo
Britney/Megan/Felicitas
Britney/Joop/Theo

Q4 t/m Q6 wordt dan:
Jason/Britney/Theo
Jason/Britney/Theo/Britney/Megan/Felicitas
Jason/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo

D40 t/m D44 wordt dan:
1/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo
1/1/Theo/1/Megan/Felicitas/1/Joop/Theo
1/1/1/1/Megan/Felicitas/1/Joop/1
1/1/1/1/1/Felicitas/1/Joop/1
1/1/1/1/1/1/1/Joop/1

C40 t/m C44 wordt dan:
Jason/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo
1/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo
1/1/Theo/1/Megan/Felicitas/1/Joop/Theo
1/1/1/1/Megan/Felicitas/1/Joop/1
1/1/1/1/1/Felicitas/1/Joop/1

B40 t/m B44 wordt dan:
1
3
2
1
1
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
  donderdag 21 februari 2013 @ 17:05:02 #215
62215 qu63
..de tijd drinkt..
pi_123167177
quote:
0s.gif Op donderdag 21 februari 2013 16:52 schreef Twentsche_Ros het volgende:
[knip]
Is 3x een aantal.als() niet makkelijker? Voor kolom E, F en G dus..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_123169346
quote:
0s.gif Op donderdag 21 februari 2013 17:05 schreef qu63 het volgende:

[..]

Is 3x een aantal.als() niet makkelijker? Voor kolom E, F en G dus..
Kan ook natuurlijk, alleen mocht mistermysterion de kolommen willen uitbreiden met nog meer acteurs, is in mijn ontwerp nog steeds 2 extra kolommen voldoende, anders moet je steeds nog weer een kolom toevoegen. Maar 't kan natuurlijk wel. Echter: voor een mooiere database is het wellicht fraaier om de naam van de artiest vast als kolom-hoofd te hebben, waarbij je 0 of 1 neerzet in geval deze dame/heer meespeelt in de film.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_123171187
quote:
0s.gif Op donderdag 21 februari 2013 16:52 schreef Twentsche_Ros het volgende:

[..]

Op P4: =+I4&"/"&J4&"/"&K4
Op Q4 =+P4
Op P5 =+I5&"/"&J5&"/"&K5
Copieren naar P6 en meer naar onder

Op Q5 =+Q4&"/"&P5
Copieren naar Q6 en meer naar beneden

Op A40 t/m A44:
Jason
Britney
Theo
Megan
Felicitas

Op C40: =+Q6
Op C41 =+D40
copieren naar beneden

Op D40: =SUBSTITUEREN(C40;A40;"1")
copieren naar beneden

Op B40: =+(LENGTE(C40)-LENGTE(D40))/(LENGTE(+A40)-1)
Copieren naar beneden

P4 t/m P 6 wordt dan:
Jason/Britney/Theo
Britney/Megan/Felicitas
Britney/Joop/Theo

Q4 t/m Q6 wordt dan:
Jason/Britney/Theo
Jason/Britney/Theo/Britney/Megan/Felicitas
Jason/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo

D40 t/m D44 wordt dan:
1/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo
1/1/Theo/1/Megan/Felicitas/1/Joop/Theo
1/1/1/1/Megan/Felicitas/1/Joop/1
1/1/1/1/1/Felicitas/1/Joop/1
1/1/1/1/1/1/1/Joop/1

C40 t/m C44 wordt dan:
Jason/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo
1/Britney/Theo/Britney/Megan/Felicitas/Britney/Joop/Theo
1/1/Theo/1/Megan/Felicitas/1/Joop/Theo
1/1/1/1/Megan/Felicitas/1/Joop/1
1/1/1/1/1/Felicitas/1/Joop/1

B40 t/m B44 wordt dan:
1
3
2
1
1
thx, na wat gevogel had ik hem er ook in staan. Zal eens kijken of dit handig is. Anders is je latere opmerking ook een idee. Alle acteurs/actrices bovenaan te zetten en dan met 0 en 1's werken.
pi_123172189
quote:
0s.gif Op donderdag 21 februari 2013 18:59 schreef mistermysterion het volgende:

[..]

thx, na wat gevogel had ik hem er ook in staan. Zal eens kijken of dit handig is. Anders is je latere opmerking ook een idee. Alle acteurs/actrices bovenaan te zetten en dan met 0 en 1's werken.
Om niet te veel "brede" kolommen te krijgen kun je er voor kiezen om de celeigenschappen van de namen bovenaan aan te passen, uitlijning naar boven, zodat je niet zulke brede kolommen nodig hebt. Die 0 en die 1 behoeven niet veel breedte.
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_123180048
quote:
12s.gif Op donderdag 21 februari 2013 15:20 schreef mien-moeke het volgende:
Ik heb een lus met berekeningen (150x) voor X
Nou wil ik elke waarde van X in een tabel hebben, zodat ik hiervan een grafiek kan plotten.
Echter: Ik wil maar 50 waardes van X laten zien in die grafiek. Dus een soort van 'schuivende' grafiek.

dus:
[ code verwijderd ]

met als grafiek
[ code verwijderd ]

Hoe ga ik dit in xl03.NL voor elkaar krijgen?

(Eerst alleen die waardes van X in een tabel is al heel wat :D )
Kies voor de grafiekvorm Spreiding.
Onder de Ribbon (tabblad) Indeling heb je de optie Assen zitten. Kies voor de horizontale as en de meer opties variant. Nu kan je zelf instellen dat je bijvoorbeeld je as van minimaal 50 tot 100 laat lopen.
pi_123193773
-knip-

[ Bericht 98% gewijzigd door mien-moeke op 22-02-2013 09:02:04 ]
  vrijdag 22 februari 2013 @ 11:36:31 #221
157428 GoodGawd
This is your captain speaking!
pi_123198969
Ik ben bezig met Excel, wat dingen automatiseren. Nu heb ik in kolom A B en C, respectievelijk datum staan in de vorm: "23-2-2013" "2013-08" "2013-2" (met code maar dat doet er niet toe).

Nu is dit een sheet met veel rijen, ik wil dus elke keer dat ik er nieuwe data indoe dat hij de datum automatisch gaat doortrekken. Dus in woorden:

Selecteer van de laatste rij kolom A, B en C.

Trek die datum door.

Vrij simpel lijkt me. Maar ik kom zover:

Selection.End(xlDown).Select
Range("A710:C710").Select
Selection.AutoFill Destination:=Range("A710:C711"), Type:=xlFillDefault

Je ziet dus dat hij specifiek A710 en A710 selecteert. Maar dat klopt alleen in dit geval, volgende keer dat ik er data in doe is dat weer een andere rij.
Iemand tips?

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.
Blues ain't nothing but a good man feeling bad...
  vrijdag 22 februari 2013 @ 11:41:53 #222
62215 qu63
..de tijd drinkt..
pi_123199175
Wil je t per se als macro?

Je zou ook datum(jaar();maand();dag()) kunnen gebruiken. Dan neem je 1 vaste waarde (1-1-2013) en de anderen worden relatief aan die. Je kan ook dag(a1)+60 gebruiken, dan maakt ie er zelf de juiste maand en dag van.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_123199192
Met Target kan je de huidige cel kiezen waar is toegevoegd, en dan kan je met Offset de cellen ernaast kiezen.
  vrijdag 22 februari 2013 @ 13:58:26 #224
157428 GoodGawd
This is your captain speaking!
pi_123203827
Okay het is gelukt, ik heb het zo gedaan:

ActiveSheet.Paste
ActiveCell.Offset(-1, -3).Columns("A:C").Select
Selection.AutoFill Destination:=Range(Selection, Selection.Offset(1, 0)), Type:=xlFillDefault

Even een kleine sample van wat ik doe :) :

1
2
3
4
5
6
7
8
9
10
11
12
23-2-2013    2013-08    2013-2    2858447    71-00    O    EZC    15004    0    Y    
23-2-2013    2013-08    2013-2    2858457    25-23    O    EZC    15005    0    Y    
23-2-2013    2013-08    2013-2    2860698    52-82    O    EZK    14979    0        L
23-2-2013    2013-08    2013-2    2860738    52-42    O    EZT    15004    0    Y    
23-2-2013    2013-08    2013-2    2860743    25-11    O    EZT    15005    0        C
24-2-2013    2013-08    2013-2    2859376    57-49    O    EZV    15025    0        L
00-0-0000    0000-00    0000-0    6017618    25-42    O    EZK    15016    0    Y    
00-0-0000    0000-00    0000-0    2686325    55-00    O    EZA    14814    0    Y    
00-0-0000    0000-00    0000-0    2725719    33-21    O    EZP    15003    0        C
00-0-0000    0000-00    0000-0    2725735    31-12    O    EZP    15006    0        C
00-0-0000    0000-00    0000-0    2725865    52-51    O    EZE    15005    0        D
00-0-0000    0000-00    0000-0    2725869    25-21    O    EZE    15006    0        D

Vanaf kolom D, dat is de data die ik er dagelijks in stop. Nu moet rij 7 t/m 12 gefilled worden, zelfde datum als rij 6.

Selection.AutoFill Destination:=Range("A6:C12"), Type:=xlFillCopy
Range("A6:C12").Select

Maar ik wil dit in een algemene vorm, dus:

Destination:=Range("kolom A:C vullen t/m laatste rij met ingevulde data")

Wat voor termen kan ik hiervoor gebruiken?

EDIT:
Ben eruit!

[ Bericht 1% gewijzigd door GoodGawd op 22-02-2013 17:24:09 ]
Blues ain't nothing but a good man feeling bad...
pi_123205608
Ik zit met een probleem waar ik maar niet uit kom, en ik hoop dat iemand mij hiermee wil helpen.
Ik heb een excel-file waarin ik keurig kan bijhouden hoeveel voorraad er is, zodra ik onder de min-vorraad komt krijg ik een meldinbg dat er weer besteld moet worden enz.
Maar wat ik niet kan zien is van welk artikel er hoeveel worden uitgegeven in een jaar tijd.

Dat moet toch mogelijk zijn d.m.v. een grafiek o.i.d.?

de file stuur ik je toe als je hem wil zien
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
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')