Zoeken

[danny147]

Beste

In de rij E staan unieke getallen van 1 t.e.m. 2000 en meer
In kolom C staan er namen naast kolom E
Bestaat er een functie (zoeken in VBA), wanneer de code wordt geactiveerd men eerst een inputbox krijgt waar men de te zoeken waarde ingeeft.
Vervolgens de naam te selecteren in kolom C die naast de te zoeken waarde staat in kolom E.

Vb. Ik typ in de inputbox 9 in en de cel c13 wordt geselecteerd.



Groetjes Danny.

 

[Wigi]

Daar is al een hele goede macro voor, hoef je niets voor te doen:

Ctrl-F...

Wigi

 

[danny147]

Beste WIGI

Bedankt voor de reactie, mar dat is niet het antwoord op mijn vraag.

Ik wil als je in een inputbox een cijfer intikt dat hij dan de cel in kolom C selecteerd.
Met zoeken selecteerd hij de cel in kolom E en gaat dit dan wel als kolom E beveiligd is.

Dus liefst iets met een VBA code en een inputbox.

Groetjes Danny :thumb:

 

[robdgr]

Wat dacht je van valideren en vertikaal zoeken?

 

[danny147]

Beste rdg1314

Dit neemt veel te veel tijd inbeslag.

Ik wil een icoontje plaatsen in mijn taakbalk die rechtstreeks verwijst naar een inputbox om daarna de gegeven waarde in te typen en de te zoeken waarde selecteerd.

Alvast bedankt voor de moeite.

Groetjes Danny. :thumb:

 

[Wigi]

Waarom een inputbox? Je kan toch gewoon een cel gebruiken?

Voor de code: typ gewoon inputbox in In de helpfiles en klik op "Voorbeeld".

Het zoeken is hier ook al vaak voorbij gekomen. Zie in de VBA helpfiles op Find.

Wigi

 

[Ginger]

Toch maar een klein beetje extra hulp??? Zoiets?

Sub Zoeken()
Dim sGezochtAdres As String
Dim iZoekWaarde As Integer

    iZoekWaarde = Application.InputBox("Geef hier het gezochte getal...", "Zoeken", , , , , , 1)
    If iZoekWaarde = 0 Then Exit Sub 'er wordt op cancel of kruisje geklikt
    sGezochtAdres = Range("E3:E2000").Find(iZoekWaarde, LookIn:=xlValues).Address
    Range(sGezochtAdres).Offset(, -2).Select

End Sub

Groet, Leo

 

[danny147]

Beste Leo

Bedankt voor de oplossing, net wat ik zocht.

Groetjes danny. :thumb: