abonnement Unibet Coolblue Bitvavo
  woensdag 25 november 2009 @ 22:55:43 #1
62215 qu63
..de tijd drinkt..
pi_75005553


Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.

Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?

Stel dan hier je vraag!!!

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen:
http://dolf.trieschnigg.nl/excel/excel.html
http://branders.name/files/Excel-Function-Reference.pdf

Voorgaande deeltjes met veel informatie:

[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
[EXCEL] Het grote Excel vragen topic, #5
[Excel] Het grote Excel-vragentopic #6
[EXCEL] Het grote Excel vragen topic, #7
[EXCEL] Het grote Excel vragen topic, #8
[EXCEL] Het grote Excel vragen topic, #9
[EXCEL] Het grote Excel vragen topic, #10
[EXCEL] Het grote Excel vragen topic, #11
[EXCEL] Het grote Excel vragen topic, #12
[EXCEL] Het grote Excel vragen topic, #13
[EXCEL] Het grote Excel vragen topic, #14
[EXCEL] Het grote Excel vragen topic, #15
[EXCEL] Het grote Excel vragen topic, #16

Nieuw topic? Haal de OP bij de wiki
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 25 november 2009 @ 23:01:18 #2
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75005810
Via voorwaardelijke opmaak kan ik wel een enkele cel doen, maar het gaat om een combinatie van 5-6 cellen die identiek moeten zijn wil dit als duplicaat aangemerkt worden.

Eigenlijk wil ik de exacte functie van de duplicaten verwijderen en alleen het verwijderen vervangen door invullen met bv. geel.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
  donderdag 26 november 2009 @ 07:16:53 #3
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75010196
quote:
Op woensdag 25 november 2009 23:01 schreef sanger het volgende:
Via voorwaardelijke opmaak kan ik wel een enkele cel doen, maar het gaat om een combinatie van 5-6 cellen die identiek moeten zijn wil dit als duplicaat aangemerkt worden.

Eigenlijk wil ik de exacte functie van de duplicaten verwijderen en alleen het verwijderen vervangen door invullen met bv. geel.
Misschien iets duidelijker maken. Ik heb een bestand met enkele duizenden regels. Ik heb het vermoeden dat er dubbele regels inzitten terwijl dat niet de bedoeling is. Ik wil dus die dubbele regels herkennen. Een regel kan als dubbel worden aangemerkt als de invoer in kolommen A, B, C, E en G gelijk zijn aan elkaar.

Met de functie duplicaten verwijderen kun je deze wel verwijderen. Maar als ik ze verwijderen weet ik nog steeds niet welke regels er duplicaat waren (kan het wel doen, maar das een stuk omslachtiger). Ik wil dus wel de exacte mogelijkheden van de functie duplicaten verwijderen, maar alleen het verwijderen vervangen voor markeren/arceren/kopieeren naar andere map.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75010325
Kan wel macrootje voor je schrijven. Begint de data op rij 2?
  donderdag 26 november 2009 @ 07:53:28 #5
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75010353
quote:
Op donderdag 26 november 2009 07:49 schreef DaFan het volgende:
Kan wel macrootje voor je schrijven. Begint de data op rij 2?
Dat zou mooi zijn



Alleen de kolommen wil je dan exact weten neem ik aan? Die ik hierboven noemde waren voorbeelden.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
  donderdag 26 november 2009 @ 07:56:37 #6
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75010384
quote:
Op donderdag 26 november 2009 07:53 schreef sanger het volgende:

[..]

Dat zou mooi zijn



Alleen de kolommen wil je dan exact weten neem ik aan? Die ik hierboven noemde waren voorbeelden.
De kolommen waar de match op moet komen zijn:

B, F, G, AE
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75010931
Aub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Dubbel()

    lastrow = Range("B65536").End(xlUp).Row
    
    For i = 2 To lastrow
        TempVal = Range("B" & i).Value
        
        For j = i + 1 To lastrow
            
            If Range("B" & i).Value = Range("B" & j).Value Then
            If Range("F" & i).Value = Range("F" & j).Value Then
            If Range("G" & i).Value = Range("G" & j).Value Then
            If Range("AE" & i).Value = Range("AE" & j).Value Then
                Rows(j).Interior.ColorIndex = 4
            End If
            End If
            End If
            End If
        Next j
    Next i

End Sub


Weet iemand waarom 4 nested If-loops wel werken en dit niet:
1
2
3
4
5
6
7
            If Range("B" & i).Value = Range("B" & j).Value & _
                Range("F" & i).Value = Range("F" & j).Value & _
                Range("G" & i).Value = Range("G" & j).Value & _
                Range("AE" & i).Value = Range("AE" & j).Value Then
                
                Rows(j).Interior.ColorIndex = 4
            End If
  donderdag 26 november 2009 @ 09:32:44 #8
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75011606
quote:
Op donderdag 26 november 2009 09:00 schreef DaFan het volgende:
Aub
[ code verwijderd ]

Weet iemand waarom 4 nested If-loops wel werken en dit niet:
[ code verwijderd ]


SUPER!!!!

Ga hem vanmiddag uitproberen
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75011683
Ik heb hem alleen getest met 3 rijen waarvan rij 2 en 4 gelijk waren. Rij 4 werd groen. Als je een andere kleur wilt moet je Colorindex = 4 even aanpassen (geen idee wat geel is trouwens )
Dus ik weet niet 100% zeker hoe het gaat met meerdere duplicaten en veel meer rijen.

Hoor het wel
  donderdag 26 november 2009 @ 09:51:59 #10
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75012014
quote:
Op donderdag 26 november 2009 09:36 schreef DaFan het volgende:
Ik heb hem alleen getest met 3 rijen waarvan rij 2 en 4 gelijk waren. Rij 4 werd groen. Als je een andere kleur wilt moet je Colorindex = 4 even aanpassen (geen idee wat geel is trouwens )
Dus ik weet niet 100% zeker hoe het gaat met meerdere duplicaten en veel meer rijen.

Hoor het wel
Als ik eerlijk moet zijn maakt de kleur me niets uit. Al had je voor roze gekozen Het gaat me puur om de functionaliteit.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75012266
quote:
Op donderdag 26 november 2009 09:51 schreef sanger het volgende:

[..]

Als ik eerlijk moet zijn maakt de kleur me niets uit. Al had je voor roze gekozen Het gaat me puur om de functionaliteit.
overzichtje colorindex
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_75012391
Nice.
pi_75012577
Hoe kan het dat wanneer ik een Excel bestand waarin wij kleine bedrijfsicoontjes hebben geplaatst als marker en deze omzet naar PDF, een deel van de icoontjes plat worden?
pi_75013823
tvp
  donderdag 26 november 2009 @ 12:36:28 #15
158136 Joooo-pi
Do you want a balloon...
pi_75016591
=ALS(T;V;P)
heitieh
  donderdag 26 november 2009 @ 12:38:10 #16
62215 qu63
..de tijd drinkt..
pi_75016655
quote:
Op donderdag 26 november 2009 12:36 schreef Joooo-pi het volgende:
=ALS(T;V;P)
P
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_75018682
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
pi_75020050
quote:
Op donderdag 26 november 2009 10:19 schreef EddyAlbena het volgende:
Hoe kan het dat wanneer ik een Excel bestand waarin wij kleine bedrijfsicoontjes hebben geplaatst als marker en deze omzet naar PDF, een deel van de icoontjes plat worden?
Welke versie van excel, wat voor type plaatjes, hoe in het document geplaatst.
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
  donderdag 26 november 2009 @ 18:37:15 #19
95427 Hephaistos.
¯¯¯¯¯¯¯¯¯¯¯¯¯
pi_75028383
Zit nu al een hele tijd te prutsen, maar kom er niet uit... Hoop dat iemand me hier kan helpen

Excel 2007 - Nederlands

Het probleem: Ik heb een stuk of 200 bestanden, die allemaal op dezelfde manier zijn opgebouwd. Uit die 200 bestanden wil ik de inhoud van negen verschillende cellen kopieren naar een nieuw totaalbestand. Dus bijvoorbeeld:

- Cel 2A van blad 1
- Cel 5H van blad 1
- Cel 3B van blad 4
En dat de gegevens van die cellen dus netjes onder elkaar in het totaalbestand terechtkomen.

Ik heb al geprobeerd om te prutsen met macro's, maar daar loop ik telkens tegen het probleem aan dat die macro alleen verwijst naar de cellen in één bestand. Zodra ik dezelfde macro dan in een ander bestand probeer uit te voeren, geeft ie een foutmelding.


Iemand die raad weet?
  donderdag 26 november 2009 @ 18:51:04 #20
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75028770
quote:
Op donderdag 26 november 2009 10:03 schreef Deetch het volgende:

[..]

overzichtje colorindex
[ afbeelding ]


Ik ben er door omstandigheden nog niet aan toegekomen de macro te testen. Ik hoop vanavond of morgen tijd te vinden, anders het weekend
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75029765
Weet iemand ook of dit mogelijk is in excel?



Het gaat er om dat de waarden van die lijnen automatisch mee veranderen wanneer ik ze wijzig.
  donderdag 26 november 2009 @ 19:31:00 #22
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75030100
quote:
Op donderdag 26 november 2009 19:21 schreef Heinz__ het volgende:
Weet iemand ook of dit mogelijk is in excel?

[ afbeelding ]

Het gaat er om dat de waarden van die lijnen automatisch mee veranderen wanneer ik ze wijzig.
Welke lijnen bedoel je? De X-as en de Y-as?
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75030165
quote:
Op donderdag 26 november 2009 19:31 schreef sanger het volgende:

[..]

Welke lijnen bedoel je? De X-as en de Y-as?
Die T-lijn etc.
  donderdag 26 november 2009 @ 21:15:00 #24
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75033739
quote:
Op donderdag 26 november 2009 19:32 schreef Heinz__ het volgende:

[..]

Die T-lijn etc.
Als het goed is past de lijn zich aan zodra je de gegevens in de tabel aanpast
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75044958
Loopen door files
Blegh.

(Kom er nog niet uit sanger).
pi_75044997
Vraagje.
Ik werk met een systeem waar we CSV's uit exporteren.
Het probleem is echter dat de kolommen door komma's worden gescheiden en niet door puntkomma's.
Dit heeft als gevolg dat Excel 2003 ze niet direct wil openen en ook niet de CSV wil opslaan met komma's.
Nu kan ik in de Regional settings de taal naar "English (United Kingdom)" zetten, maar dat is zo omslachtig.
Iemand een tip?
  vrijdag 27 november 2009 @ 09:17:05 #27
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75045227
quote:
Op vrijdag 27 november 2009 09:04 schreef STING het volgende:
Vraagje.
Ik werk met een systeem waar we CSV's uit exporteren.
Het probleem is echter dat de kolommen door komma's worden gescheiden en niet door puntkomma's.
Dit heeft als gevolg dat Excel 2003 ze niet direct wil openen en ook niet de CSV wil opslaan met komma's.
Nu kan ik in de Regional settings de taal naar "English (United Kingdom)" zetten, maar dat is zo omslachtig.
Iemand een tip?
Komma's vervangen door puntkomma's?

Alles selecteren waar je de vervanging wilt doen. Dan vervolgens zoeken/vervangen.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
pi_75045289
quote:
Op vrijdag 27 november 2009 09:17 schreef sanger het volgende:

[..]

Komma's vervangen door puntkomma's?

Alles selecteren waar je de vervanging wilt doen. Dan vervolgens zoeken/vervangen.
Dat is een workarond die ik heb geprobeerd toe te passen, echter.. zitten er ook komma's in sommige velden.
OpenOffice Calc gaat hier op zich een stuk beter mee om, maar dat is voor de rest echt een K-pakket.
pi_75045954
Tja daarom is het eerste wat ik doe op mijn PC de regionale settings in engels zetten of gewoon direct een engelse versie installeer. Dan heb je al dat gezeik met puntkomma's ipv komma's decimale komma's ipv decimale punten niet.

Je zou de CSV ipv open kunnen importeren en dan scheiden op puntkomma. Als je dat dan opneemt met je macrorecorer kun je hem ook nog naar wens aanpassen.
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_75046099
quote:
Op vrijdag 27 november 2009 09:48 schreef Deetch het volgende:
Tja daarom is het eerste wat ik doe op mijn PC de regionale settings in engels zetten of gewoon direct een engelse versie installeer. Dan heb je al dat gezeik met puntkomma's ipv komma's decimale komma's ipv decimale punten niet.

Je zou de CSV ipv open kunnen importeren en dan scheiden op puntkomma. Als je dat dan opneemt met je macrorecorer kun je hem ook nog naar wens aanpassen.
Tweede probleem heeft helaas dat Excel de kolommen niet goed scheidt.
Voorbeeld:

Bron:
"Piet,","van Puk","M'
wordt:
Piet,,van Puk,M

Voor de rest is Excel m'n big friend, maar qua CSV's
  vrijdag 27 november 2009 @ 15:23:31 #31
95427 Hephaistos.
¯¯¯¯¯¯¯¯¯¯¯¯¯
pi_75057765
Iemand?
quote:
Op donderdag 26 november 2009 18:37 schreef Hephaistos. het volgende:
Zit nu al een hele tijd te prutsen, maar kom er niet uit... Hoop dat iemand me hier kan helpen

Excel 2007 - Nederlands

Het probleem: Ik heb een stuk of 200 bestanden, die allemaal op dezelfde manier zijn opgebouwd. Uit die 200 bestanden wil ik de inhoud van negen verschillende cellen kopieren naar een nieuw totaalbestand. Dus bijvoorbeeld:

- Cel 2A van blad 1
- Cel 5H van blad 1
- Cel 3B van blad 4
En dat de gegevens van die cellen dus netjes onder elkaar in het totaalbestand terechtkomen.

Ik heb al geprobeerd om te prutsen met macro's, maar daar loop ik telkens tegen het probleem aan dat die macro alleen verwijst naar de cellen in één bestand. Zodra ik dezelfde macro dan in een ander bestand probeer uit te voeren, geeft ie een foutmelding.


Iemand die raad weet?
pi_75058581
quote:
Op vrijdag 27 november 2009 15:23 schreef Hephaistos. het volgende:
Iemand?
[..]
quote:
Op vrijdag 27 november 2009 09:02 schreef DaFan het volgende:
Loopen door files
Blegh.

(Kom er nog niet uit sanger).
Ik bedoelde jou
pi_75061281
quote:
Op vrijdag 27 november 2009 15:23 schreef Hephaistos. het volgende:
Iemand?
[..]


Ik raad je met klem aan de informatie uit die 200 bestanden (?????? Tilt) in 1 fraaie
database om te zetten (in 1 bestand dus).

Je krijgt anders een gigantische spaghetti
aan gegevens
Je kunt beter één kaars opsteken dan duizend maal de duisternis vervloeken.
  zaterdag 28 november 2009 @ 06:24:57 #34
259770 iamcj
Niets is onmogelijk
pi_75078592
quote:
Op vrijdag 27 november 2009 15:23 schreef Hephaistos. het volgende:
Iemand?
[..]


' Zet deze functie in een module van spreadsheet totaal
' Kies menu - > extra -> verwijzingen -> Microsoft scripting runtime aanvinken

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function ImportData()
  Dim fs As FileSystemObject
  Dim f As File
  Dim wb As Workbook
  Dim strLoc As String
  Dim nr As Integer
  
  strLoc = "c:\Files" 'Zet alleen excelfiles in deze folder
  
  Set fs = New FileSystemObject
  
  For Each f In fs.GetFolder(strLoc).Files
    Set wb = Application.Workbooks.Open(f.Path)
    nr = nr + 1
    Blad1.Cells(nr, 1) = wb.Sheets(3).Range("A1")
    Blad1.Cells(nr, 2) = wb.Sheets("hoi").Range("A2")
    wb.Close False
  Next f
  
End Function


Het kan ook anders, beter en sneller, maar dit is het best te begrijpen denk ik.
Wie bang is voor morgen, kan niet genieten van vandaag.
Religie is als taal, een basisbehoefte voor een maatschappij, iedereen spreekt zijn eigen dialect en even verder op begrijp je niet meer wat de ander zegt.
  Moderator / Redactie Sport zaterdag 28 november 2009 @ 12:18:27 #35
92686 crew  borisz
Keurmeester
pi_75081341
Zijn er nu ook goede boeken/programma's over Excel die wat verder gaat dan 'zo maak een cel vet of cursief' ?

De basis van excel dingen ken ik wel, ik wil wat meer leren over Excel dan alleen de basis .
winnaar wielerprono 2007 :) Last.FM
pi_75082705
quote:
Op zaterdag 28 november 2009 12:18 schreef borisz het volgende:
Zijn er nu ook goede boeken/programma's over Excel die wat verder gaat dan 'zo maak een cel vet of cursief' ?

