Hallo,
Ik ben van het weekeinde nog flink verder gegaan met mn excel lijst en VBA. Ik loop echter tegen problemen aan met het zoeken naar een waarde in een cell.
Ik wil dus een waarde in kolom A zoeken. Stel deze staat in A5, dan wil ik een andere waarde die in J5 staat veranderen in een andere waarde. Dit zal een getal zijn. Standaard staat de Cell op 0 en elke keer als ik op de command button click, moet deze geupdate worden.
Dit is mijn huidige code. Hij loopt echter vast op het bold gedeelte.
Hoe kan ik zorgen dat ik de cel in J5 (die dus correspondeerd met de waarde die ik op geef bij de zoekopdracht, kan wijzigen?
Alvast bedant
Ik ben van het weekeinde nog flink verder gegaan met mn excel lijst en VBA. Ik loop echter tegen problemen aan met het zoeken naar een waarde in een cell.
Ik wil dus een waarde in kolom A zoeken. Stel deze staat in A5, dan wil ik een andere waarde die in J5 staat veranderen in een andere waarde. Dit zal een getal zijn. Standaard staat de Cell op 0 en elke keer als ik op de command button click, moet deze geupdate worden.
Code:
Private Sub CommandButton1_Click()
Cells.Select
Selection.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
[b]Sheets("Data").Range("J").Select[/b]
ActiveCell = Value + 1
End Sub
Dit is mijn huidige code. Hij loopt echter vast op het bold gedeelte.
Hoe kan ik zorgen dat ik de cel in J5 (die dus correspondeerd met de waarde die ik op geef bij de zoekopdracht, kan wijzigen?
Alvast bedant