OMS upgrade

[rdebode]

blad 1
Ik zoek in A1 naar een deel van een woord, als dat gevonden is moet in cel A2 dat wordt worden gezet en in cel A3 moet dan een code komen te staan.

blad 2
Hierin staan in kolom A de woorden waaruit moet worden gezocht en in kolom B de codes.

Ik heb geprobeerd met horizontaal zoeken maar dat wil mij niet lukken en met vind.spec toch ook al niet.

Iemand een idee waarmee ik mijn lijst kan bewerken?

Gr Richard

 

[Haije]

Richard,

om te beginnen:"welkom op Helpmij.nl!"

Het is een goede gewoonte om een vraag te illustreren a.d.h.v. een Excel (voorbeeld)bestandje zonder "gevoelige" info....

 

[Cobbe]

Lees uw vraag nog eens langzaam en kom dan tot de vaststelling dat dat abacadabra is.

Post eens een vbbestandje.

 

[rdebode]

Hoe kan ik een bestand toevoegen?

 

[Haije]

door een bericht te maken in mode "geavanceerd". Daarin klikken op het paperclipje

 

[rdebode]

Volgens mij heb ik het gevonden.

 

[Haije]

het is je inderdaad gelukt om een bijlage te posten.
Kun je nu je vraag nader specificeren op basis van die bijlage?

 

[rdebode]

Ik ben ons artikelen bestand aan het opwaarderen en probeer uit de benamingen (ruim 10.000) een kenmerk te verkrijgen die ik algemeen voor die soort artikelen kan doorvoeren. In de kolom Cel A1 staan de benamingen van de artikelen die ik volgens de gegevens op blad2 in kenmerken op veld Cel A2 en veld Cel A3 geprojecteerd wil hebben. Er moet dus in kolom kolom Cel A1 op blad1 gezocht worden naar waarden die overeenkomen met de gegevens in Kolom Cel A1 op blad2.

Ik hoop dat ik het duidelijk genoeg heb kunnen verklaren.

 

[plongske]

Bedoel je zoiets?

 

[rdebode]

zover ik kan zien lijkt dit erg op hetgeen ik wilde bewerkstelligen. ik ga maandag als terug ben op de zaak dit toepassen en zien of het bij ons volledig werkt. dat zou mij heel veel tijd schelen maar verticaal zoeken had ik geprobeerd echter zonder de foutmelding. bedankt allen zover!

 

[rdebode]

Ik heb zo juist de formule losgelaten op mijn bestand en vooralsnog krijg ik geen foutieve informatie te zien. Mijn probleem is dus opgelost bij deze. Bedankt allen!

 

[rdebode]

Kom toch nog een paar dingetjes tegen die ik zo 1, 2, 3 niet opgelost krijg. De oplossing gegeven is als de zoekopdracht geheel overeenkomt geen probleem maar ik heb ook meerdere omschrijvingen waar de oplossing van mijn vraag in een gedeelte van de omschrijving zit. Zo wordt er nu gezocht naar de omschrijving 'solenoid valve' waarna de uitkomst 'sov' wordt gegeven. Als ik nu echter ook de omschrijving 'solenoid valve connection' of 'manual solenoid valve' heb staan wordt dit als niet gevonden opgemerkt terwijl ik dit wel zou willen. Ik ben benieuwd of hier een passende oplossing voor is in combinatie met voorgaande.

Alvast bedankt voor het meedenken.

 

[plongske]

Zie helaas niet direct een oplossing met formules.
Misschien is er nog een mogelijkheid met VBA

 

[rdebode]

Ik ben nog niet zo goed met Excel dat ik een VBA kan maken helaas.

 

[plongske]

Hopelijk komt er een reactie van onze VBA specialisten hier op het forum.

 

[VenA]

Met een UDF (wel even de kolomkoppen in beide tabjes gelijk maken)

Function VenA(r1, r2, r3)
ar = r2
For j = 2 To UBound(ar)
    If InStr(1, r1, ar(j, 1), 1) <> 0 Then
        If r3 = ar(1, 1) Then VenA = ar(j, 1)
        If r3 = ar(1, 2) Then VenA = ar(j, 2)
        Exit For
    End If
Next j
If VenA = 0 Then VenA = ""
End Function

Of als het een eenmalige actie is met een Sub

Sub VenA1()
ar1 = Sheets(2).Cells(1).CurrentRegion
With Sheets(1).Cells(1).CurrentRegion
    ar = .Value
    For j = 2 To UBound(ar)
        For jj = 2 To UBound(ar1)
            If InStr(1, ar(j, 2), ar1(jj, 1), 1) <> 0 Then
                ar(j, 3) = ar1(jj, 1)
                ar(j, 4) = ar1(jj, 2)
                Exit For
            End If
        Next jj
    Next j
    .Value = ar
End With
End Sub

De code is terug te vinden door op <Alt> + <F11> te drukken.

 

[rdebode]

Ok ik dacht dat allen de formule genoeg zou zijn maar inderdaad ik moet ook nog de UDF of SUB toevoegen in de excel sheet zie ik. Ik zal dit even overnemen in mijn sheet om te zien of het gaat werken.

Moet ik dit door middel van een knop ingang zetten of gewoon de macro openen en dan starten?

 

[Haije]

Richard, als je de UDF in je bestand zet werkt die verder als een gewone formule. Er is dan dus geen knop o.i.d. nodig

 

[rdebode]

Vooralsnog werkt alles naar behoren, vraagt wel wat processor kracht maar dat wordt ook opgelost binnenkort. Mag ik u allen danken voor de hulp!

 

[rdebode]

Ik heb nu al enige tijd deze formule in gebruik maar kom nu tegen een kleine fout.
Als de zoekfunctie niet in de lijst kan worden gevonden dan wordt in die lijst de voorgaande gebruikt.
Allereerst liepen de zoekfuncties als 1,2,3,4, enz tot ergens in de 11000, nu echter maak ik daar uit een selectie en zijn de nummers niet meer opvolgend. Als ik dus nu een verticale zoekactie doe krijg ik dus vreemde getallen te zien. Ik denk dat de formule ergens een extra verwijzing moet krijgen kan alleen even niet bedenken wat.