
If OptionButton1.Value = True Then
Set miorange = Worksheets(1).Range("a3:a10")
End If
If OptionButton2.Value = True Then
Set miorange = Worksheets(1).Range("d3:d10")
End If
Set c = miorange.Find(testoinserito, After:=ActiveCell, LookIn:=xlValues, MatchCase:=False)
If Not c Is Nothing Then
primoind = c.Address
c.Activate
Set c = miorange.FindNext(miorange.Find(testoinserito, After:=ActiveCell, , LookIn:=xlValues, , MatchCase:=False))
|
