Kan het zo zijn dat in kolom F iets staat wat in A niet staat?quote: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.
jep en andersom ook dus ik maak een dergelijke vergelijking twee keer. Basiscel staat in elk geval in A.quote: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?
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
Kolom selecteren en dan het vak linksbovenin waar dan 8Rx1K oid staat vervangen door Datum/Naam/Bedrag/Whateverquote: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.
volgens mij is dit hem (in OpenOffice geef ik toe):quote:Op maandag 6 juni 2011 09:25 schreef sanger het volgende:
Ik heb weer eens een vraag
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:quote:Op maandag 6 juni 2011 09:25 schreef sanger het volgende:
Ik heb weer eens een vraag
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?
quote: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
Ik krijg ze eigenlijk allebei niet goed.quote: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.
My bad, ik ben van kolom E naar kolom D verwisseld, alleen ben ik dit in de laatste 2 stappen vergeten.quote: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
• 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
Nu werkt het inderdaad Top, dank je welquote: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.
Wat wil je precies dat Excel voor je doet?quote: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 ]
Met automatische opmaak en wat als()-formules moet je toch ver kunnen komen ;-)quote:Op dinsdag 7 juni 2011 12:11 schreef DaFan het volgende:
Gegevens - Groeperen
Maar wordt niet zo mooi als hierboven
Tnxquote:
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.quote: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.
Waar in SAP? Zo goed ben ik niet met SAP.quote:
Met MySAP ERP Financials kan je het wel voor elkaar krijgen hoorquote: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...
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 |
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 |
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |