Ciao Andrea, devi sostituire il codice presente con questo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim d, r, c
r = Target.Row
c = Target.Column
If Not Intersect(Target, [D:G]) Is Nothing Then
If r < 5 Or Cells(r, c) <> "" Then Exit Sub
d = Cells(1, 3)
Cells(r, c) = d
End If
End Sub
questo basta selezionare solo la cella che scrive le iniziali.
ti spiego come fare, penso che non hai troppa dimestichezza con il VBA, segui passo passo
la prima cosa apri il file e posizionati sul foglio "Operazioni" poi fai Copia del codice che ti ho riportato.
seleziona la linguetta del foglio con il DX del mouse vedi esce un Menù scegli la voce "Visualizza codice" cliccaci sopra e tiporta nel modulo VBA del foglio a questo punto fai incolla, poi cancelli il codice che già ci stava, poi premi "Alt+F11" che ritorna di nuovo sul foglio ed hai terminato.
ora seleziona una cella e vedrai che compaiono le iniziali, ogni volta che selezioni una cella compaiono le proprie iniziali, ho fatto in modo che non si può riscrivere una cella già impegnata, se si vuole cambiare la sigla bisogna farlo manualmente sostituendo le iniziali.
hai detto che quello era un esempio, puoi fare lo stesso procedimento sul foglio originale, l'unica cosa che può causare il cattivo funzionamento, e che le celle non siano le stesse del file che hai inserito, se si cambiano i riferimenti non funziona.
Ciao By Sal
[Modificato da by sal 28/01/2017 20:05]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui