Pagina 2 van de 3 EersteEerste 123 LaatsteLaatste
Resultaten 11 tot 20 van de 28

Onderwerp: Zoekfunctie excel

  1. #11
    bsalv's Avatar
    bsalv is offline Giga Forum Guru
    Geregistreerd
    Mar 2008
    Locatie
    Bachten de kupe, W-Vl, Belgie
    Berichten
    10.048

    Standaard

    er staan 2 bereiken in deze code (in rode kleur)
    * rGewensteFilters is nu range("A7:F7"), dus hij zal nu over 6 kolommen kijken of er iets te filteren valt, naar de kleur van je gegevens zou dit misschien beter range ("A7:H7") of 8 kolommen geweest zijn ???
    * rFilter is nu range("A9") en is de cel helemaal links boven in je gegevens en is je kolomhoofd van de 1e kolom. Excel kiest nu netjes het geheel via rFilter.CurrentRegion een paar regels verder naar beneden.

    de help-file zegt over CurrentRegion het volgende :
    CurrentRegion, eigenschap
    Zie ookIs van toepassing op Voorbeeld Specificaties
    Deze eigenschap geeft een Range-object als resultaat dat het huidige gebied voorstelt. Het huidige gebied is een bereik dat wordt begrensd door een combinatie van lege rijen en lege kolommen. Alleen-lezen.

    Dus zal hij naar alle kanten kijken om een lege kolom of rij te vinden om zo je gegevens netjes te kunnen aflijnen :
    * naar links : kan niet meer want we staan al in de 1e kolom
    * naar boven mag hij niet gaan, dus moet die rij 8 zeker leeg blijven !!!!
    * naar rechts : als je maakt dat alle kolommen binnen je gegevens netjes een naam krijgen, dan heb je zeker ook alle kolommen mee. Kiest hij het aantal kolommen te ruim, dan kan dat hier eigenlijk geen kwaad.
    * naar beneden : daar zoekt hij tot de eerste lege rij gegevens. Dus als je gegevens niet aaneensluitend ingevoerd worden, dan zal hij enkel het eerste blok aaneengesloten gegevens filteren en niet het geheel. Pas dus op met lege regels tussen je gegevens !


    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    
      Dim rGewensteFilters As Range, rFilter As Range, c As Range
      Dim i As Integer, iKolom As Integer
      Set rGewensteFilters = Range("A7:F7")                    'dit zijn de cellen waarmee je bepaalde kolommen wil filteren
      Set rFilter = Range("A9")                                'dit is de 1e cel van je gegevens, dus linksboven
      'let op 1 : ik wil minstens 1 lege rij tussen beide bereiken ivm. CurrentRegion die straks gebruikt wordt
      'let op 2 : helemaal lege kolommen in je gegevensbereik zijn gevaarlijk om vast te lopen
    
      If Intersect(Target, rGewensteFilters) Is Nothing Then Exit Sub  'heb je net iets veranderd in je gewenste filtervelden ? zoniet stop hier
      iKolom = rGewensteFilters.Columns.Count                  'uit hoeveel velden bestaat je filter ?
      ActiveSheet.AutoFilterMode = False                       'even de ganse filter terug uit zetten
      With rFilter.CurrentRegion                               'dit is ons gegevensbereik
        For i = 1 To iKolom                                    ' voor iedere kolom in je gegevens
          If Not IsEmpty(rFilter.Offset(-2, i - 1)) Then       'wil je iets filteren in deze kolom ?
            .AutoFilter Field:=i, Criteria1:="=" & rFilter.Offset(-2, i - 1).Value & "*" 'filter die waarden die beginnen met je opgegeven waarde
          End If
        Next
      End With
    End Sub
    ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ

  2. # ADS
    Geregistreerd
    Always
    Locatie
    Advertising world
    Berichten
    Many
     
  3. #12
    willemvisser is offline Junior Member
    Geregistreerd
    Jun 2009
    Berichten
    16

    Standaard Excel zoekfunctie

    Bsalv, alles is gelukt. En dat openklappen dat zij dan maar zo.

    Maar nog 1 vraagje, nu wil ik het werkblad beveiligen, zodat ze niet perongeluk gegevens gaan veranderen..

    Heb even gegoogled en vond iets over Userinterfaceonly, maar onderstaande heb ik even gekopieerd, maar dat werkt niet zo goed. Wat mankeert er aan onderstaand scipt, en/of heb je nog andere sugesties?

    Private Sub Workbook_Open()
    Blad1.Protect Password:="wachtwoord", _
    UserInterFaceOnly:=True
    End Sub

    Met vriendelijke groet, Willem

  4. #13
    bsalv's Avatar
    bsalv is offline Giga Forum Guru
    Geregistreerd
    Mar 2008
    Locatie
    Bachten de kupe, W-Vl, Belgie
    Berichten
    10.048

    Standaard

    je kan niet meer filteren waarschijnlijk, dus moet je dat specifieren bij je protectcommando
    Code:
    Blad1.Protect Password:="wachtwoord", UserInterFaceOnly:=True, AllowFiltering:=True
    ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ

  5. #14
    willemvisser is offline Junior Member
    Geregistreerd
    Jun 2009
    Berichten
    16

    Standaard excel beveiliging

    Bedankt voor je script. Raar genoeg werkt het niet.

    Ben opzoek naar een script zodat ze alleen in het celbereik: H6:P2000 kunnen wijzigen, en macro's kunnen uitvoeren, waarmee alleen gefiltreert wordt.

    Kun je het ook zo maken dat er alleen door 1 computer ingewerkt kan worden, of is dat juist die userinterface ?

  6. #15
    bsalv's Avatar
    bsalv is offline Giga Forum Guru
    Geregistreerd
    Mar 2008
    Locatie
    Bachten de kupe, W-Vl, Belgie
    Berichten
    10.048

    Standaard

    heb wat gewijzigd in de code
    1. vooraf kijkt hij in de code of je op de goede PC bezig bent, anders wil hij niet filteren. Daarvoor heb ik je een macro "RaRa" bijgegeven die je 3 mogelijkheden geeft om je computer te definieren. Afhankelijk van welke je wilt gebruiken moet je dan maar aanpassen in de functie computernaam. Geeft deze als resultaat FALSE, dan wordt er niets uitgevoerd.
    2. Je bereik heb ik enkele kolommen verschoven om zo de kolommen H:P te kunnen gebruiken. De cellen H6:P6 zijn voor de beveiliging niet langer geblokkeerd.
    3. in de macro zelf haal ik tijdelijk de beveiliging eraf en zet ze daarna weer op.

    Ik hoop dat dit je ongeveer zal tevreden stellen ...
    Bijgevoegde Bestanden Bijgevoegde Bestanden
    ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ

  7. #16
    willemvisser is offline Junior Member
    Geregistreerd
    Jun 2009
    Berichten
    16

    Standaard Gelukt

    Bsalv,

    Bedankt. Alles is gelukt. Heb je voor die kennis cursussen gedaan, of door zelf vaak met excel te werken?

  8. #17
    bsalv's Avatar
    bsalv is offline Giga Forum Guru
    Geregistreerd
    Mar 2008
    Locatie
    Bachten de kupe, W-Vl, Belgie
    Berichten
    10.048

    Standaard

    Code:
    Ervaring is wat we opdoen als we de gebruiksaanwijzing niet gelezen hebben.
    Dat is de lijfspreuk van Cobbe en dat is ook zo een beetje hoe ik aan mijn kennis ben gekomen, veel proberen en veel keer met je neus tegen de muur lopen

    Anders kijk eens bij gratiscursus.nl
    ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ

  9. #18
    willemvisser is offline Junior Member
    Geregistreerd
    Jun 2009
    Berichten
    16

    Standaard

    Bsalv,

    Zoekfunctie werkt super. Hartelijk dank hiervoor. Alleen heb ik nu weer 2 andere 'probleempjes'

    Probleem 1:
    Heb de zoekfunctie ook in een lijst met allerlei menu's gemaakt, alleen dan zijn de ingrediŽnten per menu verborgen dmv de sorteerfunctie in excel.
    Maar als je dan gaat zoeken, klapt hij de hele lijst ook open, en dit is ontzettend verwarrend omdat er zo'n kleine 400 menu's instaan. Hoe kan ik dit voorkomen.

    Probleem 2:
    Verder heb ik hieraan ook een ingrediŽntenlijst gekoppeld. Bijvoorbeeld: als ik een aantal menu's met zout heb, heb ik die alsvolgt bij elkaar laten optellen: CEL1+CEL2+CEL3. Maar omdat er zoveel menus zijn, komt het voor dat de formule te lang wordt. Hoe kan ik dit verhelpen?

    Als bijlage heb ik ff het bestand met 1 menu, als voorbeeld.
    Bijgevoegde Bestanden Bijgevoegde Bestanden

  10. #19
    bsalv's Avatar
    bsalv is offline Giga Forum Guru
    Geregistreerd
    Mar 2008
    Locatie
    Bachten de kupe, W-Vl, Belgie
    Berichten
    10.048

    Standaard

    probleem 2 : de cel D2 wordt
    Code:
    =SOM.ALS(MENULIJST!$C$5:$C$200;INGRDIňNTENLIJST!C2;MENULIJST!$E$5:$E$200)
    waarbij die 200 de laatste rij met gegevens is in menulijst. Let wel goed op : dit is een formule die door de computer nogal precies uitgevoerd wordt, dus zet anders eens een extra spatie tussen soep en gebonden of verwijder een spatie uit "Soeppoeder vermicelliesoep gebonden" en je krijgt niet het gewenste resultaat. Dus de tekst in beide werkbladen moet tot op de laatste details gelijk zijn !!!!
    ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ

  11. #20
    bsalv's Avatar
    bsalv is offline Giga Forum Guru
    Geregistreerd
    Mar 2008
    Locatie
    Bachten de kupe, W-Vl, Belgie
    Berichten
    10.048

    Standaard

    probleem 1 ; ik veronderstel dat de vraag is om enkel die items te tonen van niveau 1, of moet dat ook variabel te kiezen zijn ?

    Code:
    Private Sub TextBox1_Change()
    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    If Len(TextBox1.Value) = 0 Then
        Sheets(1).AutoFilterMode = False
    Else
        If OptionButton1.Value = False Then
            Sheets("MENULIJST").Range("B4:B20").AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Value & "*"
            ActiveSheet.Outline.ShowLevels RowLevels:=1
            ActiveSheet.Protect
        Else: TextBox1.Value = "ERROR!"
        
        End If
    End If
    Application.ScreenUpdating = True
    End Sub
    ʎɐqǝ uo pɹɐoqʎǝʞ ɐ ʎnq ı ǝɯıʇ ʇsɐן ǝɥʇ sı sıɥʇ

Pagina 2 van de 3 EersteEerste 123 LaatsteLaatste

Gelijkwaardige Onderwerpen

  1. Zoekfunctie in excel maken
    Door marco_l in forum Afgehandelde vragen
    Reacties: 7
    Laatste Bericht: 17-03-10, 08:41
  2. Zoekfunctie plaatsen in excel sheet
    Door masterbicky in forum Afgehandelde vragen
    Reacties: 4
    Laatste Bericht: 26-08-08, 23:00
  3. zoekfunctie excel
    Door nickkappen in forum Afgehandelde vragen
    Reacties: 2
    Laatste Bericht: 06-03-08, 09:16
  4. Knop met zoekfunctie in excel
    Door frankw in forum Afgehandelde vragen
    Reacties: 4
    Laatste Bericht: 11-02-08, 18:34
  5. zoekfunctie maken in excel tabel
    Door reneclarisse in forum Afgehandelde vragen
    Reacties: 21
    Laatste Bericht: 25-01-08, 12:10

Forum Rechten

  • Je mag geen nieuwe onderwerpen plaatsen
  • Je mag geen reacties plaatsen
  • Je mag geen bijlagen toevoegen
  • Je mag jouw berichten niet wijzigen
  •