abonnement Unibet Coolblue Bitvavo
pi_83137500


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
[EXCEL] Het grote Excel vragen topic, #17
[Excel] Het grote Excel vragen topic #18
[Excel] Het grote Excel vragen topic #19
[Excel] Het grote Excel vragen topic #20
[Excel] Het grote Excel vragen topic #21

Nieuw topic? Haal de OP bij de wiki
pi_83137532
Open vraag:
quote:
Op dinsdag 22 juni 2010 10:29 schreef teamlead het volgende:
erm.. wat doe ik fout

in tabblad "verwerken" wil ik in cel D17 de waarde terugzien uit tabblad "bron" cel G2.
als ik gewoon zeg =bron!G2 , geeft excel (2007, Nl-versie) de formule als tekst weer.... en dus niet het resultaat

(celeigenschappen staan gelijk als in andere cellen waar deze simpele verwijzing wél werkt overigens)
pi_83139813
@teamlead: was het celformaat wel goed ingesteld (number of general) en alle beveiligingen (locked/hidden) opgeheven?

hier meer info:
http://www.oraxcel.com/cgi-bin/yabb2/YaBB.pl?num=1144238166
http://www.ozgrid.com/forum/showthread.php?t=22331
http://www.mrexcel.com/archive/Edit/10661.html
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_83140414
quote:
Op dinsdag 22 juni 2010 10:29 schreef teamlead het volgende:
erm.. wat doe ik fout

in tabblad "verwerken" wil ik in cel D17 de waarde terugzien uit tabblad "bron" cel G2.
als ik gewoon zeg =bron!G2 , geeft excel (2007, Nl-versie) de formule als tekst weer.... en dus niet het resultaat

(celeigenschappen staan gelijk als in andere cellen waar deze simpele verwijzing wél werkt overigens)
probeer eens: ='bron'!G2, dus met enkele aanhalingstekens om de tabbladnaam heen.
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
  dinsdag 22 juni 2010 @ 17:35:14 #5
62215 qu63
..de tijd drinkt..
pi_83153066
quote:
Op dinsdag 22 juni 2010 08:11 schreef DaFan het volgende:
qu ik krijg m alleen heel ietsje korter;
=ALS(4=SOM(--ISLEEG(A2:D2));0;1)
(Ctrl-Shift-Enter)
Maar das alleen voor A2:D2
Waarme de totale formule dus niet korter of overzichtelijker wordt
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 22 juni 2010 @ 17:36:03 #6
62215 qu63
..de tijd drinkt..
pi_83153109
quote:
Op dinsdag 22 juni 2010 10:29 schreef teamlead het volgende:
erm.. wat doe ik fout

in tabblad "verwerken" wil ik in cel D17 de waarde terugzien uit tabblad "bron" cel G2.
als ik gewoon zeg =bron!G2 , geeft excel (2007, Nl-versie) de formule als tekst weer.... en dus niet het resultaat

(celeigenschappen staan gelijk als in andere cellen waar deze simpele verwijzing wél werkt overigens)
Als je alleen de '=' tikt en daarna met je muis op tabllad bron klikt en dan G2 aanklikt, werkt het dan wel?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 22 juni 2010 @ 20:57:37 #7
100297 teamlead
Nu met Napoleon complex
pi_83162737
quote:
Op dinsdag 22 juni 2010 17:36 schreef qu63 het volgende:

[..]

Als je alleen de '=' tikt en daarna met je muis op tabllad bron klikt en dan G2 aanklikt, werkt het dan wel?
nope...

snap er geen hout van...dit is ongeveer het simpelste dat je in excel kunt doen en ik heb er nog nooit een seconde verder over nagedacht..
het enige dat ik nog niet gecheckt heb, is eventuele beveiliging van cellen. Zal ik morgen even doen..
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
  dinsdag 22 juni 2010 @ 21:10:30 #8
10213 Fe2O3
Ja das roest
pi_83163450
verander de naam eens van die sheet naar iets anders? Het kan zijn dat 'verwerken' ergens voor staat.
Dum de dum
  dinsdag 22 juni 2010 @ 21:13:47 #9
62215 qu63
..de tijd drinkt..
pi_83163636
quote:
Op dinsdag 22 juni 2010 21:10 schreef Fe2O3 het volgende:
verander de naam eens van die sheet naar iets anders? Het kan zijn dat 'verwerken' ergens voor staat.
Nee, dan zou je de sheet die naam al niet mogen geven. Probeer een sheet maar eenst 'Totaal'/'Total' te noemen..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83163785
tvp voor als ik weer een vraag heb
  dinsdag 22 juni 2010 @ 22:12:34 #11
