Riportare una formula su tutta la colonna in base al valore della cella adiacente

Question

Buongiorno,

in una tabella ho una colonna dove, attraverso una combo box riporto il nome del Cliente. Al suo fianco vorrei aprire il link della scheda del cliente relativa, che ho salvato in un altro foglio chiamato "Back up". Prima utilizzavo una formula tipo: =SE(D3<>"";COLLEG.IPERTESTUALE(CERCA.VERT(D3;'Back up'!B$2:C$8;2;FALSO));"").

Dovendo in questa tabella inserire delle righe, la formula viene persa e dovrei ogni volta riscriverla. Non conosco il linguaggio VBA, ma sono certa che sarebbe possibile aggirare il problema con due righe di codice. Qualcuno mi potrebbe aiutare?

Uso office 365, ma al lavoro c'è chi dovrà usufruire di questo file in versione office 2003...

Grazie a chi vorrà aiutarmi

Answer 1

Ciao Elettra1,

Mille grazie per il tuo aiuto Norman!

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Per chiudere questo thread e aiutare gli altri con un problema simile, ti chiedere gentilmente di contrssegnare il mio codice come Risposta.

===

Regards,

Norman

Answer 2

Mille grazie per il tuo aiuto Norman!

Answer 3

Ciao Elettra1,

in una tabella ho una colonna dove, attraverso una combo box riporto il nome del Cliente. Al suo fianco vorrei aprire il link della scheda del cliente relativa, che ho salvato in un altro foglio chiamato "Back up". Prima utilizzavo una formula tipo: =SE(D3<>"";COLLEG.IPERTESTUALE(CERCA.VERT(D3;'Back up'!B$2:C$8;2;FALSO));"").

Dovendo in questa tabella inserire delle righe, la formula viene persa e dovrei ogni volta riscriverla. Non conosco il linguaggio VBA, ma sono certa che sarebbe possibile aggirare il problema con due righe di codice. Qualcuno mi potrebbe aiutare?

Uso office 365, ma al lavoro c'è chi dovrà usufruire di questo file in versione office 2003...

Prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, rCell As Range 

Const sTabella As String = **"D2:D20"            '<<=== Modifica**  

Set Rng = Intersect(Me.Range(sTabella), Target)  

If Not Rng Is Nothing Then 

    For Each rCell In Rng.Cells 

        rCell.Offset(0, 1).FormulaR1C1 = \_ 

            "=IF(RC[-1]<>"""",HYPERLINK(VLOOKUP(RC[-1],'Back up'!R2C[-3]:R8C[-2],2,FALSE)),"""")" 

    Next rCell 

End If 

End Sub

'<<======== 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

===

Regards,

Norman