abonnement Unibet Coolblue
  donderdag 2 juni 2011 @ 11:30:45 #176
62215 qu63
..de tijd drinkt..
pi_97615253
quote:
0s.gif Op donderdag 2 juni 2011 11:29 schreef Misan het volgende:
http://uploadpic.org/v.php?img=EQ2PF9reXq

Ik wil een derde tabel maken waarin per cel uit kolom A gekeken wordt of deze in kolom F voorkomt en indien dit het geval is dan moet deze weergegeven worden. Als dat gelukt is dan kan ik met de uitkomst en een VLOOKUP de rest vullen.
Kan het zo zijn dat in kolom F iets staat wat in A niet staat?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97615299
quote:
0s.gif Op donderdag 2 juni 2011 11:30 schreef qu63 het volgende:

[..]

Kan het zo zijn dat in kolom F iets staat wat in A niet staat?
jep :) en andersom ook dus ik maak een dergelijke vergelijking twee keer. Basiscel staat in elk geval in A.
pi_97619705
Gewoon met VBA oplossen :)

Ik ben ervan uit gegaan dat kolom A en kolom D (lijst 1 en 2) gesorteerd zijn.
Verder ben ik ervan uitgegaan dat in kolom D een bepaalde letter meerdere malen kan voorkomen, bijvoorbeeld 4x a.

Hier is de uitwerking. Je hoeft alleen op de knop te klikken. Code kun je bekijken door Alt+F11 te drukken.

quote:
Sub BepaalDoorsnede()
Dim n1 As Integer, n2 As Integer
n1 = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'Aantal rijen in lijst 1
n2 = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row 'Aantal rijen in lijst 2
teller = 1
vorigeLetter = ""

For i = 1 To n2
On Error Resume Next

letter = Range("D" & i)
If letter <> vorigeLetter Then
getal = WorksheetFunction.VLookup(letter, Range("A1:B" & n1), 2, 0)
If Err.Number = 0 Then
Range("F" & teller) = letter
Range("G" & teller) = getal
teller = teller + 1
End If
vorigeLetter = letter
End If
Next i
End Sub
  vrijdag 3 juni 2011 @ 13:04:47 #179
332366 San_Andreas
Begin your tour here!
pi_97654425
ik heb een uitgebreide tabel met kolommen en vooral heel veel rijen. Nu wil ik elke kolom een naam geven (bv datum, naam, bedrag). Dat is geen probleem maar er moet een manier zijn om dat handig te managen. Ik weet alleen niet hoe die functie/techniek in Excel heet.
"Ik quote graag mezelf."
  vrijdag 3 juni 2011 @ 13:16:37 #180
62215 qu63
..de tijd drinkt..
pi_97654791
quote:
5s.gif Op vrijdag 3 juni 2011 13:04 schreef San_Andreas het volgende:
ik heb een uitgebreide tabel met kolommen en vooral heel veel rijen. Nu wil ik elke kolom een naam geven (bv datum, naam, bedrag). Dat is geen probleem maar er moet een manier zijn om dat handig te managen. Ik weet alleen niet hoe die functie/techniek in Excel heet.
Kolom selecteren en dan het vak linksbovenin waar dan 8Rx1K oid staat vervangen door Datum/Naam/Bedrag/Whatever
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 6 juni 2011 @ 09:25:52 #181
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_97775982
Ik heb weer eens een vraag :P

Ik heb een tabel met 18 rijen. Deze rijen hebben een bepaalde index (getal van 1 - 18). Nu is een bepaald getal welke ik over die 18 rijen mag verdelen. Dit getal voer ik in in een invulveld.

Ik ben nu op zoek naar een formule die het te verdelen getal op de juiste manier verdeeld over de 18 rijen. Mocht dit getal hoger zijn dan 18, moet er eerst over iedere rij 1 bij geteld worden en vervolgens het restant verdeeld worden over de resterende rijen op basis van de index (waarbij de kleinste indexwaarde als eerst komt).

Dus bv. ik heb 22 te verdelen over de 18 rijen. Dan is dus op iedere rij 1, en op de 4 rijen met de laagste index dus een extra (dus eigenlijk 2).

Ik kan hier op me werk niet op uploadsites komen, maar ik heb een Excel uitgewerkt waar precies instaat wat ik wil. Die kan ik desgewenst wel mailen :)