100297 teamlead
Nu met Napoleon complex
pi_83167265
quote:
Op dinsdag 22 juni 2010 21:10 schreef Fe2O3 het volgende:
verander de naam eens van die sheet naar iets anders? Het kan zijn dat 'verwerken' ergens voor staat.
dan zou dat toch voor alle verwijzingen in die sheet moeten gelden lijkt me?
If you wish to be a success in the world, promise everything, deliver nothing.
Nothing is more difficult, and therefore more precious, than to be able to decide.
Victory belongs to the most persevering
  donderdag 24 juni 2010 @ 08:00:13 #12
249182 Holy_Goat
mhèèhèhè
pi_83229559
Weer eens een vraagje van mij

Ik heb voor een macro'tje een stukje loop dat alle rijen afloopt,
en het is daarvoor nodig dat er steeds per rij geselecteerd wordt.

Bijvoorbeeld:
for i = 1 to 60000
columnsi.entirecolumn.select
next i

anyway, je merkt dat als je application.screenupdating uitzet, dat ie echt 100x sneller gaat al.
Echter, de autosom, rechtsonderin, verandert wel nog steeds per selectie. Nu kan ik me voorstellen
dat dit ook de nodige processor kracht vergt. Hoe kan ik dit ook uitzetten? En liefst meer versnellingen
pi_83229603
Ik denk:
Application.Calculation = xlCalculationManual

<code>

Application.Calculation = xlCalculationAutomatic
  donderdag 24 juni 2010 @ 08:15:49 #14
249182 Holy_Goat
mhèèhèhè
pi_83229694
quote:
Op donderdag 24 juni 2010 08:05 schreef DaFan het volgende:
Ik denk:
Application.Calculation = xlCalculationManual

<code>

Application.Calculation = xlCalculationAutomatic
nope dat is puut voor de berekening van cellen onderling, niet autosum
  donderdag 24 juni 2010 @ 08:44:35 #15
62215 qu63
..de tijd drinkt..
pi_83230097
quote:
Op donderdag 24 juni 2010 08:15 schreef Holy_Goat het volgende:

[..]

nope dat is puut voor de berekening van cellen onderling, niet autosum
Je zou het automatisch updaten van de cellen uit kunnen zetten. Geen idee of dat ook met een macro te doen is..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83230169
en Application.EnableEvents = False dan?
  donderdag 24 juni 2010 @ 10:11:43 #17
249182 Holy_Goat
mhèèhèhè
pi_83232358
tried. nog steeds autosum. probeer maar eens, zet ze op false en selecteer met t andje wat wat cellen met waarden
  donderdag 24 juni 2010 @ 17:44:41 #18
249182 Holy_Goat
mhèèhèhè
pi_83251919
Nog een vraagje, leuker dit keer, andere is niet zo een grote issue, dit wel

ik heb 3 afbeeldingen, die ik graag als 'knop' wil laten werken. (bv om macro te starten)
Hoe doe ik dat? Stom, maar heb dit soort dingen nooit gedaan


(voorbeeld)
pi_83255463
Je voegt een normale button toe.
Onder de Properties staat 'Picture'. Daar kan je m aanpassen.

Ik heb wel moeite hier om de randen fatsoenlijk te krijgen. Maar zoals in voorbeeld kan je de knop zelf zwart maken.
  donderdag 24 juni 2010 @ 19:52:54 #20
85514 ralfie
!Yvan eht nioj
pi_83257347
quote:
Op donderdag 24 juni 2010 08:00 schreef Holy_Goat het volgende:
Weer eens een vraagje van mij

Ik heb voor een macro'tje een stukje loop dat alle rijen afloopt,
en het is daarvoor nodig dat er steeds per rij geselecteerd wordt.

Bijvoorbeeld:
for i = 1 to 60000
columnsi.entirecolumn.select
next i

anyway, je merkt dat als je application.screenupdating uitzet, dat ie echt 100x sneller gaat al.
Echter, de autosom, rechtsonderin, verandert wel nog steeds per selectie. Nu kan ik me voorstellen
dat dit ook de nodige processor kracht vergt. Hoe kan ik dit ook uitzetten? En liefst meer versnellingen
waarom moeten de rijen persé geselecteerd worden? Ik kan zelf geen enkele situatie daarvoor bedenken namelijk.
  donderdag 24 juni 2010 @ 19:54:38 #21
