Visual Basic 6 - doppio ciclo for next

19/05/11 7:33

mash_mash

Ciao a tutti, ho buttato giù questo codice molto molto lungo

Dim C10 As Object
For Each C10 In Worksheets("Magazzino"

.Range([a3], [a3].End(xlDown))
If C10.Value = Userform2.Controls("TextBox1"

.Text Then
C10.Select
Userform2.Controls("Label201"

.Caption = ActiveCell.Offset(0, 4).Value
Exit For
End If
Next C10
'
Dim C11 As Object
For Each C11 In Worksheets("Magazzino"

.Range([a3], [a3].End(xlDown))
If C11.Value = Userform2.Controls("TextBox3"

.Text Then
C11.Select
Userform2.Controls("Label203"

.Caption = ActiveCell.Offset(0, 4).Value
Exit For
End If
Next C11
'
Dim C12 As Object
For Each C12 In Worksheets("Magazzino"

.Range([a3], [a3].End(xlDown))
If C12.Value = Userform2.Controls("TextBox5"

.Text Then
C12.Select
Userform2.Controls("Label205"

.Caption = ActiveCell.Offset(0, 4).Value
Exit For
End If
Next C12
'
va avanti ancora , ho ma preferito troncarlo qua, come vorrei sostituirlo con un doppio ciclo for next ma non riesco mentalmente a "vederlo" , mi date una mano ?
Grazie

aaa

19/05/11 11:01

mash_mash

Sono sempre io, ho fatto questo codice ma il ciclo for esce subito dopo aver trovato il 1^ valore (quello nella textbox1) e non mi va a cercare e quindi a inserire tutti gli altri.
Dove cavolo sbaglio ?

Worksheets("Magazzino"

.Activate
'
Dim C As Object

For Each C In Worksheets("Magazzino"

.Range([a3], [a3].End(xlDown))
For n = 1 To 105 Step 2

If C(n).Value = Userform2.Controls("TextBox1"

.Text Then
C(n).Select
Userform2.Controls("Label" & (n + 200)).Caption = ActiveCell.Offset(0, 4).Value
Exit For
End If
'
Next n
Next C

aaa

21/05/11 12:12