Iemand een idee hoe dit te doen?
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
  maandag 6 juni 2011 @ 10:07:08 #182
332366 San_Andreas
Begin your tour here!
pi_97776759
quote:
14s.gif Op maandag 6 juni 2011 09:25 schreef sanger het volgende:
Ik heb weer eens een vraag :P

Ik heb een tabel met 18 rijen. Deze rijen hebben een bepaalde index (getal van 1 - 18). Nu is een bepaald getal welke ik over die 18 rijen mag verdelen. Dit getal voer ik in in een invulveld.

Ik ben nu op zoek naar een formule die het te verdelen getal op de juiste manier verdeeld over de 18 rijen. Mocht dit getal hoger zijn dan 18, moet er eerst over iedere rij 1 bij geteld worden en vervolgens het restant verdeeld worden over de resterende rijen op basis van de index (waarbij de kleinste indexwaarde als eerst komt).

Dus bv. ik heb 22 te verdelen over de 18 rijen. Dan is dus op iedere rij 1, en op de 4 rijen met de laagste index dus een extra (dus eigenlijk 2).

Ik kan hier op me werk niet op uploadsites komen, maar ik heb een Excel uitgewerkt waar precies instaat wat ik wil. Die kan ik desgewenst wel mailen :)

Iemand een idee hoe dit te doen?
volgens mij is dit hem (in OpenOffice geef ik toe):

A1 = 22
A2 = QUOTIENT( $A$1; 18)
A3 = REST( $A$1;18)

vervolgens stop je deze formule in je kolommen:

= $A$2+ ALS( EN($A$3 > 0 ; KOLOM(A14) <= $A$3); 1; 0)

gebruik RIJ ipv KOLOM als je met rijen wil werken

[ Bericht 0% gewijzigd door San_Andreas op 06-06-2011 10:12:19 ]
"Ik quote graag mezelf."
pi_97776811
quote:
14s.gif Op maandag 6 juni 2011 09:25 schreef sanger het volgende:
Ik heb weer eens een vraag :P

Ik heb een tabel met 18 rijen. Deze rijen hebben een bepaalde index (getal van 1 - 18). Nu is een bepaald getal welke ik over die 18 rijen mag verdelen. Dit getal voer ik in in een invulveld.

Ik ben nu op zoek naar een formule die het te verdelen getal op de juiste manier verdeeld over de 18 rijen. Mocht dit getal hoger zijn dan 18, moet er eerst over iedere rij 1 bij geteld worden en vervolgens het restant verdeeld worden over de resterende rijen op basis van de index (waarbij de kleinste indexwaarde als eerst komt).

Dus bv. ik heb 22 te verdelen over de 18 rijen. Dan is dus op iedere rij 1, en op de 4 rijen met de laagste index dus een extra (dus eigenlijk 2).

Ik kan hier op me werk niet op uploadsites komen, maar ik heb een Excel uitgewerkt waar precies instaat wat ik wil. Die kan ik desgewenst wel mailen :)

Iemand een idee hoe dit te doen?
Een simpele manier om het op te lossen:
- Stel D1 is je invulveld (22).
- Stel kolom A is je kolom met indices (1-18).
Zet in D2: max(A:A)
- Zet in D3: =AFRONDEN.NAAR.BENEDEN(D1/D2;0)
- Zet in D4: =REST(E1;E2)
- Zet in B1: =E$3+ALS(A1<=E$4;1;0) en trek dit door naar beneden.
  maandag 6 juni 2011 @ 10:50:12 #184
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_97777784
quote:
0s.gif Op maandag 6 juni 2011 10:07 schreef San_Andreas het volgende:

[..]

volgens mij is dit hem (in OpenOffice geef ik toe):

A1 = 22
A2 = QUOTIENT( $A$1; 18)
A3 = REST( $A$1;18)

vervolgens stop je deze formule in je kolommen:

= $A$2+ ALS( EN($A$3 > 0 ; KOLOM(A14) <= $A$3); 1; 0)

gebruik RIJ ipv KOLOM als je met rijen wil werken
quote:
0s.gif Op maandag 6 juni 2011 10:09 schreef mrbombastic het volgende:

[..]

Een simpele manier om het op te lossen:
- Stel D1 is je invulveld (22).
- Stel kolom A is je kolom met indices (1-18).
Zet in D2: max(A:A)
- Zet in D3: =AFRONDEN.NAAR.BENEDEN(D1/D2;0)
- Zet in D4: =REST(E1;E2)
- Zet in B1: =E$3+ALS(A1<=E$4;1;0) en trek dit door naar beneden.
Ik krijg ze eigenlijk allebei niet goed.