249182 Holy_Goat
mhèèhèhè
pi_83257425
just because (geeft mooi process effect voor de gene die er mee werkt).
Trust me, it matters
  donderdag 24 juni 2010 @ 20:37:52 #22
249182 Holy_Goat
mhèèhèhè
pi_83258999
Waarom werkt dit niet? (in een for loop)

ThisWorkbook.Sheets(5).Controls("CmdShow" & i).Visible = False

en dit wel?

userform1.Controls("CmdShow" & i).Visible = False

Dan hoeft dit niet meer zo stom...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sheets(5).CmdShow1.Visible = False
    Sheets(5).CmdShow2.Visible = False
    Sheets(5).CmdShow3.Visible = False
    Sheets(5).CmdShow4.Visible = False
    Sheets(5).CmdShow5.Visible = False
    Sheets(5).CmdShow6.Visible = False
    
    If LngHideAllOtherNumbers = 1 Then
        Sheets(5).CmdShow1.Visible = True
    ElseIf LngHideAllOtherNumbers = 2 Then
        Sheets(5).CmdShow2.Visible = True
    ElseIf LngHideAllOtherNumbers = 3 Then
        Sheets(5).CmdShow3.Visible = True
    ElseIf LngHideAllOtherNumbers = 4 Then
        Sheets(5).CmdShow4.Visible = True
    ElseIf LngHideAllOtherNumbers = 5 Then
        Sheets(5).CmdShow5.Visible = True
    ElseIf LngHideAllOtherNumbers = 6 Then
        Sheets(5).CmdShow6.Visible = True
    End If
pi_83271943
Omdat Controls op een sheet in de OLEObjects verzameling zit, niet in Controls.

1ThisWorkbook.Sheets(5).OLEObjects("CmdShow" & i).Visible = False
  vrijdag 25 juni 2010 @ 11:30:52 #24
249182 Holy_Goat
mhèèhèhè
pi_83278044
quote:
Op vrijdag 25 juni 2010 08:07 schreef DaFan het volgende:
Omdat Controls op een sheet in de OLEObjects verzameling zit, niet in Controls.
[ code verwijderd ]
thanks
hoe heb jij dat uitgevogeld?
pi_83281929
Beetje van mezelf, beetje van Google.
  vrijdag 25 juni 2010 @ 14:59:16 #26
73683 leolinedance
Voor Rood-Wit gezongen
pi_83287310
Vraagje:

Ik ben een (grote) spreadsheet aan het maken om makkelijk offerteprijzen te kunnen calculeren. Nu loop ik tegen een ALS limiet aan.

=ALS(D30="Filter 1000 + SV";"1000 mm";ALS(D30="Filter 1400 + SV";"1400 mm";ALS(D30="Filter 1800 + SV";"1800 mm")))

hier wil ik van maken:

=ALS(B32=0;"";ALS(D30="Filter 1000 + SV";"1000 mm";ALS(D30="Filter 1400 + SV";"1400 mm";ALS(D30="Filter 1800 + SV";"1800 mm"))))

Nu krijg ik de melding: De waarde die u heeft ingevoerd is ongeldig. Een gebruiker heeft de waarden beperkt die in deze cel kunnen worden ingevoerd.

Bij deze formule gaat het wel goed:

=ALS(B31=0;"";ALS(D30="Geen filter";"";ALS(D30="Filter 1000 + SV";"1000 mm";ALS(D30="Filter 1400 + SV";"1400 mm";ALS(D30="Filter 1800 + SV";"1800 mm")))))

Wat kan ik hieraan doen?

[ Bericht 14% gewijzigd door leolinedance op 25-06-2010 15:06:56 ]
  vrijdag 25 juni 2010 @ 15:09:06 #27
62215 qu63
..de tijd drinkt..
pi_83287727
Heb je beide formules in dezelfde cel ingevoerd? Dus beide in (bijvoorbeeld) A1?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83288782
VLOOKUP gebruiken.
Zes ALS-clausulen in elkaar is erg onpraktisch, onoverzichtelijk, niet dynamisch, niet makkelijk uitbreidbaar.
  vrijdag 25 juni 2010 @ 15:41:13 #29
