Wijzigen vba code

[JosEindhoven]

Hallo

De huidige vba code in het userform1 zoekt alleen in de eerste kolom (jaar). Is er mogelijk iemand die de code kan aanpassen zodat hij zoekt in alle 5 de kolommen. Het formulier is vroeger eens gemaakt door gast0660 volgens mij.

 

[gast0660]

Zo?

 

[JosEindhoven]

Helemaal goed Philiep

Bedankt

 

[JosEindhoven]

Hallo Philiep

Ik was toch te snel met mijn reactie.
Als je op de clear button drukt verdwijnt inderdaad het gezochte resultaat. Echter als ik eenmaal op 1 van de resultaten gedrukt heb komen de resterende gegevens in de velden Jaar,Maand,Datum,Dvd inhoud en Dvd nummer. Deze velden worden echter niet leeg gemaakt door de clear button

 

[VenA]

Even de listcolumns aan elkaar plakken en zoeken maar.

If InStr(UCase(LB_01.List(i) & LB_01.List(i, 1) & LB_01.List(i, 2) & LB_01.List(i, 3) & LB_01.List(i, 4)), UCase(sFind)) > 0 Then

Dezelfde vraag met een andere oplossing staat hier http://www.helpmij.nl/forum/showthread.php/926501-Zoeken-binnen-Listbox

Edit wel obv het bestandje in #1

 

[JosEindhoven]

Hallo VenA

Deze had ik ook al gevonden, maar het gaat niet meer om het zoeken maar om het leegmaken van gezochte resultaten

 

[VenA]

Hoe en wanneer moet er wat leeg gemaakt worden en met welk doel? Je wil zoeken in de complete tabel. Dan vindt je iets wat in de Listbox het meest passend is en dan moet er iets leeggemaakt worden? Laat het maar even in een nieuw bestand zien met hoever je ermee bent.

 

[HSV]

T_01 = ""

De rest is nu kinderspel.

 

[gast0660]

Beter?

 

[HSV]

Je werpt alles in de schoot, zo leert Ts er nog niets van.

Nb. Niet het bestand ingezien, maar er vanuit gaande.

 

[JosEindhoven]

Helemaal goed Philiep

Bedankt

@HSV niet zomaar ergens vanuit gaan !

 

[HSV]

"Zo beter", ga ik er vanuit dat jij niets meer hoeft te doen en er dan ook niets van leert.

 

[JosEindhoven]

Ga daar maar niet van uit. Ik moet nog een hoop doen en ik leer er heel veel van.

Wat mij betreft: Einde discussie