
Sub trova()
Set n = Columns(1).Find(what:="nome")
Set p = Columns(3).Find(what:="portafoglio")
If Not n Is Nothing And Not p Is Nothing Then
If n.Row = p.Row Then
MsgBox "La riga interessata è la n°: " & n.Row & "" 'mostra messaggio
Else
MsgBox "Riga non trovata."
End If
End If
End Sub
|
nRiga = [MATCH("nomeportafoglio",INDEX(A1:A31&C1:C31,),0)] |
nRiga = [MATCH("nomeportafoglio",A1:A31&C1:C31,0)] |