73683 leolinedance
Voor Rood-Wit gezongen
pi_83289045
quote:
Op vrijdag 25 juni 2010 15:09 schreef qu63 het volgende:
Heb je beide formules in dezelfde cel ingevoerd? Dus beide in (bijvoorbeeld) A1?
nee
  vrijdag 25 juni 2010 @ 15:41:28 #30
73683 leolinedance
Voor Rood-Wit gezongen
pi_83289055
quote:
Op vrijdag 25 juni 2010 15:34 schreef DaFan het volgende:
VLOOKUP gebruiken.
Zes ALS-clausulen in elkaar is erg onpraktisch, onoverzichtelijk, niet dynamisch, niet makkelijk uitbreidbaar.
Ga ik even proberen!
  vrijdag 25 juni 2010 @ 15:50:31 #31
73683 leolinedance
Voor Rood-Wit gezongen
pi_83289440
In dit geval is het veel makkelijker om met ALS te werken. Beetje lastig uit te leggen, maar neem dat maar even van me aan. Gebruik Vertikaal zoeken wel in andere situaties.

Waarom kan ik nu niet meer dan 3x ALS gebruiken, en bij die andere formule wel 4x?
  vrijdag 25 juni 2010 @ 16:02:41 #32
62215 qu63
..de tijd drinkt..
pi_83290038
quote:
Op vrijdag 25 juni 2010 15:50 schreef leolinedance het volgende:
In dit geval is het veel makkelijker om met ALS te werken. Beetje lastig uit te leggen, maar neem dat maar even van me aan. Gebruik Vertikaal zoeken wel in andere situaties.

Waarom kan ik nu niet meer dan 3x ALS gebruiken, en bij die andere formule wel 4x?
Dat is het probleem niet, je kan zelfs tot 7 (tot Excel 2003, daarna kan je er nog meer nesten) geneste ALS-functies gebruiken.

Kijk eens naar je foutmelding:
Een gebruiker heeft de waarden beperkt die in deze cel kunnen worden ingevoerd.

Vandaar mijn vraag:
quote:
Op vrijdag 25 juni 2010 15:09 schreef qu63 het volgende:
Heb je beide formules in dezelfde cel ingevoerd? Dus beide in (bijvoorbeeld) A1?
Het zou namelijk heel goed kunnen dat je een validatie op je huidige cel hebt zitten waardoor je die foutmelding krijgt!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_83290368
Bij mij werkt het best...
Kijk eens in alle cellen waar je formule staat (of iig waar ie de foutmelding geeft), onder Data - Valideren.

Wellicht komt er nu meteen ONWAAR uit en dan mag het niet.
Maar het lijkt me met gegevensvalidatie te maken te hebben.
  vrijdag 25 juni 2010 @ 16:44:33 #34
73683 leolinedance
Voor Rood-Wit gezongen
pi_83292105
quote:
Op vrijdag 25 juni 2010 16:09 schreef DaFan het volgende:
Bij mij werkt het best...
Kijk eens in alle cellen waar je formule staat (of iig waar ie de foutmelding geeft), onder Data - Valideren.

Wellicht komt er nu meteen ONWAAR uit en dan mag het niet.
Maar het lijkt me met gegevensvalidatie te maken te hebben.
Heb alle formules gecontroleerd en kreeg inderdaad ook nog een keer ONWAAR te zien. Gek genoeg heb ik het nu wel aan de praat gekregen, maar weer niet precies waar het hem nu in zat. Normaalgesproken zou ik dat wel even uitzoeken maar aangezien het bijna weekend is geloof ik het wel
pi_83292724
quote:
Op donderdag 24 juni 2010 10:11 schreef Holy_Goat het volgende:
tried. nog steeds autosum. probeer maar eens, zet ze op false en selecteer met t andje wat wat cellen met waarden
Als je nu die autosum formule in het begin van je macro laat verwijderen en aan het eind van je macro zet je de formule er weer neer.
pi_83293684
quote:
Op vrijdag 25 juni 2010 16:57 schreef hendrik2009 het volgende:

[..]

Als je nu die autosum formule in het begin van je macro laat verwijderen en aan het eind van je macro zet je de formule er weer neer.
God wat simpel
  vrijdag 25 juni 2010 @ 18:45:17 #37
249182 Holy_Goat
mhèèhèhè
pi_83296857
quote:
Op vrijdag 25 juni 2010 16:57 schreef hendrik2009 het volgende:

[..]