De basis van excel dingen ken ik wel, ik wil wat meer leren over Excel dan alleen de basis .
Op youtube staan verschillende 'advanced' filmpjes.
  zaterdag 28 november 2009 @ 15:27:39 #37
65960 sanger
|-|-|-|-|-|-|-|-|-|-|-|-|-|-|
pi_75085250
quote:
Op zaterdag 28 november 2009 12:18 schreef borisz het volgende:
Zijn er nu ook goede boeken/programma's over Excel die wat verder gaat dan 'zo maak een cel vet of cursief' ?

De basis van excel dingen ken ik wel, ik wil wat meer leren over Excel dan alleen de basis .
Er zijn zat cursussen/trainingen ook. Wel prijzig overigens, en vaak heel specifiek op een bepaald gebruikersdoel gericht.
Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.
  zaterdag 28 november 2009 @ 15:40:19 #38
62215 qu63
..de tijd drinkt..
pi_75085587
quote:
Op zaterdag 28 november 2009 12:18 schreef borisz het volgende:
Zijn er nu ook goede boeken/programma's over Excel die wat verder gaat dan 'zo maak een cel vet of cursief' ?

De basis van excel dingen ken ik wel, ik wil wat meer leren over Excel dan alleen de basis .
Leer je niet makkelijker/sneller door gewoon jezelf uit te dagen iets moeilijks te maken?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zaterdag 28 november 2009 @ 15:42:40 #39
95427 Hephaistos.
¯¯¯¯¯¯¯¯¯¯¯¯¯
pi_75085644
quote:
Op zaterdag 28 november 2009 06:24 schreef iamcj het volgende:

