vba code inkorten

[HSV]

Dit zouden de juiste bereiken moeten zijn.

Sheets("Scores").Range("B4:B39").Offset(ComboBox1.ListIndex [COLOR=#ff0000]* 36[/COLOR] + IIf(Opt1, 0, IIf(Opt2, 792, [COLOR=#ff0000]936[/COLOR]))).Find(cboNaam.Value).Offset(, IIf(LCase(TextBox2.Text = "uit"), 7, 1)).Resize(, 6) = Array(txtG1.Value, txtG2.Value, txtG3.Value, txtG4.Value, txtG5.Value, txtG6.Value)

 

[Jack Nouws]

Da's op maat bediend Harry,
dat zou een mooi "vogelwerkje" voor de TS zijn

 

[bowlingman]

Dan toch nog even een vraagje HSV
Zowel met * 35 als met * 36 wordt alles op de juiste plaatsen weggeschreven
Kan dit?

 

[HSV]

Dat zou toeval kunnen zijn in de find methode, maar keer 35 is niet het juiste bereik.
Dat was een foutje van me.

Bv.
listindex = 21
21*36 = 756 21*35 = 735

range(b4:b39").offset(21*35 = 735) = range(b739:b774) = niet het juiste bereik
range(b4:b39").offset(21*36 = 756) = range(b760:b795) = het juiste bereik

 

[bowlingman]

Bedankt nog voor het antwoord HSV

Grtjs.
Armand