For Next lukt niet

[huijb]

Waarom worden er zes cellen gevuld als ik maar één textbox invul. Ik heb zes textboxen en wil dat elke textbox een andere cel vult en optelt bij hetgeen er al staat. Zie voorbeeld.

 

[Wigi]

Michel

als je in de lus van a komt, is a 1 om te beginnen. En dan gaat het dus over textbox V1.

De inhoud daarvan tel je op bij elk van de cellen D49 (dat gebeurt in de binnenste lus).

Je kan dus volstaan met 1 lus.

Wigi

 

[huijb]

Zo was ik begonnen maar dan gaat het fout omdat ik wil(moet) beginnen in rij 4 en eindigen in rij 9 en voor de volgende beginnen in rij 12 en eindigen in rij 15

 

[Wigi]

Private Sub Getallen_Click()
Dim a, b As Integer
For a = 1 To 6
    Sheets("Blad1").Cells(a+3, 4) = Val(Invoer.Controls("V" & a).Text) + Sheets("Blad1").Cells(a+3, 4)
Next a
End Sub

De 3 zal dan wel veranderd moeten worden per set van textvakken. Eventueel zet je dat in een aparte Sub (met een parameter) die je aanroept.

Wigi

 

[huijb]

Private Sub Getallen_Click()
Dim a, b As Integer
For a = 1 To 6
    Sheets("Blad1").Cells(a+3, 4) = Val(Invoer.Controls("V" & a).Text) + Sheets("Blad1").Cells(a+3, 4)
Next a
End Sub

De 3 zal dan wel veranderd moeten worden per set van textvakken.
Wigi

Dat is slim gevonden. Inderdaad 3 zal moeten ophogen, maar is niet erg.