1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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 |
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.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 sorry ben totaal niet in thuis hierin vandaar dat ik (nog) niet echt mee kan denken .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
Top, het werktquote: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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 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 |
Post je formules eens?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
1 |
1 |
1 |
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...quote:
Ja.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.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |