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
|