zoekveld in excel

[RianneK]

Hallo Allemaal,

Voor een overzicht van de voorraad van wol heb ik bijgevoegd document gemaakt.
Nu wil ik kunnen zoeken op een bepaalde term en dan een lijst krijgen van alle ingevoerde rijen waarin deze term voorkomt. (De andere gegevens worden tijdens de zoekopdracht verborgen). Het mag ook dat het zoeken en de resultaten op een andere sheet gebeurd.
Ik heb verschillende antwoorden hier gevonden, maar ik krijg het niet werkend in mijn document.

Bekijk bijlage voorraad.xlsx

Alvast bedankt voor jullie hulp

 

[edmoor]

Dat gaat toch perfect met de slicers? Wat wil je er anders aan hebben?

 

[RianneK]

Ik wil het graag ook kunnen typen en als het kan dat er bij een halve term al resultaten worden gegeven. Bijvoorbeeld bij "ros" zowel rose als rosa worden weergeven.

 

[edmoor]

Ah, ok. En als er dan 2 ingetikt wordt dat hij al met 2,5 komt? Dus het zoekveld moet werken over alle kolommen in de tabel?

 

[RianneK]

Dat bedoel ik. Maar niet alleen 2,5 bij 2,maar ook 2,3 2,5 2,7 etc Alles wat erop lijkt.
Het zoeken moet inderdaad over alle kolommen gaan.

 

[Leotaxi]

misschien is deze iets,
zoeken begint na de enter


mvg
Leo

 

[RianneK]

Super bedankt Leo, het is precies wat ik bedoelde.
Alleen werkt het wel in de desktop-versie, maar niet in de mobiele versie...
Ik zou graag beide hebben zodat er altijd toegang tot is. (sync met Dropbox of oneDrive)
Is dit mogelijk?
En zou je mij willen uitleggen hoe je het voor elkaar hebt gekregen? Ik zou het graag de volgende keer zelf kunnen doen.

 

[Leotaxi]

met deze code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b12")) Is Nothing Then

Application.ScreenUpdating = False
    'voor de nieuwe zoekopdracht van start gaat alle rijen terug zichtbaar zetten
    With Cells
        .EntireRow.Hidden = False
    End With

Dim item As String
item = Range("b12")
i = 0

' for x staat voor de rijen in voorbeeld eventueel aan te passen
For x = 15 To 22
    ' for c staat voor de kolommen in voorbeeld eventueel aan te passen
    For c = 2 To 10
    ' vanaf hier wordt kolom per kolom vergeleken of linker deel overeenkomt met item
    If Left(Cells(x, c), Len(item)) = item Then
        ' als er overeenkomst is wordt teller i met 1 verhoogd
        i = i + 1
    End If
    Next c
    ' als er geen overeenkomst is blijft teller op 0 en gaan we rij verbergen
    If i = 0 Then
        Range("A" & x).EntireRow.Hidden = True
    End If
' voor begin van nieuwe rij teller i terug op 0 zetten
i = 0
' naar volgende rij
Next x
End If
Application.ScreenUpdating = True
End Sub

voor mobiel gedeelte heb ik geen idee, laat ik even over aan de specialisten.

mvg
Leo

 

[RianneK]

Bedankt Leo!

Voor de de rest wacht ik af ofdat iemand een oplossing weet die zowel op desktop als mobiele versies werkt.

 

[Leotaxi]

nog niemand zie ik, misschien moet je eens aangeven op welk mobiel device
het moet werken, want die dropbox is niet meer dan een opslagmedium, zegt niets over het mobiel device

mvg

Leo

 

[edmoor]

Office op mobiele devices hebben een zeer minimale implementatie van VBA.
Daar zal de geboden oplossing niet gaan werken.

 

[Leotaxi]

@ Edmoor

voor androïd en ios besturingssystemen had ik al zo een vermoeden, maar hoe zit dat in feite
met de windows phones zoals Nokia Lumia ?

mvg

Leo

 

[edmoor]

Die ondersteunen nog niet een volledige VBA implementatie omdat de VBA compiler niet gereed is voor die platforms. Ik heb wel van Microsoft begrepen dat men er hard mee bezig is, ook voor Android.

 

[Leotaxi]

dan deze aanpassing maar voor de mobiele gebruikers, na de zoekterm te hebben ingegeven
even naar blad 2 gaan, daar gaan wel lege rijen tussen staan maar die kan je zo weghalen
met standaard filter van excel.
Formules op blad 2 staan tot rij 30 maar zijn zo door te trekken naar onder.


mvg

Leo