
Private Sub UserForm_Activate()
Dim I As Integer
Dim numero As Integer
Dim riga As Integer
numero = Sheets("frutta").Range("E1").Value
For I = 1 To numero
riga = I + 2
MsgBox riga
If Sheets("frutta").Cells(riga, 2) <> "" Then
If Sheets("frutta").Cells(riga, 2) = "mele marcie" Then
TextBox1 = Sheets("frutta").Cells(riga, 1)
End If
End If
Next
End Sub |
