Allora, se ho capito bene, tu hai una situazione di questo genere:



codice:

Foglio1:

Cod_1
Cod_2
Cod_3
Cod_4
Cod_5



Foglio2

Cod_1      Mele      10
Cod_2      Pere       5
Cod_3      Susine    18
Cod_4      Pesche    22
Cod_5      Noci       7


E vuoi che cliccando, ad esempio, sul Cod_3 del primo foglio ti si apra il secondo foglio con, selezionata, la casella che contiene il 18


Se quello che ho capito è corretto questo dovrebbe essere ciò che ti occorre:

Private Sub CommandButton1_Click()
Dim valore, c
valore = ActiveCell.Value
Worksheets("Foglio2").Activate
With Range("a1:a10")
Set c = .Find(valore, LookIn:=xlValues)
End With
Worksheets("Foglio2").cells(c.Row, c.Column + 2).Select
End Sub


Anche se è piuttosto elementare te lo spiego per aiutare eventuali altri lettori poco esperti.

- ActiveCell.Value preleva il valore della cella che hai selezionato (Cod_3) e lo assegna alla variabile valore
- Worksheets("Foglio2").Activate attiva il secondo foglio
- With Range("a1:a10") determina il range di ricerca
- Set c = .Find(valore, LookIn:=xlValues) individua la cella contenete il codice cercato
- Worksheets("Foglio2").cells(c.Row, c.Column + 2).Select seleziona la cella che si trova nella stessa riga ma due colonne più a destra di quella trovata.

Chiaramente tutto questo codice va associato ad un pulsante da inserire nel foglio utilizzando la barra degli strumenti Visual Basic.


Era quello che ti serviva?



Ciao