Als je nu die autosum formule in het begin van je macro laat verwijderen en aan het eind van je macro zet je de formule er weer neer.
hoe doe je dat? Opneem functie laat me in de steek bij 2003 namelijk, en google wilde mijn vriend niet zijn
*had het idee al gehad, maar faalde *
pi_83300598
quote:
Op vrijdag 25 juni 2010 18:45 schreef Holy_Goat het volgende:

[..]

hoe doe je dat? Opneem functie laat me in de steek bij 2003 namelijk, en google wilde mijn vriend niet zijn
*had het idee al gehad, maar faalde *
Als de formule in cel A1 staat:
Range("A1").Clearcontents
macro
Range("A1") = "=Sum(A2:A10)"
  zaterdag 26 juni 2010 @ 07:51:35 #39
249182 Holy_Goat
mhèèhèhè
pi_83317556
quote:
Op vrijdag 25 juni 2010 20:18 schreef hendrik2009 het volgende:

[..]

Als de formule in cel A1 staat:
Range("A1").Clearcontents
macro
Range("A1") = "=Sum(A2:A10)"
ohhhhhh maar jij hebt het over iets anders!


Die bedoel ik
Met de hand weghalen en terugzetten is geen optie, omdat iemand anders er mee werkt
pi_83334291
quote:
Op zaterdag 26 juni 2010 07:51 schreef Holy_Goat het volgende:

[..]

ohhhhhh maar jij hebt het over iets anders!
[ afbeelding ]

Die bedoel ik
Met de hand weghalen en terugzetten is geen optie, omdat iemand anders er mee werkt
inderdaad, miscommunicatie.
maar is dit van invloed op de snelheid van een macro wanneer je screenupdate uit staat?
pi_83348059
Hallo,

Ik heb een formule in excel 2007 (EN) maar hij werkt niet zoals het moet.

Ik zal het eerst proberen uit te leggen wat het doet en wat het probleem is.

Wat ik probeer is met een HLOOKUP een variabele getal met =max() te zoeken en daarbij het juiste vaste gegeven.

de formule ziet er dan als volgt uit:
1=HLOOKUP(B6;A1:H2;2)


B6 = =MAX(A1:H1))
A1:H1 = =RANDBETWEEN(1;10) zijn random getallen
A2:H2 zijn vaste gegevens (b.v. abcdefgh)

Maar soms gebeurd het dat hij als uitkomst "h" heeft terwijl daar niet het hoogste getal bij staat.
F9 om opnieuw calculate uit te voeren.

Hoe komt dit? en is het op te lossen?

Zelf vermoed ik dat hij eerder klaar is het de HLOOKUP voordat hij zijn variabele lookup value heeft ontvangen omdat de random nog niet gereed is ofzo.

Alvast bedankt voor de hulp.
pi_83349765
quote:
Op zondag 27 juni 2010 02:51 schreef omaster het volgende:
Hallo,

Ik heb een formule in excel 2007 (EN) maar hij werkt niet zoals het moet.

Ik zal het eerst proberen uit te leggen wat het doet en wat het probleem is.

Wat ik probeer is met een HLOOKUP een variabele getal met =max() te zoeken en daarbij het juiste vaste gegeven.

de formule ziet er dan als volgt uit:
[ code verwijderd ]

B6 = =MAX(A1:H1))
A1:H1 = =RANDBETWEEN(1;10) zijn random getallen
A2:H2 zijn vaste gegevens (b.v. abcdefgh)

Maar soms gebeurd het dat hij als uitkomst "h" heeft terwijl daar niet het hoogste getal bij staat.
F9 om opnieuw calculate uit te voeren.

Hoe komt dit? en is het op te lossen?

Zelf vermoed ik dat hij eerder klaar is het de HLOOKUP voordat hij zijn variabele lookup value heeft ontvangen omdat de random nog niet gereed is ofzo.

Alvast bedankt voor de hulp.
Je mist nog een deel in je formule. Als je er
1=HLOOKUP(B6;A1:H2;2;0)
van maakt, werkt het wel zoals je zou willen. De laatste stap betekent of de beste overeenkomst moet worden gezocht of de eerst gevonden waarde.
  zondag 27 juni 2010 @ 12:41:49 #43
249182 Holy_Goat
mhèèhèhè
pi_83353964
semi-moeilijke verstopte filter vraag

Zie onder een voorbeeldje. De user kan stukken uit en inklappen door dubbelklikken op de categorie.
Via een userform is eenvoudig selecteren van selectie / filtercriteria te doen.
Vervolgens wil ik dat die selectiecriteria in de filter gestopt worden.

