Ciao dik, benvenuto nel forum.
Proposta:
-scrivi queste schede dove vuoi nella tua cartella di lavoro
-ad ogni area occupata da una scheda assegna il nome pari al nome cliente, cosi' come lo hai scritto nell' elenco ma eliminando spazi e apostrofo - Vedi Nota *
Supponiamo che il tuo elenco sia in Foglio1, da A2 ad A1000;
-tasto dx sul tab col nome Foglio1, scegli Visualizza codice, copia questa macro e incollala nel frame vuoto di dx:
- Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If UCase(Range("B1")) = "EDIT" Then Exit Sub '-- Vedi testo **
CheckA = "A2:A1000" '<<< L' intervallo coi nominativi
If Application.Intersect(Target, Range(CheckA)) Is Nothing Or Target.Count > 1 Then Exit Sub
On Error Resume Next
Application.Goto Reference:=Replace(Replace(Target.Value, " ", ""), "'", "") ', scroll:=True 'Nota *
On Error GoTo 0
End Sub
Personalizza l' istruzione mrcata <<<, che punti all' area destinata a contenere i nominativi.
In questo modo quando selezioni una singola cella che contiene un nominativo per cui esiste una scheda (con lo stesso nome) la selezione sara' spostata sull' area della scehda. Celle vuote o nominativi a cui non corrisponde un intervallo con lo stesso nome non provocano effetto.
Note
* Quando si nomina un intervallo i caratteri Spazio e Apostrofo sono vietati; essendo caratteri comuni nell' identificazione di un cliente la macro neutralizza questi caratteri (vedi istruzione marcata Nota *). Quindi possono essere usati nei nominativi ma devono essere ignorati nel nome dell' intervallo (es Marco Rossi avra' un intervallo chiamato marcorossi; Luca D' Agnese un intervallo lucadagnese). Se sei costretto a usare nei nominativi altri caratteri vietati nella nominazione dell' intervallo allora devi articolare maggiormente l' istruzione marcata Nota *.
** Per consentire di poter modificare i nominativi ho usato la cella B1: se essa contiene la scritta EDIT allora il reindirizzamento non viene attivato. Se non puoi usare B1 allora usa un' altra cella e modifica l' istruzione marcata Vedi testo **
Prova e fai sapere.
Ciao