[..]

' Zet deze functie in een module van spreadsheet totaal
' Kies menu - > extra -> verwijzingen -> Microsoft scripting runtime aanvinken
[ code verwijderd ]

Het kan ook anders, beter en sneller, maar dit is het best te begrijpen denk ik.
Super, ik ga het morgen eens even proberen...
pi_75095931
Hallo,

Wanneer je sorteert in 2 kolommen, is dat dan niet met "with" neer te zetten?
Want dit werkt namelijk niet:

With Sheets("qty").sort
.SetRange Range("C4:L" & Range("L" & Rows.Count).End(xlUp).Row)
.Key1 = Range("C4")
.Order1 = xlAscending
.Key2 = Range("H4")
.Order2 = xlAscending
.Header = xlNo
.OrderCustom = 1
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With

Bedankt.
  zaterdag 28 november 2009 @ 21:53:33 #41
158136 Joooo-pi
Do you want a balloon...
pi_75096340
quote:
Op zaterdag 28 november 2009 21:38 schreef hendrik2009 het volgende:
Hallo,

Wanneer je sorteert in 2 kolommen, is dat dan niet met "with" neer te zetten?
Want dit werkt namelijk niet:

With Sheets("qty").sort
.SetRange Range("C4:L" & Range("L" & Rows.Count).End(xlUp).Row)
.Key1 = Range("C4")
.Order1 = xlAscending
.Key2 = Range("H4")
.Order2 = xlAscending
.Header = xlNo
.OrderCustom = 1
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With