De headers van de autofilter zijn Identificatie headers voor de vba code, dit omdat ik geen zin heb
dat wanneer er een kolom bij komt ik alles moet gaan aanpassen. Maw: vba zoekt zelf de juiste kolom op
om de data in te gooien, en nu wil ik eigenlijk ook dat dus de juiste kolom gefilterd blijft worden.



Er zijn zo'n 28 kolommen waarop filteren van toepassing kan zijn.
Ze hebben dus allemaal een eigen naam.

Stel ik wil filteren op naam1, 4, 6 en 10 met bepaalde criteria, de rest moet alles weer blijven geven.
Hoe pas ik dit toe in de filter? Ben er op zich aardig in thuis, maar blijf vage foutmeldingen krijgen, zoals filter bestaat al, kan niet vinden, etc. Misschien doordat de header bar hidden is?

Even toevoeging: in vba refereert een criteria naar een fieldnummer in de al bestaande autofilter. Ik wil dus graag op naam.

Excel 2003.

[ Bericht 2% gewijzigd door Holy_Goat op 27-06-2010 13:15:05 ]
pi_83354077
quote:
Op zondag 27 juni 2010 09:57 schreef hendrik2009 het volgende:

[..]

Je mist nog een deel in je formule. Als je er
[ code verwijderd ]

van maakt, werkt het wel zoals je zou willen. De laatste stap betekent of de beste overeenkomst moet worden gezocht of de eerst gevonden waarde.
Hm, tja... had het eigelijk kunnen weten maar over het hoofd gezien...

Bedank iig.
  zondag 27 juni 2010 @ 13:59:59 #45
249182 Holy_Goat
mhèèhèhè
pi_83356334
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function FNReturnFilterIDColumn(ByVal Ws As Worksheet, ByVal StrHeaderID As String) As Long
    Dim Lcol As Long
    Lcol = 9
    
    'default nothing found
    FNReturnFilterIDColumn = 0
    
    Do While Ws.Cells(15, Lcol) <> ""
        DoEvents
        
        If UCase(Ws.Cells(15, Lcol)) = UCase(StrHeaderID) Then
            FNReturnFilterIDColumn = Lcol
            Exit Do
        End If
        
    Loop

End Function


Update, hoeft niet per sé op naam reference. De field nummers haal ik er zo ook makkelijk uit.
  zondag 27 juni 2010 @ 14:42:18 #46
249182 Holy_Goat
mhèèhèhè
pi_83357959
... issue solved....

vraag ik me nog af, kan het wel op naam direct, ipv field nummer?
pi_83367062
Een simpel probleem, ik kan alleen het juist knopje niet vinden! Ik heb een staafgrafiek gemaakt maar de gegevens op de Y-as wil ik precies anders om gesorteerd hebben.

Nu is het zo:

8
7
6
5
4
3
2
1

Maar ik wil / moet het zo hebben

1
2
3
4
5
6
7
8

Hoe doe ik dat?
  maandag 28 juni 2010 @ 11:26:00 #48
249182 Holy_Goat
mhèèhèhè
pi_83392425
Kan dit niet efficienter? Heb 20 comboboxen, die min of meer hetzelfde doen,
behalve dan dat ze moeten doorgeven welke combobox ze zijn.
Zie code hieronder. Hoop niet dat dit 20 procedures vergt :S

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CboFilterType5_Change()
    If CboFilterType5.ListIndex = -1 Then
        Exit Sub
    Else
        Call FnFiltertypeChanged(5)
    End If
End Sub

Private Sub CboFilterType4_Change()
    If CboFilterType4.ListIndex = -1 Then
        Exit Sub
    Else
        Call FnFiltertypeChanged(4)
    End If
End Sub
pi_83393343
Je kan toch 20x Call doen (van een anedre procedure).
En dan in die Procedure afvangen wat hun naam is (laatste karakter) en dat in de FnFiltertypeChanged() zetten.
  maandag 28 juni 2010 @ 12:22:02 #50
249182 Holy_Goat
mhèèhèhè
pi_83394735
quote:
Op maandag 28 juni 2010 11:46 schreef DaFan het volgende:
Je kan toch 20x Call doen (van een anedre procedure).
En dan in die Procedure afvangen wat hun naam is (laatste karakter) en dat in de FnFiltertypeChanged() zetten.
afvangen wat hun naam is vind ik wel interessant hoe doe je dat?
in ieder geval is 20x call minder werk dan 20x hele procedure...
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')