abonnement bol.com Unibet Coolblue
pi_82641098
RegelS

Zoiets (uit mn hoofd):
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Application.ScreenUpdating = False
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.AutoFilterMode = False
ElseIf Len(TextBox1.Value) <> 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.Range("$G$17:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", 
VisibleDropDown:=False
ElseIf  Len(TextBox2.Value) <> 0 AND Len(TextBox1.Value) = 0 Then
ActiveSheet.Range("$G$17:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox2.Value & "*",
Else
 hier je code voor beide filters, weet syntax even niet
End If

Application.ScreenUpdating = True
End Sub

De code voor beide filters kan je opzoeken door een macro op te noemen en dubbel filter toe te passen.

Succes.
pi_82644041
Bedankt voor je hulp, maar als ik nu iets invoer , en het vervolgens weer verwijder gaat hij niet meer terug naar het overzicht maar blijft het filter actief.
&lt;&gt;
pi_82650468
quote:
Op donderdag 10 juni 2010 17:23 schreef DaFan het volgende:

[..]

Lekker kut
Ik weet het antwoord ook niet namelijk.

Heb je gekeken op MrExcel of niet?
Ja, beperking van excel, enige optie is veel meer meetpunten, maarja ik kon moeilijk met duizend zeven gaan werken. Het ligt eerder aan die prof dan aan excel hoor, hij vraagt veel te veel. Van alle verslagen, 3 per groep bij iets van 10 groepen waren er geen cijfers boven de 6. Dat zegt toch wel iets. Gewoon komende dinsdag nu minimaal een 7,5 halen om gemiddeld een 6 te komen staan. Het is gewoon niet eerlijk dat je afgerekend wordt op de beperkingen van Excel.

Maar nu de oplossing voor wie tegen hetzelfde aanloopt en hier niet omheen kan (let op, veel werk)

Je maakt opnieuw een grafiek, met je meetpunten.
Als je de lijn vloeiend maakt zie je dus dat ie boven de 100% uit komt
Je maakt in je tabel een 2e rij
En nu doe je het voor elke halve procent over het stuk waar het boven de 100% komt en er een 15% voor ofzo.
Nu als je een formule hebt, en ik had er een met 6 variabele van formaatje slik reken je de waarde uit voor elk van die halve procent.
Van deze lijn maak je wel een vloeiende kromme, de andere waardes laat je als knopen staan.

Heb dat achteraf geprobeerd voor deze grafiek en was 4 uur bezig met dat "cosmetische" foutje op deze manier.
pi_82650678
Swindler; een beetje meedenken kan geen kwaad
Je had in je code:
ActiveSheet.AutoFilterMode = False

Maar die heb ik nu per ongeluk onder een If gezet.
Verander;
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.AutoFilterMode = False

in

ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
pi_82652967
quote:
Op vrijdag 11 juni 2010 08:08 schreef DaFan het volgende:
Swindler; een beetje meedenken kan geen kwaad
Je had in je code:
ActiveSheet.AutoFilterMode = False

Maar die heb ik nu per ongeluk onder een If gezet.
Verander;
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
ActiveSheet.AutoFilterMode = False

in

ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 AND Len(TextBox2.Value) = 0 Then
Ja sorry ben totaal niet in thuis hierin vandaar dat ik (nog) niet echt mee kan denken .
&lt;&gt;
  vrijdag 11 juni 2010 @ 12:34:36 #231
48487 Martijn85
XBL: NL NoName
pi_82660008
quote:
Op donderdag 10 juni 2010 15:59 schreef Deetch het volgende:

[..]

daarvoor kun je de indirect functie gebruiken. Met indirect kun je de tekst van de celverwijzing in een andere cel hebben staan.

in sheet1 cel A2 zet je de tekst "sheet2" in cel B1 zet je de celverwijzing waar je naar verwijst (bijv. "A3")

als je nu in cel B2 de waarde uit sheet2 cel A3 wilt halen typ je daar:

=indirect(A2&"!"&B1) en klaar ben je.
Top, het werkt

Alleen jammer dat ie het niet doet als er spaties in de naam van de sheet staan, maar daar kan ik wel omheen werken.
Rozen verwelken, schepen vergaan. Daar heb je Bassie.......En Adriaan!!!!
pi_82662082
Blad 2;
=INDIRECT('Blad 2'!A1)

Werkt prima!
Apostrof - bladnaam - apostrof - uitroepteken - celnaam
pi_82664776
hmm het wil me niet echt lukken

Heb nu deze code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub TextBox1_Change()

Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 Then
ElseIf Len(TextBox1.Value) <> 0 And Len(TextBox2.Value) = 0 Then
ActiveSheet.Range("$F$21:$F$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Private Sub TextBox2_Change()
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If Len(TextBox1.Value) = 0 And Len(TextBox2.Value) = 0 Then
ElseIf Len(TextBox2.Value) <> 0 And Len(TextBox1.Value) = 0 Then
ActiveSheet.Range("$G$21:$G$1337").AutoFilter field:=1, Criteria1:="=*" & TextBox1.Value & "*", VisibleDropDown:=False
Application.ScreenUpdating = True
End If
End Sub


Als ik nu in textbox 2 iets invoer , laat hij automatisch alle records weer zien

Iemand trouwens een tip voor een goed basisboek over visual basic? (nederland of engels)
&lt;&gt;
pi_82814325
Ik heb een probleempje...
Ik heb een ingewikkeld uitziende LOOKUP functie voor 3 cellen (horizontaal)
echter doet hij het alleen voor de 1e en de 3e cel..? Bij de tweede cel geeft hij een N/A. Google leert mij dat het waarschijnlijk een Format Cell probleem is, maar daar ligt het niet aan.
Zometeen komt er een pic
pi_82814670


Wat ie moet doen:
Van de cellen N-R de laagste prijs selecteren. DIt doet ie overal goed, zie kolom L.
Daarna moet hij de bijbehorende leverancier bij die laagste prijs zoeken (kolom K). Dit doet hij echter alleen bij de 1e en de 3e leverancier. Formule is hetzelfde (gewoon doorgetrokken) en celformat is ook gelijk
  dinsdag 15 juni 2010 @ 03:36:39 #236
62215 qu63
..de tijd drinkt..
pi_82820248
quote:
Op maandag 14 juni 2010 23:25 schreef Daantke het volgende:
[ afbeelding ]

Wat ie moet doen:
Van de cellen N-R de laagste prijs selecteren. DIt doet ie overal goed, zie kolom L.
Daarna moet hij de bijbehorende leverancier bij die laagste prijs zoeken (kolom K). Dit doet hij echter alleen bij de 1e en de 3e leverancier. Formule is hetzelfde (gewoon doorgetrokken) en celformat is ook gelijk
Post je formules eens?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_82821142
Daantke welke formules gebruik je? Ik heb het idee dat je het te lastig doet...

Ik heb in L:
=MIN(N3:R3)

In K:
=INDEX($N$1:$R$1;VERGELIJKEN(L3;N3:R3;0))

VERGELIJKEN = MATCH in Engels.

Waar rij 3 jouw 'B' is (als uitkomst).
pi_82821291
1=IF(COUNTIF(N2:R2;"")=4;LOOKUP(SMALL(N2:R2;1);N2:R2;N$1:R$1);IF(SMALL(N2:R2;1)=SMALL(N2:R2;2);"meerdere";LOOKUP(SMALL(N2:R2;1);N2:R2;N$1:R$1)))

Wazig ding, zoals ik al zei
Excel kwam namelijk met een foutmelding als er maar 1 leverancier was die het product leverde, maar de code van DaFan doet dat niet.
Alleen moet ik daar dan nog een functie inbouwen die 'meerdere' zegt als er 2 leveranciers met de laagste prijs zijn.
Bedankt tot zo ver
pi_82821348
Volgens mij doet ie het nu goed
1=IF(SMALL(N3:R3;1)=SMALL(N3:R3;2);"meerdere";INDEX($N$1:$R$1;MATCH(SMALL(N3:R3;1);N3:R3;0)))

!

-edit-
oh nee, nu geeft hij weer een foutmelding als er maar 1 prijs staat, omdat hij de 1 na laagste prijs niet kan vinden
pi_82821805
Tjee wat onhandig.

=IF(SMALL(N3:R3;2);IF(SMALL(N3:R3;1)=SMALL(N3:R3;2);"meerdere";INDEX($N$1:$R$1;MATCH(SMALL(N3:R3;1);N3:R3;0)));INDEX($N$1:$R$1;MATCH(SMALL(N3:R3;1);N3:R3;0)))

Denk ik.
pi_82821911
Werkt ook niet... denk dat er aan het begin nog iets bij moet met exist of null ofzo
pi_82822057
Ja deze was uit mn hoofd.
Je moet testen of SMALL(N3:R3;2) bestaat in een IF.
Succes
pi_82822155
=IF(ISNA(SMALL(V3:Z3;2))=FALSE;

Dat lost op het op maar nu zegt het geen meerdere meer
pi_82822810
Dan doe je iets niet goed met je haakjes/argumenten.
pi_82823256
Maar wat :{
1=IF(ISNA(SMALL(V4:Z4;2));IF(L4=SMALL(V4:Z4;2);"meerdere";INDEX($V$1:$Z$1;MATCH(L4;V4:Z4;0)));INDEX($V$1:$Z$1;MATCH(L4;V4:Z4;0)))
  dinsdag 15 juni 2010 @ 09:58:55 #246
62215 qu63
..de tijd drinkt..
pi_82823327
quote:
Op dinsdag 15 juni 2010 09:56 schreef Daantke het volgende:
Maar wat
[ code verwijderd ]
Als ( ) ik 't nu goed zie kijk je eerst of er iets "#N/A" is, als dat zo is ga je verder. Volgens mij loopt 't daar al fout...
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_82823369
ISNA moet FALSE zijn, niet TRUE
pi_82823550
Ik heb er nu twee onder elkaar, met dezelfde functie, alleen the 'then' en 'else' omgedraaid.
En zowel met isblank als isna geeft de ene geen 'meerdere' meer aan bij 2 dezelfde prijzen en geeft de andere een #NUM als er maar 1 prijs gegeven is.
pi_82824356
Is het eigenlijk mogelijk om bepaalde cellen te blokkeren zeg maar. Dat daar niet in gewijzigd kan worden?

Ik heb excel 2003 NL.
  dinsdag 15 juni 2010 @ 10:33:01 #250
62215 qu63
..de tijd drinkt..
pi_82824411
quote:
Op dinsdag 15 juni 2010 10:31 schreef Stansfield het volgende:
Is het eigenlijk mogelijk om bepaalde cellen te blokkeren zeg maar. Dat daar niet in gewijzigd kan worden?

Ik heb excel 2003 NL.
Ja.

Moet je wel je werkblad beveiligen met een password.

Je kan het ook doen dmv de validatie optie..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
abonnement bol.com Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')