Probleem met Object fout

[loek010]

Beste Hulpverleners,

Hoe krijg ik met deze code :

Private Sub ComboBox4_Change()
With Blad4
Set f = .Columns(1).Find(ComboBox4, , xlValues, xlWhole)
If Not f Is Nothing Then
For j = 1 To 3
Me.Controls("TextBox" & j).value = .Cells(f.Row, j).Offset(, 1).value
Next j
End If
End With
End Sub

de Textboxen 8 9 en 10 gevuld met de opgehaalde data
hij vult namelijk de eerste textboxen 1 , 2 en 3 maar deze text boxen worden al gevuld door een andere combobox
als ik Me.Controls("TextBox" & j).value veranderd dan krijg ik een foutmelding kan Object niet vinden.
iemand een oplossing ?

Met vrgr,

Willem

 

[HSV]

For j = [COLOR=#ff0000]8[/COLOR] To [COLOR=#ff0000]10[/COLOR]

misschien?

Of:

Me("TextBox" & j [COLOR="#FF0000"]+ 7[/COLOR]).value

 

[loek010]

@HSV

Beste Harry

Dat had ik ook al geprobeerd maar dan blijven de textboxen 8 , 9 en 10 leeg
doe ik For j = 1 To 3 dan vult hij wel maar ja dat zijn de verkeerde.

Grt,

Willem

 

[HSV]

Willem,

J heeft een waarde 8, 9 of 10.

Dit stukje moet je dan ook aanpassen.
J-7 of zoiets.

.Cells(f.Row, [COLOR=#ff0000]j - 7[/COLOR]).Offset(, 1).value

 

[loek010]

@HSV

Beste Harry dit is het nu werkt hij met deze code :

Private Sub ComboBox4_Change()
With Blad4
Set f = .Columns(1).Find(ComboBox4, , xlValues, xlWhole)
If Not f Is Nothing Then
For j = [COLOR="#FF0000"]8[/COLOR] To [COLOR="#FF0000"]10
[/COLOR]Me.Controls("TextBox" & j).value = .Cells(f.Row, [COLOR="#FF0000"]j - 7[/COLOR]).Offset(, 1).value
Next j
End If
End With
End Sub

Bedankt voor je hulp, vraag kan op opgelost.

Grt.

Willem

 

[HSV]

Kan ook zo:

Me("TextBox" & j).value = .Cells(f.Row, j - 6).value

of:

Me("TextBox" & j).value = f.offset(,j - 7).value