zoeken naar een waarde in een kolom

[nonono]

Ik ben op zoek naar een “Find” makro om gegevens uit de desbetreffende rij te kunnen kopiëren.
Bijv. in een spreadsheet kun je met Find een waarde ingeven en laten zoeken in kolommen.
Resultaat: de naam of vergelijkbaar. Met Find Next kun je naar een volgend item zoeken.
En bij het gevonden resultaat de zoekactie afsluiten.
Wat is de code voor zo´n makro.?
Bij voorbaat dank.

 

[zapatr]

Klik op de knop "macro opnemen" en voer de handelingen uit die je wil automatiseren. De code wordt dan automatisch gegenereerd.

 

[nonono]

Ja dit kende ik al. Anders had ik dit ook niet bij mijn intro vermeld.
Mijn vraag was dus: wat is de code?

 

[zapatr]

De code die je ziet als je uitvoert wat ik in mijn vorig bericht schreef.

 

[nonono]

*KNIP*
Dit is geen “Code”, want als ik de volgende keer Alt+F8 gebruik dan wordt met dezelfde waarde gezocht !!!!!
M.b.v “InputBox” kun je steeds opnieuw een waarde ingegeven.

 

[zapatr]

Zo'n standaard opgenomen code is zeer eenvoudig aan te passen met een inputbox, daar is nauwelijks programmeerkennis voor nodig. Ik ben graag bereid mensen te helpen, maar omdat je op een onbeschofte manier reageert, ga ik verder niet op die code in.

 

[nonono]

Sorry, maar de vraag was denk ik duidelijk gesteld. Vervolgens komt een antwoord, dat reeds in mijn intro is genoemd. En vervolgens nog een keer hetzelfde antwoord. Dan voelt de ander zich ook een beetje in de hoek gezet. In ieder geval bedankt voor je VBA code.

 

[Warme bakkertje]

In de VBA-Helpfuntie zit een mooi voorbeeld van een Find.....FindNext-code die je makkelijk kan aanpassen door de zoekwaarde te wijzigen in een InputBox. Voor de rest is jouw vraag te algemeen om er een zinvol en gericht antwoord op te geven.

 

[crash]

Een bericht aangepast, schelden is hier niet toegestaan. Daarbij ben jij diegene met het probleem, niet de helpers.

 

[nonono]

Ik heb gereageerd op een antwoord en niet op een persoon.
Wanneer dit persoonlijk opgevat is, dan daarvoor mijn excuses.

 

[Hoornvan]

nonono,

Zo iets?

Sub zoek()
  With Worksheets(1).[A1:A500]
    Z = InputBox("Waar zoekt u naar?")
    Set c = .Find(Z, LookIn:=xlValues)
    c.Select 'Of Copy gebruiken
  End With
End Sub

 

[nonono]

Ik heb de macro als volgt aangepast en gaat prima:

Sub zoek()
  With Sheets("Naam").[A1:F500]
    Z = InputBox("Waar zoekt u naar?")
    Set c = .Find(Z, LookIn:=xlValues)
    c.Select 'Of Copy gebruiken
  End With
 End Sub

Nu stopt de macro bij het eerst gevonden item.
Is het mogelijk verder te zoeken naar records, die ook (deels) de ingegeven waarde hebben.
In ieder geval bedankt voor je reactie.

Groet Nono

 

[Jack Nouws]

Hallo,

Ik denk dat ik een mooie link voor je probleem heb gevonden.

Met vr gr
Jack

 

[nonono]

Bedankt voor je reactie.
Niet geschoten is altijd mis.

Groet Nono

 

[Warme bakkertje]

Maar is je probleem hiermee opgelost ?

 

[nonono]

Nee het probleem is nog niet opgelost, want bij deze makro wordt met een vaste waarde gezocht.
Dit in tegenstelling tot de makro met "InputBox".

Groet Nono

 

[Warme bakkertje]

Vervang de vaste waarde dan door een Inputbox-statement, of plaats eens een voorbeeldbestandje zodat we iets hebben om mee te werken.

 

[nonono]

In het voorbeeldbestandje bijv. op “noot” zoeken.
Na de eerste hit kan ik dan vervolgens op Find Next klikken tot de juiste hit gevonden is.
Bedankt.

Groet Nono

 

[Jack Nouws]

Bedankt voor je reactie.
Niet geschoten is altijd mis.

Groet Nono

Sorry dat ik geschoten heb.
Ik zal niet meer schieten naar jou!!!

 

[HSV]

Ik heb de macro als volgt aangepast en gaat prima:

Nu stopt de macro bij het eerst gevonden item.
Is het mogelijk verder te zoeken naar records, die ook (deels) de ingegeven waarde hebben.
In ieder geval bedankt voor je reactie.

Groet Nono

Ik geef de gevonden items een kleurtje.
Misschien kun je er iets mee.