[Excel] Het grote Excel vragen topic #30

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
  zaterdag 28 januari 2012 @ 20:19:17 #1
62215 qu63
..de tijd drinkt..
pi_107337722


Welkom bij “Het grote Excel vragentopic” waar je terecht kan met vragen over Excel.

In dit topic is het de bedoeling dat we gericht vragen stellen en antwoorden geven op de gestelde vragen. Om alles zo goed mogelijk te laten verlopen zijn er een aantal regels.

Regels
1. Als je een vraag stelt, zet er dan bij welke versie van Excel je hebt en op welke taal hij ingesteld staat.
2. Zet macrocode tussen [ code ] tags
3. Als het “pseudo-code” is, vermeldt dit dan duidelijk
4. Er bestaan geen domme vragen, wel domme antwoorden. Als jouw antwoord niet gaat bijdragen, geef het antwoord dan niet.
5. Dit topic is geen “code-FEBO” waar je half opgewarmde code uit de muur trekt, het is de bedoeling dat je er zelf iets van leert.

Definities
Functie Een interne functie die bij Excel is geleverd.
UDF Een “user definded function”, een zelfgebouwde functie
Macro Een stuk code die opdrachten uitvoert, gebouwd in (meestal) de VBA editor
Add-In Een Excel workbook met VBA-code (of C#, C) die als .xla (of .xll) is opgeslagen, deze is als vaste plug-in in Excel te plaatsen.
Workbook Het excelbestand
Sheet of Worksheet Het tabblad
Form, Formulier, Userform Een Dialoogvenster in VBA gebouwd

Tips & Links
De help functie van excel of visual basic voor excel kan je een eind op weg helpen. (F1)

Het workbook met het FOK!-menu zoals in de banner weergegeven is hier te vinden. Dit menu is naar wens aan te passen. De icoontjes in het menu zijn hier allemaal weergegeven. In dit workbook zijn drie macro's aanwezig: Een printertool waarmee je uit meerder workbooks sheets kan selecteren voo afdrukken, een power replace die termen kan wijzigen in meerdere workbooks tegelijk en een formule vertaler, de formule in de actieve cell wordt in het engels weergegeven, je kan ook een engelse formule invoeren die dan in de actieve cell in de geldende taal wordt geplaatst. De UDF is naar aanleiding van een vraag in topic #29. De functie kan worden aangeroepen door in een cel =FOK() te typen en dan op de Fx te klikken voor uitleg over de variabelen.

De VBA editor bereik je door ALT+F11 in te drukken. Vanaf Excel 2007 is de VBA editor lastiger te vinden. Op deze site wordt uitgelegd hoe je de editor kan activeren.

De interne functies zijn afhankelijk van welke taal jouw Excel draait. Op deze en deze site kun je de formules in verschillende talen vertalen.

De meer uitgebreide macro's kunnen traag worden, ook kan het scherm flikkeren als gevolg van veel "select" acties. Deels kun je dit ondervangen door zo veel mogelijk select acties te vervangen door directe verwijzingen naar cells en deels door een macro-optimalisatie door te voeren. In de onderstaande code is een routine voor macro-optimalisatie en een routine om de optimalisatie weer uit te zetten weergegeven. In de voorbeeld sheet is een uitgebreide versie van MOA en MOU opgenomen.

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.
Bij macro's die een bepaalde, merkbare, tijd nodig hebben om hun werk te doen is het van belang de gebruiker een idee te geven van wat er gebeurt, zeker met macro-optimalisatie aan kan het lijken alsof Excel is vastgelopen. Je kan bijvoorbeeld de statusbar een waarde geven, met eventueel een percentage van de reeds uitgevoerde code.

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.
Verder
Alle vorige topics zijn hier terug te vinden.

Nieuw topic? Haal de OP uit de wiki

[ Bericht 28% gewijzigd door qu63 op 30-01-2012 15:01:43 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107337810
quote:
0s.gif Op vrijdag 27 januari 2012 15:37 schreef qu63 het volgende:

[..]

Ik weet niet of dat ook werkt met je grafieklijn..
Oh, helemaal overheen gelezen :@ .
pi_107351593
Je kan eventueel wel de labels kleuren als je deze weergeeft in de grafiek.

Mijn eerste oplossing werkt trouwens wel als je geen lijn maar een staafdiagram maakt.

op deze site http://peltiertech.com/Excel/ChartsHowTo/ zie je een aantal voorbeelden van grafiek mogelijkheden.

van die site:



[ Bericht 10% gewijzigd door #ANONIEM op 29-01-2012 07:59:24 ]
pi_107364610
Wazaa

Tja mijn oplossing is uiteindelijk uitgebreide VBA maar goed

Dit is het resultaat:


De sheet is hier te vinden (draai macro PoseNegChart)

en dit is mijn code:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87		Sub PosNegChart()
    Dim i       As Integer
    Dim j       As Integer
    Dim x       As Range
    Dim y       As Range
    Dim xnew()  As Double
    Dim ynew()  As Double

    'User input x en y waarden
    Set x = Application.InputBox("Kies range X-as", "FOK! Excel Help", , , , , , 8)
    Set y = Application.InputBox("Kies range Y-as", "FOK! Excel Help", , , , , , 8)
    
    ReDim xnew(0)
    ReDim ynew(0)

    For i = 1 To x.Rows.Count
        'Arrays uitbreiden
        ReDim Preserve xnew(UBound(xnew) + 1)
        ReDim Preserve ynew(UBound(ynew) + 1)
        'x en y waarden aan nieuw array toevoegen
        xnew(UBound(xnew)) = x(i, 1)
        ynew(UBound(ynew)) = y(i, 1)
                'Bekende (x1,y1) en (x2,y2) voor bepaling
                'Richtingscoëfficient en B uit y = ax + b
                
                A1 = x(i, 1)
                B1 = y(i, 1)
                
                A2 = x(i + 1, 1)
                B2 = y(i + 1, 1)
                
                'berekening y = 0 (snijdpunt x-as)
                SP = -1 * (B2 - (A2 * (B2 - B1) / (A2 - A1))) / (B2 - B1) / (A2 - A1)
                    
                    'test of snijden x-as plaatsvindt in deze verzameling
                    If SP > A1 And SP < A2 Then
                    
                        'uitbreiden nieuwe arrays en toevoegen y=0 snijpunten x as
                        ReDim Preserve xnew(UBound(xnew) + 1)
                        ReDim Preserve ynew(UBound(ynew) + 1)
                        ynew(UBound(ynew)) = 0
                        xnew(UBound(xnew)) = SP
                        
                    End If
        
    Next
    
    'actieve sheetnaam onthouden
    Dim Naam As String
    Naam = ActiveSheet.Name
    
    'Geheime sheet aanmaken (eerst verwijderen)
    On Error Resume Next
        Application.DisplayAlerts = False
        Sheets("FOK").Delete
        Application.DisplayAlerts = True
    On Error GoTo 0
        ActiveWorkbook.Sheets.Add
        ActiveSheet.Name = ("FOK")
        Sheets("FOK").Visible = False
    
    'Nieuwe serie x en y waarden plaatsen in geheime sheet
    For i = 1 To UBound(xnew)
        Sheets("FOK").Cells(i, 1) = xnew(i)
        Sheets("FOK").Cells(i, 2) = ynew(i)
    Next
    
    'Grafiek toevoegen
    Charts.Add
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = Sheets("FOK").Range(Sheets("FOK").Cells(LBound(xnew) + 1, 1), Sheets("FOK").Cells(UBound(xnew), 1))
    ActiveChart.SeriesCollection(1).Values = Sheets("FOK").Range(Sheets("FOK").Cells(LBound(xnew) + 1, 2), Sheets("FOK").Cells(UBound(xnew), 2))
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.Location Where:=xlLocationAsObject, Name:=Naam
  
    For i = 1 To UBound(xnew)
        On Error Resume Next
        If ynew(i) <= 0 And ynew(i + 1) <= 0 Then
            ActiveChart.SeriesCollection(1).Points(i + 1).Border.ColorIndex = 3
        End If
    Next
    
    
    ActiveChart.Legend.Delete

    
End Sub


[ Bericht 0% gewijzigd door #ANONIEM op 29-01-2012 16:00:32 ]
  zondag 29 januari 2012 @ 18:05:02 #5
85514 ralfie
!Yvan eht nioj
pi_107369301
@KritischeMassa
1
2
3
4		Dim x As Variant
x = Range("A1:B4")
MsgBox x(2,2)  'geeft waarde cell B2
Range("A12:B15") = x
Ranges kun je makkelijk converteren naar Variants, en omgekeerd. Gebruik is weinig anders als cells(2 argumenten, rij en kolom), maar snelheid is honderden malen sneller.
pi_107370529
quote:
0s.gif Op zondag 29 januari 2012 18:05 schreef ralfie het volgende:
@KritischeMassa
[ code verwijderd ]

Ranges kun je makkelijk converteren naar Variants, en omgekeerd. Gebruik is weinig anders als cells(2 argumenten, rij en kolom), maar snelheid is honderden malen sneller.
ok, dank je, ik zal het meenemen, ik dacht dat ik range moest gebruiken ivm met de input van user, ik had in het begin steeds fouten in de de uitvoering van code en kon niet vinden waar het lag. Uiteindelijk lag het niet aan de ranges maar heel ergens anders...

Ach ja, het is maar zondagmiddag code ;)
pi_107392878
Ik heb een excel overzicht met daarin in een kolom meetwaarden (getallen) per datum (andere kolom). Ik zou graag willen dat de laagste waarde uit de meetwaardenkolom automatisch een kleurtje krijgt.
Via voorwaardelijke opmaak een functie gehangen aan de kolom:
="min($C$3:$C$28)"
Deze functie heeft echter geen resultaat, geen enkele cel krijgt het gewenste kleurtje. Daarnaast heeft "min" een beperking tot maximaal 30 waarden terwijl ik er veel meer heb staan.

Ik gebruik duidelijk de verkeerde functie, maar welke moet ik dan wel hebben?

Excel 2003.
I removed all the bad food from my house.
It was delicious.
pi_107394852
Maak een cel waarin je zet =min(c:c)

vervolgens doe je voorwaardelijke opmaak vergelijken met die celwaarde

[ Bericht 1% gewijzigd door #ANONIEM op 30-01-2012 11:08:30 ]
  maandag 30 januari 2012 @ 11:24:58 #9
49641 Individual
Meet John Doe...
pi_107395271
Mooi, dankjewel KM, ik heb hem in m'n Excelbieb geplakt. ^O^
reset
pi_107397641
@Qu63, hoe maak je zo'n extra menu? en kun je die ook installeerbaar maken?
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_107397897
Kan de handige sheet met macros (tip 4) ergens anders geupload worden, de mediafire link werkt niet meer. ^O^
pi_107398690
quote:
6s.gif Op maandag 30 januari 2012 13:04 schreef Basp1 het volgende:
Kan de handige sheet met macros (tip 4) ergens anders geupload worden, de mediafire link werkt niet meer. ^O^
http://www.mediafire.com/?8kbsfc8v0mjyiff

Gek in de OP wiki had ik sowieso ook een ander link geplakt (ik had de OP geheel herschreven)
pi_107399347
quote:
4s.gif Op maandag 30 januari 2012 11:07 schreef KritischeMassa het volgende:
Maak een cel waarin je zet =min(c:c)

vervolgens doe je voorwaardelijke opmaak vergelijken met die celwaarde
^O^

Bedankt! Werkt perfect.
I removed all the bad food from my house.
It was delicious.
pi_107399552
quote:
3s.gif Op maandag 30 januari 2012 12:55 schreef Deetch het volgende:
@Qu63, hoe maak je zo'n extra menu? en kun je die ook installeerbaar maken?
zie de link aan Basp, het menu zit hierin met verklaringen

je kan het helemaal naar je hand zetten

Tip van mij, sla de sheet uiteindelijk op als .xla en zet hem als invoegtoepassing vast

vereist wel een goede verwijzing naar workbooks in je macro's (thisworkbook verwijst dan namelijk naar de .xla bijvoorbeeld)

quote:
0s.gif Op maandag 30 januari 2012 13:48 schreef Sometimes het volgende:

[..]

^O^

Bedankt! Werkt perfect.
:) geen probleem

[ Bericht 29% gewijzigd door #ANONIEM op 30-01-2012 13:53:40 ]
  maandag 30 januari 2012 @ 15:01:12 #15
62215 qu63
..de tijd drinkt..
pi_107401967
quote:
0s.gif Op maandag 30 januari 2012 13:30 schreef KritischeMassa het volgende:

[..]

http://www.mediafire.com/?8kbsfc8v0mjyiff

Gek in de OP wiki had ik sowieso ook een ander link geplakt (ik had de OP geheel herschreven)
Oeps, dan heb ik niet de goeie gepakt.. Ga em ff updaten!

quote:
3s.gif Op maandag 30 januari 2012 12:55 schreef Deetch het volgende:
@Qu63, hoe maak je zo'n extra menu? en kun je die ook installeerbaar maken?
Geen idee, dat was een screenshot van KritischeMassa :P
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 30 januari 2012 @ 15:03:08 #16
62215 qu63
..de tijd drinkt..
pi_107402030
OP is geüpdatet, met dank aan KritischeMassa voor het herschrijven en uploaden van het excelbestand! *O*
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 30 januari 2012 @ 15:05:54 #17
49641 Individual
Meet John Doe...
pi_107402134
Maak custom menu's: http://www.ozgrid.com/VBA/custom-menus.htm
reset
pi_107402149
Wat zitten er eigenlijk voor macro's in het macro bestand?
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107402366
quote:
7s.gif Op maandag 30 januari 2012 15:06 schreef Jesse_ het volgende:
Wat zitten er eigenlijk voor macro's in het macro bestand?
Zie OP

Een printertool waarmee je sheets uit alle openstaande workbooks kunt selecteren voor uitprinten
Een powerreplace waarmee je een term in alles openstaande workbooks in alle sheets kan vervangen
Een functievertaler, de functie in de actieve cel wordt in het engels weergegeven, ook kun je een functie in het engels ingeven en deze wordt dan in de juiste taal geplaatst
  maandag 30 januari 2012 @ 15:14:34 #20
28946 mirelia
Neehee ik ben geen vrouw!!
pi_107402446
quote:
0s.gif Op maandag 30 januari 2012 13:30 schreef KritischeMassa het volgende:

[..]

http://www.mediafire.com/?8kbsfc8v0mjyiff

Gek in de OP wiki had ik sowieso ook een ander link geplakt (ik had de OP geheel herschreven)
NOD32 gaat helemaal over zijn gerrit van deze link
Shuffle up and deal!!!
pi_107402746
quote:
0s.gif Op maandag 30 januari 2012 15:14 schreef mirelia het volgende:

[..]

NOD32 gaat helemaal over zijn gerrit van deze link
Dat is gek... er zit niets bijzonders in namelijk

Maar misschien worden VBA macro's per definitie als riskant beoordeeld?

Het is gewoon een zip file met hierin een sheet met macro's

Als je het niet vertrouwd kun je de sheet openen zonder macro's te activeren en de code bekijken

Ik kan leuk programmeren, maar een virus schrijven is een level of 100 te hoog gegrepen voor mij
pi_107404064
quote:
0s.gif Op maandag 30 januari 2012 15:23 schreef KritischeMassa het volgende:

[..]

Dat is gek... er zit niets bijzonders in namelijk

Maar misschien worden VBA macro's per definitie als riskant beoordeeld?

Het is gewoon een zip file met hierin een sheet met macro's

Als je het niet vertrouwd kun je de sheet openen zonder macro's te activeren en de code bekijken

Ik kan leuk programmeren, maar een virus schrijven is een level of 100 te hoog gegrepen voor mij
Je kan vast wel een excel bestand koppelen aan een simpel batch filetje dat even een deltree doet oid :P
Het is geel en staat in mijn ondertitel!
3DS friend code: 2191-7623-9035
pi_107405221
Je kan een macro een willekeurig bestand laten uitvoeren, dus ja niet echt lastig :)
Gebruik ik hier ook, maakt bij afsluiten van een master een kopie naar een Alleen-lezen map zodat de andere gebruikers niks kunnen verwijderen.
pi_107409577
quote:
7s.gif Op maandag 30 januari 2012 15:59 schreef Jesse_ het volgende:

[..]

Je kan vast wel een excel bestand koppelen aan een simpel batch filetje dat even een deltree doet oid :P
Ja ok, maar dat batchfiletje moet ik er dan wel bij leveren

en in die zip zit alleen de excel file

Nou goed, de file komt uit een goed hart, als jullie het niet vertrouwen zou ik het niet downloaden, simpel ;(

En geloof je echt dat ik mijn account op het spel zou zetten om iemand zijn harddisk te deleten?

Als iemand die de file wel heeft gedownload en getset heeft wil die hier dan aangeven dat er geen gekke dingen zijn gebeurd?

;( :'(
  maandag 30 januari 2012 @ 18:42:08 #25
28946 mirelia
Neehee ik ben geen vrouw!!
pi_107409914
Ik kreeg de meldingen op de site, niet op het bestand zelf.
Daar is niets mee aan de hand, excuses voor de verwarring
Shuffle up and deal!!!
pi_107410000
quote:
0s.gif Op maandag 30 januari 2012 18:42 schreef mirelia het volgende:
Ik kreeg de meldingen op de site, niet op het bestand zelf.
Daar is niets mee aan de hand, excuses voor de verwarring
aha.. ok, dank je

Heeft iemand een beter alternatief?

Ik heb goede verhalen gehoord over megaupload :')
pi_107455449
Als je een staaf-/kolomgrafiek hebt. Kun je dan instellen dat de ruimte tussen de staven kleiner wordt, of de staven breder, zodat er minder ruimte tussen zit?

edit: de kolommen/staven tegen elkaar aan zou helemaal mooi zijn...

[ Bericht 6% gewijzigd door elkravo op 31-01-2012 20:55:52 ]
  dinsdag 31 januari 2012 @ 21:12:09 #28
85514 ralfie
!Yvan eht nioj
pi_107456611
rechtsklikken op je kolommen -> gegevensreeks opmaken->ruimte tussen kolommen naar 0% schuiven
  vrijdag 3 februari 2012 @ 17:00:50 #29
1592 Puckzzz
Bitch please!
pi_107562644
Ik heb Excel 2010.
Taal geen idee.

Ik heb twee identieke tabbladen met als enig verschil dat ik in tabblad 2 zal werken. (maar de gegevens worden wel overgenomen in tab 1)
Daar komt in een kolom een tijdsnotatie te staan in decimalen. Dus voor 1 uur en een kwartier komt daar te staan 1.25. We ronden alles af naar kwartieren dus doen niet moeilijk met 5 minuutjes e.d.
Nu moet ik dus in diezelfde cel maar dan in tabblad1 dat decimale getal omzetten naar uren en minuten. daar moet dus komen te staan 1:15

Ik krijg het niet voor elkaar :')
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
pi_107562792
Hoe kan je de taal niet weten :')

Het is wel een vreemde notatie die je wilt. 1:15 is in de ogen van Excel kwart over een. Niet 1 uur dubbele punten het aantal minuten. Dat is wel wat lastiger.
pi_107562835
quote:
17s.gif Op vrijdag 3 februari 2012 17:00 schreef Puckzzz het volgende:
Ik heb Excel 2010.
Taal geen idee.

Ik heb twee identieke tabbladen met als enig verschil dat ik in tabblad 2 zal werken. (maar de gegevens worden wel overgenomen in tab 1)
Daar komt in een kolom een tijdsnotatie te staan in decimalen. Dus voor 1 uur en een kwartier komt daar te staan 1.25. We ronden alles af naar kwartieren dus doen niet moeilijk met 5 minuutjes e.d.
Nu moet ik dus in diezelfde cel maar dan in tabblad1 dat decimale getal omzetten naar uren en minuten. daar moet dus komen te staan 1:15

Ik krijg het niet voor elkaar :')
=1,25/24

opmaak tijd

[ Bericht 0% gewijzigd door #ANONIEM op 03-02-2012 17:08:14 ]
pi_107562933
Lol ok dat is best makkelijk.
Kritisch owned dit topic :'(
pi_107563002
quote:
0s.gif Op vrijdag 3 februari 2012 17:10 schreef DaFan het volgende:
Lol ok dat is best makkelijk.
Kritisch owned dit topic :'(
;) tob al met spreadsheets sinds quatro pro :P
pi_107565072
Ik heb een vraag over de functie subtotal (data>subtotal).

Om het voorbeeld te vereenvoudigen: dmv subtotal kun je bijvoorbeeld berekenen hoeveel omzet er is gemaakt met de verkoop van laptops (zie http://www.gratiscursus.be/excel_cursus/excelles12c.htm).
Nu wil ik deze informatie niet onder het product komt te staan (in de rij), maar dat er een aparte kolom komt met de totale verkoop. Dus voor elk product laptop, wil ik dat er in een nieuwe kolom telkens komt te staan wat de totale omzet is uit de verkoop van ALLE laptops. Aangezien er in mijn database honderden 'producten' staan, kan dit dus niet elke keer handmatig gelinkt worden.

[Dus stel dat de omzet op het gebied van LAPTOP 1mln is, wil ik in elke rij die over laptops gaan dat er in de nieuwe kolom staat dat de totale omzet 1 mln is, en dit zo bij vele andere producten).

Misschien een beetje moeilijk omschreven maargoed;)
Weet iemand hier het antwoord op?
pi_107567446
Tja...

Ik snap je niet helemaal, maar ik zit te denken aan een UDF (user defined function)

Maar dat kan komen doordat ik je niet helemaal snap en doordat ik vrij snel naar VBA grijp ;)

plaats dit in een module

1
2
3
4
5
6
7
8
9		Function SubT(Bereik As Variant, Term As String, TermKol as integer, OptelKol as integer)

For i = 1 To Bereik.Count
    If Term = Bereik(i, TermKol) Then
        SubT = SubT + Bereik(i, OptelKol)
    End If
Next

End Function

Typ in een cel in excel =subT( en druk op fx

Je kan nu het bereik selecteren, bijvoorbeeld $a$1 tot $b$18 waarin zowel de productnaam als de opbrengst staat

De Term is Laptop (kun je typen, of aanwijzen als bv $a$1)

De TermKol is in dit geval 1

De OptelKol is in dit geval 2

Als je bereik groter is (bv in kolom a staat laptop en in kolom e staat het bedrag dan is de optelkol 5, ze zijn altijd relatief, dus als het bereik van d naar e loopt is het weer kolom 1 en 2)

Wat de functie doet is in het bereik kijken of de term in de term kolom staat en zo ja telt hij het getal dat in de optelkolom staat bij SubT op

Hier een sheet met de functie erin

http://www.mediafire.com/?ctuzcusvyd2623u

[ Bericht 5% gewijzigd door #ANONIEM op 03-02-2012 19:43:05 ]
pi_107568243
Een ander idee is dat je een extra tabel maakt met hierin de totalen voor elk producttype:

laptops 1.000.000
PC 500.000
komkommers 3.000.000

en dan in de kolom die je wil maken via vertikaal zoeken de juiste subtotalen erbij zoeken

zie voorbeeld:

http://www.mediafire.com/?srq485z9jm4e1t9

[ Bericht 11% gewijzigd door #ANONIEM op 03-02-2012 19:59:29 ]
pi_107568769
Dank voor je uitgebreide reactie, ik ga er mee aan de slag!
pi_107569124
quote:
0s.gif Op vrijdag 3 februari 2012 20:07 schreef Sjaakbakfiets het volgende:
Dank voor je uitgebreide reactie, ik ga er mee aan de slag!
Mijn tweede suggestie is beter en sneller (UDF is traag) ;)

edit:
:') die hele tussentabel is helemaal niet nodig

=SOM.ALS($A$1:$B$19;A1;$B$1:$B$19)

[ Bericht 14% gewijzigd door #ANONIEM op 03-02-2012 20:18:16 ]
pi_107569817
Ik was inderdaad met de 2e bezig :) Ik laat je weten als het gelukt is!

Edit: gelukt! Een hele dag aangeplaard, en nu binnen 5 minuten geregeld. Wat kan excel toch makkelijk zijn als je weet hoe het werkt. Nogmaals bedankt!:D

[ Bericht 50% gewijzigd door Sjaakbakfiets op 03-02-2012 20:37:22 ]
pi_107570358
Mocht je een oplossing hebben voor mijn volgend probleem dan hoor ik het graag ;)

Ik heb 2 excelbestanden (respectievelijk 4000 en 8000 rijen), en in beide bestanden zit een kolom met codes. In totaal zijn ongeveer 3500 van deze codes hetzelfde. U raadt het al, deze 3500 codes (met bijbehorende informatie) moet ik filteren.
Weet jij/iemand hoe ik deze bestanden kan matchen?

Edit: grotendeels gelukt, dmv formule ALS(ISFOUT(VERT.ZOEKEN(A1;B:B;1;0));"";VERT.ZOEKEN(A1;B:B;1;0))

[ Bericht 10% gewijzigd door Sjaakbakfiets op 04-02-2012 00:45:47 ]
pi_107612328
quote:
0s.gif Op vrijdag 3 februari 2012 20:38 schreef Sjaakbakfiets het volgende:
Mocht je een oplossing hebben voor mijn volgend probleem dan hoor ik het graag ;)

Ik heb 2 excelbestanden (respectievelijk 4000 en 8000 rijen), en in beide bestanden zit een kolom met codes. In totaal zijn ongeveer 3500 van deze codes hetzelfde. U raadt het al, deze 3500 codes (met bijbehorende informatie) moet ik filteren.
Weet jij/iemand hoe ik deze bestanden kan matchen?

Edit: grotendeels gelukt, dmv formule ALS(ISFOUT(VERT.ZOEKEN(A1;B:B;1;0));"";VERT.ZOEKEN(A1;B:B;1;0))
Waarom niet helemaal dan?
pi_107631475
Stel ik heb een vrij lange Excel lijst/tabel. Hierin staat een kolom met categoriën, bijvoorbeeld A, B, C.
Iedere rij/object heeft dus een categorie A B of C gekregen, hierin zit geen volgorde

Nu wil ik graag dat er ondere iedere rij van categorie B een extra lege regel wordt toegevoegd.

Beperking: ik kan/mag de lijst NIET sorteren omdat ik dan nooit meer terugsorteren kan naar de huidige volgorde.

Kan dit makkelijk, zonder dat ik handmatig rijen 1-voor-1 moet toevoegen?
  zondag 5 februari 2012 @ 15:27:40 #43
62215 qu63
..de tijd drinkt..
pi_107631599
quote:
0s.gif Op zondag 5 februari 2012 15:24 schreef elkravo het volgende:
Stel ik heb een vrij lange Excel lijst/tabel. Hierin staat een kolom met categoriën, bijvoorbeeld A, B, C.
Iedere rij/object heeft dus een categorie A B of C gekregen, hierin zit geen volgorde

Nu wil ik graag dat er ondere iedere rij van categorie B een extra lege regel wordt toegevoegd.

Beperking: ik kan/mag de lijst NIET sorteren omdat ik dan nooit meer terugsorteren kan naar de huidige volgorde.

Kan dit makkelijk, zonder dat ik handmatig rijen 1-voor-1 moet toevoegen?
Macro/VBA

KritischeMassa zal zo wel langskomen om het uit te leggen :P
Of zoek uit hoe je t zelf kan doen, ik kan t namelijk ook (nog) niet goed (genoeg)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_107631754
quote:
0s.gif Op zondag 5 februari 2012 15:27 schreef qu63 het volgende:

[..]

Macro/VBA

KritischeMassa zal zo wel langskomen om het uit te leggen :P
Of zoek uit hoe je t zelf kan doen, ik kan t namelijk ook (nog) niet goed (genoeg)
Ik probeer zoveel mogelijk macro's VBA te vermijden omdat ik er geen verstand van heb. Liefst een simpel trucje. Het betreft een eenmalige verbouwing van een excel lijst waarbij ik onder bepaalde rijen van een categorie een extra regel moet toevoegen. En de lijst is 10.000 rijen...
pi_107632579
quote:
0s.gif Op zondag 5 februari 2012 15:30 schreef elkravo het volgende:

[..]

Ik probeer zoveel mogelijk macro's VBA te vermijden omdat ik er geen verstand van heb. Liefst een simpel trucje. Het betreft een eenmalige verbouwing van een excel lijst waarbij ik onder bepaalde rijen van een categorie een extra regel moet toevoegen. En de lijst is 10.000 rijen...
Ja ik zou wel VBA gebruiken

Maar ja

Het invoegen van regels is nu eenmaal niet mogelijk met een formule, of lastig.

Als je in VBA gaat klooien maak dan wel eerst een backup van de huidige situatie.

1
2
3
4
5
6
7
8
9
10
11
12		Sub InsertLines()
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

    For i = LastRow To 1 Step -1
        If ActiveSheet.Cells(i, 1) = "B" Then
            Rows(i + 1).Insert Shift:=xlDown
        End If
    Next
End Sub

Deze code in de betreffende sheet plakken (in het VBA scherm) en de macro draaien

Deze code gaat ervan uit dat de ABC in kolom A staat (activesheet.cells(i,1) = "B") de 1 in cells verwijzing slaat op kolom A dat kun je aanpassen

[ Bericht 3% gewijzigd door #ANONIEM op 05-02-2012 15:49:48 ]
pi_107633164
quote:
0s.gif Op zondag 5 februari 2012 15:24 schreef elkravo het volgende:

Beperking: ik kan/mag de lijst NIET sorteren omdat ik dan nooit meer terugsorteren kan naar de huidige volgorde.
Je kan altijd terug sorteren als je eerst een kolom maakt die gewoon telt van 1 tot einde
pi_107634052
quote:
0s.gif Op zondag 5 februari 2012 15:47 schreef KritischeMassa het volgende:

[..]

Ja ik zou wel VBA gebruiken

Maar ja

Het invoegen van regels is nu eenmaal niet mogelijk met een formule, of lastig.

Als je in VBA gaat klooien maak dan wel eerst een backup van de huidige situatie.
[ code verwijderd ]

Deze code in de betreffende sheet plakken (in het VBA scherm) en de macro draaien

Deze code gaat ervan uit dat de ABC in kolom A staat (activesheet.cells(i,1) = "B") de 1 in cells verwijzing slaat op kolom A dat kun je aanpassen
1 vraagje... in de code, waar staat de A voor in "LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ??
pi_107634171
quote:
0s.gif Op zondag 5 februari 2012 16:17 schreef elkravo het volgende:

[..]

1 vraagje... in de code, waar staat de A voor in "LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ??
Hij kijkt in kolom A wat de laatste regel is

Ik ben uitgegaan van kolom A

Je kan ook de lastrow opgeven als je die weet (bijvoorbeeld rij 32012)

Dan kan je volstaan met

1
2
3
4
5
6
7		Sub InsertLines()
    For i = 32012 To 1 Step -1
    If ActiveSheet.Cells(i, 1) = "B" Then
        Rows(i + 1).Insert Shift:=xlDown
    End If
    Next
End Sub
pi_107634503
quote:
0s.gif Op zondag 5 februari 2012 16:20 schreef KritischeMassa het volgende:

[..]

Hij kijkt in kolom A wat de laatste regel is

Ik ben uitgegaan van kolom A

Je kan ook de lastrow opgeven als je die weet (bijvoorbeeld rij 32012)

Dan kan je volstaan met
[ code verwijderd ]

Ok... dan snap ik 'm... ben geen VBA held ;-)... normaal als ik een rij toevoeg, duurt dat 3 seconden ivm formuleberekeningen... de macro runt nu... zal wel even duren ;-)... laat m'n comp gewoonjakkeren... Hopelijk kom ik straks terug met goed het resultaat op m'n scherm.
pi_107634573
quote:
0s.gif Op zondag 5 februari 2012 16:26 schreef elkravo het volgende:

[..]

Ok... dan snap ik 'm... ben geen VBA held ;-)... normaal als ik een rij toevoeg, duurt dat 3 seconden ivm formuleberekeningen... de macro runt nu... zal wel even duren ;-)... laat m'n comp gewoonjakkeren... Hopelijk kom ik straks terug met goed het resultaat op m'n scherm.
Ach had dat gezegd

dan had ik wat regels code toegevoegd om de berekeningen uit te zetten...

Je hebt wel een back up gemaakt eerst?
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[Excel] Het grote Excel vragen topic #30
Index

» digital corner

» software

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')