cel zoeken in blad

[ferdin]

Dag allemaal,

Ik ben een beginneling met VBA en ik zit met een vraag.
Hoe kan in met een combobox een cel zoeken in een blad, bv
in de combo box zit 4 uitrolschermpjes, bij elk uit rol scherm moet
er een andere cel worden geactiveerd.

Heeft iemand enig idee hoe ik dit kan gaan aanpakken??

Alvast bedankt voor de hulp

 

[Hoornvan]

ferdin,

Hier een beginnetje.

With Sheets("NaamBlad").Range("B2:B100")
            Set WS = .Find(cboNaam.Value, LookIn:=xlValues, LookAt:=xlWhole)

 

[ferdin]

Dag Hoornvan,

Ik denk dat ik wat verkeerd doe, ik krijg het niet aan de praat?

Toch alvast bedankt voor je reactie

 

[snb]

in de combo box zit 4 uitrolschermpjes,

Geloof ik niet. Een combobox heeft er slechts 1.

@hoornvan

Liever

Sheets("NaamBlad").Range("B2:B100").Find(cboNaam.Value, ,xlValues, xlWhole).select

dan met

With Sheets("NaamBlad").Range("B2:B100")
            Set WS = .Find(cboNaam.Value, LookIn:=xlValues, LookAt:=xlWhole)

 

[Rap261]

Ferdin,

Je bedoelt miscchien zoiets:

Private Sub ComboBox1_Click()
If IsEmpty(ActiveSheet.ComboBox1.Value) = False Then
With ActiveSheet.Range("A1:A7")
Set dg = .Find(ActiveSheet.ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not dg Is Nothing Then
Range(dg.Address).Activate
Else
MsgBox ComboBox1.Text & " niet gevonden."
End If
End With
End If
End Sub

 

[ferdin]

Bedankt

Inderdaad RAP261, dit was wat ik zocht.

Allen bedankt voor de inzet.

Groetjes,
Ferdin

 

[Rap261]

Welcome..