Poi con una macro di tipo Worksheet_SelectionChange (va inserita sul modulo di codice del Foglio su cui lavorerai) determini l’ indirizzo della cella selezionata (CurCellAdr = Target.address) e successivamente usi il valore in CurCellAdr per cercare nella tabella di cui sopra se e’ un “x” con associata un’ immagine. Se alla colonna 1 della tabella hai dato un nome (es. Tabx), puoi usare un ciclo del tipo
- Codice: Seleziona tutto
For each cell in Range("Tabx")
If cell.value=CurCellAdr then
NomeImm=Cell.offset(0,1).value
'PosX=cell.offset(0,2).value '<<< Scommentare per ottenere anche la Posizione
Exit for
End If
Next cell
A questo punto dopo aver controllato che NomeImm non e’ vuoto (la cella non sarebbe stata trovata nell’ elenco), hai NomeImm da copiare ed eventualmente PosX con la posizione su cui incollare; usa il codice preso dalla macro corrente per:
-andare in PosX
-controllare se esiste un nome immagine corrente, se SI la selezioni e cancelli
-copiare NomeImm e posizionarla su PosX
Se invece avevi in mente una soluzione diversa prova a scomporre e ricomporre questo codice e quello gia’ in tue mani, vedrai che la soluzione salta fuori; eventualmente pubblicala.
Se invece serve un aiutino, siamo qua.
Ciao.