Bedankt.
Probeer met .autofilter ertussen, op deze manier:
With ActiveWorkbook.Worksheets("Blad1").AutoFilter.Sort
[...]
heitieh
pi_75096539
quote:
Op zaterdag 28 november 2009 21:53 schreef Joooo-pi het volgende:

[..]

Probeer met .autofilter ertussen, op deze manier:
With ActiveWorkbook.Worksheets("Blad1").AutoFilter.Sort
[...]
thanks, maar werkt ook niet.
krijg de melding dat die key1 niet een bekend object is.

heb het nu zo, maar "with" is zo lekker overizchtelijk

Sheets("qty").Range("C4:L" & Range("L" & Rows.Count).End(xlUp).Row).sort Key1:=Range("C4"), Order1:=xlAscending, _
Key2:=Range("H4"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  zondag 29 november 2009 @ 23:50:51 #43
179598 Deprater
werken fijn, niks doen beter
  zondag 29 november 2009 @ 23:51:47 #44
179598 Deprater
werken fijn, niks doen beter
pi_75130940
quote:
Op zaterdag 28 november 2009 12:18 schreef borisz het volgende:
Zijn er nu ook goede boeken/programma's over Excel die wat verder gaat dan 'zo maak een cel vet of cursief' ?

De basis van excel dingen ken ik wel, ik wil wat meer leren over Excel dan alleen de basis .
wat denk je van een advanced cursus??
pi_75135528
quote:
Op zondag 29 november 2009 23:51 schreef Deprater het volgende:

[..]

wat denk je van een advanced cursus??
Dan moet je wel weten wat je precies zoekt en heel kritisch de cursusinfo doornemen omdat advanced cursussen vaak specifiek op een bepaald doel gericht zijn.
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
  maandag 30 november 2009 @ 13:29:50 #46
271205 Dj_unkie
Industrialized
pi_75140871
oke ik heb ook een probleem!

Ik heb ene rekenmodel gemaakt waarmee ik omzet/winst/kosten van een afdeling kan bepalen aan de hand van aantallen verschillende personeelsleden. Dus één monteur zet per jaar zoveel om, maar als ik er 3 neem moet er ook een werkvoorbereider bij. Omdat er nogal wat variabele waarden in zitten (marges, percentages van binnendienst die aan klant doorberekend wordt, verhoudingen werk/materiaal). Nu werkt het model prima, maar ik wil verschillende combinaties invoeren en dat die in een grafiek worden weergegeven.

Maar hoe maak ik een input die zijn waarde vanuit meerdere cellen pakt en dat in meerdere cellen uitspuugt? Anders blijf ik steeds weer handmatig gegevens aanpassen!
Stand for something or fall for anything
pi_75141259
Je verhaal is niet echt duidelijk, heb je een voorbeeld sheet of plaatje met uitleg?
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
  maandag 30 november 2009 @ 13:49:17 #48
271205 Dj_unkie
Industrialized
pi_75141590
http://img188.imageshack.us/i/screenie.gif/

Links bovenin kan ik de aantallen in verschillende personeelsleden invoeren. Ik moet verschillende combinaties invoeren die allemaal in een grafiek moeten komen. Dus ik moet bijvoorbeeld 1 WVB, 1 PL, en 3 MNTR's invoeren en daar komt wordt er een omzet en marge berekend. Ik wil dus verschillende combinaties invoeren en daar meerdere uitkomsten uit verkrijgen zodat ik die kan verwerken in een lijndiagram.

Beetje duidelijk? Thnx!
Stand for something or fall for anything
  maandag 30 november 2009 @ 14:43:03 #49
271205 Dj_unkie
Industrialized
pi_75143348
Laat maar ik heb het al opgelost...het is makkelijker om die formule gewoon een paar maal onder elkaar te zetten, dan kan ik ook onafhankelijk variabelen veranderen

thanx anyway
Stand for something or fall for anything
pi_75145073
Dus als je C2, C3 en C4 naar wens aanpast verander je de uitkomst in G21:L21?

Met onderstaande macro maak je een tabelletje met alle mogelijke combinaties.
Allereerst berekenen op handmatig

De tabel start in A25
De variable P, Q en R zijn de hoeveelheid van de werknemers in C2, C3, C4.
P = Werkvoorbereider, Q = Ploegleider, R = Monteur
Vervolgens wordt de nieuwe winst berekend (cel I21) en wordt het tabelletje gemaakt

De maximale hoeveelheid van bepaalde werknemers kun je aanpassen door de regel For P = 0 To 2 aan te passen naar wens. Je kunt de 2 dan vervangen door een hoger getal (de 0 eventueel ook). Zelfde geldt voor de regel van q en r.
Let op dat de tabel erg groot wordt als je meer medewerkerstypes of aantallen gaat toevoegen.

Van de kolom D en E kun je dan je lijndiagram maken.

mijn advies: klein beginnen.


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
Sub Tabelletje()
'
' Tabelletje Macro

Application.Calculation = xlManual
Range("A25").Select
For P = 0 To 2
    For Q = 0 To 2
        For R = 0 To 2
        Range("C2").Value = P
        Range("C3").Value = Q
        Range("C4").Value = R
        Calculate
        ActiveCell.Value = P
        ActiveCell.Offset(0, 1) = Q
        ActiveCell.Offset(0, 2) = R
        Activecell.Offset(0, 3) = P & " WVB, " & Q & " PL, " & R & " MNTR"
        ActiveCell.Offset(0, 4) = Range("I21").Value
        ActiveCell.Offset(1, 0).Select
        Next r
    Next q
Next p

Application.Calculation = xlAutomatic
    
End Sub


[ Bericht 7% gewijzigd door Deetch op 30-11-2009 15:35:37 ( verduidelijking) ]
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
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')