Misschien is het makkelijker als ik iets meer info geef over de sheet zelf :P

• Het te verdelen getal staat in D3
• De indices staan in C6 tm C23
• Het resultaat van de formule moet in E6 tm E23 terechtkomen
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_97778017
quote:
0s.gif Op maandag 6 juni 2011 10:50 schreef sanger het volgende:

[..]

[..]

Ik krijg ze eigenlijk allebei niet goed.

Misschien is het makkelijker als ik iets meer info geef over de sheet zelf :P

• Het te verdelen getal staat in D3
• De indices staan in C6 tm C23
• Het resultaat van de formule moet in E6 tm E23 terechtkomen
My bad, ik ben van kolom E naar kolom D verwisseld, alleen ben ik dit in de laatste 2 stappen vergeten.

- Zet in D4 (of ergens anders): =AANTAL(C6:C23)
- Zet in D5 (of ergens anders): =AFRONDEN.NAAR.BENEDEN(D3/D4;0)
- Zet in D6 (of ergens anders): =REST(D3;D4)
- Zet in E6: =D$5+ALS(C6<=D$6;1;0) en trek dit door naar beneden.
  maandag 6 juni 2011 @ 11:34:18 #186
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_97779215
quote:
0s.gif Op maandag 6 juni 2011 10:57 schreef mrbombastic het volgende:

[..]

My bad, ik ben van kolom E naar kolom D verwisseld, alleen ben ik dit in de laatste 2 stappen vergeten.

- Zet in D4 (of ergens anders): =AANTAL(C6:C23)
- Zet in D5 (of ergens anders): =AFRONDEN.NAAR.BENEDEN(D3/D4;0)
- Zet in D6 (of ergens anders): =REST(D3;D4)
- Zet in E6: =D$5+ALS(C6<=D$6;1;0) en trek dit door naar beneden.
Nu werkt het inderdaad :) Top, dank je wel :)

[ Bericht 0% gewijzigd door sanger op 06-06-2011 12:18:26 ]
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_97780323
Of gewoon in E6

Afronden.naar.beneden($D$3/Rijen($C$6:$C$23);0)+Als(C6<=Rest($D$3;Rijen($C$6:$C$23));1;0)
en slepen.
  maandag 6 juni 2011 @ 12:32:25 #188
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_97781124
Nog kleine aanvullende vraag. Ik wil dat een simpele G12-F12 alleen wordt uitgevoerd als er een waarde is ingegeven in G12. Maar kom er even niet uit en kan het met Google ook niet vinden. Iemand?
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_97804922
=ALS(G12<>"";G12-F12;"")
pi_97832958
Ik heb in excel een hele waslijst aan grootboekrekeningen die steeds verder gespecificeerd worden. Het hoogste (minst gespecificeerde) niveau is 2 cijfers (10, 11, 20, 30 etc. etc.) en het diepste (meest gespecificeerde) niveau bestaat uit 8 cijfers.

Nu wil ik graag in excel vanaf het hoogste niveau (2 cijfers) steeds verder kunnen specificeren naar het niveau met 8 cijfers. Weet iemand of dit mogelijk is in excel? Ik heb hier niet de beschikking over andere softwarepakketten.

Een beetje dit idee:

  dinsdag 7 juni 2011 @ 12:06:53 #191
62215 qu63
..de tijd drinkt..
pi_97833583
quote:
0s.gif Op dinsdag 7 juni 2011 11:45 schreef DoorgestokenKaart het volgende:
Ik heb in excel een hele waslijst aan grootboekrekeningen die steeds verder gespecificeerd worden. Het hoogste (minst gespecificeerde) niveau is 2 cijfers (10, 11, 20, 30 etc. etc.) en het diepste (meest gespecificeerde) niveau bestaat uit 8 cijfers.

Nu wil ik graag in excel vanaf het hoogste niveau (2 cijfers) steeds verder kunnen specificeren naar het niveau met 8 cijfers. Weet iemand of dit mogelijk is in excel? Ik heb hier niet de beschikking over andere softwarepakketten.

Een beetje dit idee:

[ afbeelding ]
Wat wil je precies dat Excel voor je doet?

