Nel mio foglio di lavoro ho questa situazione:
nella colonna "Q" (in varie righe, ma non sempre le stesse: Q16/Q17/Q19/Q22/Q23/Q24/Q27/...../Q2000), l'utente deve immettere un valore (da un elenco a tendina) che può essere "I" o "E" o vuoto.
Sulla scorta del valore inserito nella corrispondente cella "P" dovrei fare questa operazione:
1) se la cella "P" è vuota = nessuna azione (con messaggio di avvertenza)
2) se la cella "P" non è vuota = antepone al testo presente nella cella la parola "INTERNA" o "ESTERNA" a seconda che il valore sia "I" o "E" dopo aver controllato che la prima parola non sia già "INTERNA" o "ESTERNA".
Ho cercato di fare qualcosa :
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("NEW").Range("q16").Value = "I" Then
If Len(Trim(Sheets("NEW").Range("P16").Value)) = 0 Then
Sheets("NEW").Range("P16").Value = "INTERNA - " & Sheets("NEW").Range("P16").Value
Else
If Left(Sheets("NEW").Range("P16").Value, 7) <> "INTERNA" Then
Sheets("NEW").Range("P16").Value = "INTERNA - " & Sheets("NEW").Range("P16").Value
Else
te = ""
te = Mid(Sheets("NEW").Range("P16").Value, 10, Len(Sheets("NEW").Range("P16").Value))
Sheets("NEW").Range("P16").Value = ""
Sheets("NEW").Range("P16").Value = "INTERNA - " & Sheets("NEW").Range("P16").Value
End If
End If
End If
End Sub
Ora, a prescindere dai controlli che vanno ancora affinati, il problema è che se in P16 scrivo "PROVA" e in Q16 scrivo "I" il risultato è che in P16 mi trovo ripetuto "INTERNA" svariate volte e alla fine "PROVA".
Inoltre, ammesso che riesca a fare funzionare la macro, mi chiedevo, ma come devo fare per abbinarla a tutte le celle della colonna "Q" che abbiano un corrispettivo valore in colonna "P" ?
E' possibile ?
Grazie