Je kan gewoon in kolom A de grootboekrekening invullen (van 2 tot 8 cijfers dus) en dan in B de naam, in C en D debet en credit, etc.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_97833701
Gegevens - Groeperen

Maar wordt niet zo mooi als hierboven ;)
  dinsdag 7 juni 2011 @ 12:23:31 #193
62215 qu63
..de tijd drinkt..
pi_97834024
quote:
0s.gif Op dinsdag 7 juni 2011 12:11 schreef DaFan het volgende:
Gegevens - Groeperen

Maar wordt niet zo mooi als hierboven ;)
Met automatische opmaak en wat als()-formules moet je toch ver kunnen komen ;-)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 7 juni 2011 @ 12:24:41 #194
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_97834053
quote:
0s.gif Op maandag 6 juni 2011 20:36 schreef hendrik2009 het volgende:
=ALS(G12<>"";G12-F12;"")
Tnx :)
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_97834937
quote:
0s.gif Op dinsdag 7 juni 2011 12:06 schreef qu63 het volgende:

[..]

Wat wil je precies dat Excel voor je doet?

Je kan gewoon in kolom A de grootboekrekening invullen (van 2 tot 8 cijfers dus) en dan in B de naam, in C en D debet en credit, etc.
Ik wil het overzichtelijker hebben. Het is een lijst van ruim 20.000 grootboekrekeningen. Ik wil graag als eerste overzicht alle groepboekrekeningen met 2 cijfers zichtbaar hebben, en van daaruit verder specificeren.
pi_97883798
kun je het niet in SAP 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
pi_97884176
quote:
3s.gif Op woensdag 8 juni 2011 13:15 schreef Deetch het volgende:
kun je het niet in SAP doen?
Waar in SAP? Zo goed ben ik niet met SAP.
pi_97889163
Of in SQL, of Exact of in Access of in Paint.

Sap is ERP Deetch...
  woensdag 8 juni 2011 @ 17:50:44 #199
62215 qu63
..de tijd drinkt..
pi_97895388
quote:
0s.gif Op woensdag 8 juni 2011 15:28 schreef DaFan het volgende:
Of in SQL, of Exact of in Access of in Paint.

Sap is ERP Deetch...
Met MySAP ERP Financials kan je het wel voor elkaar krijgen hoor ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 9 juni 2011 @ 10:36:33 #200
62215 qu63
..de tijd drinkt..
pi_97928409
Kunnen deze macro's korter/sneller?
1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C23")) Is Nothing Then
        Call Vernieuwen
    End If
End Sub
Cel C23 is een samengestelde cel die van C23 tot en met J23 loopt.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub Vernieuwen()
'
' Vernieuwen Macro
'
' Sneltoets: Ctrl+Shift+V
'
    Application.ScreenUpdating = False
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel9").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel9").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel10").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel10").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel11").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel11").PivotFields("Adviseur STEW").AutoSort _
        xlAscending, "Adviseur STEW"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel12").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel12").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel13").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel13").PivotFields("Adviseur FCBV mbt MB!"). _
        AutoSort xlAscending, "Adviseur FCBV mbt MB!"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel14").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel14").PivotFields( _
        "Adviseur FCBV voor MB opdracht").AutoSort xlAscending, _
        "Adviseur FCBV voor MB opdracht"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel15").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel15").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel16").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel16").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel17").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel17").PivotFields("Adviseur FCBV mbt IFB"). _
        AutoSort xlAscending, "Adviseur FCBV mbt IFB"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel18").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel18").PivotFields("Adviseur STEW").AutoSort _
        xlAscending, "Adviseur STEW"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel19").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel19").PivotFields("Adviseur STEW").AutoSort _
        xlAscending, "Adviseur STEW"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel20").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel20").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel21").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel21").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel22").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel22").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel23").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel23").PivotFields("Adviseur FCBV").AutoSort _
        xlAscending, "Adviseur FCBV"
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel27").PivotCache.Refresh
    Sheets("Hulpsheet Sven").PivotTables("Draaitabel27").PivotFields("Totaal").AutoSort _
        xlAscending, "Totaal"
    Application.ScreenUpdating = True
End Sub
De bedoeling is dat alle draaitabellen op die sheet geupdate worden en op alfabetische volgorde gesorteerd worden. Draaitabel27 moet als laatste gedaan worden, deze wordt namelijk gebaseerd op data uit de andere draaitabellen..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')