Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Seleziona CheckBox e inserisci una parola

Ultimo Aggiornamento: 28/01/2017 21:44
Post: 2
Registrato il: 28/01/2017
Città: MILANO
Età: 29
Utente Junior
2010
OFFLINE
28/01/2017 18:15

Salve,
per tenere traccia dei lavori effettuati vorrei che l'operatore entrando nel foglio "operazioni" selezionasse il proprio nome (cella B1) e successivamente semplicemente premendo sulla checkbox, che dovrebbe essere presente su ogni cella della tabella (D5:G8), comparissero al fianco le iniziali dell'operatore che ha effettuato il lavoro. Se dopo subentrasse un altro operatore, questo seleziona il proprio nome, e sulle successive checkbox che seleziona compaiono le nuove iniziali.
Grazie mille!!!
Post: 5.038
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
28/01/2017 18:49

Iniziali
Ciao Andrea, eccoti il file.

Dopo aver scelto l'operatore basta che fai DoppioClick sulla cella interessata che compaiono le iniziali.

Cambiando operatore cambiano anche le iniziali.

Ciao By Sal [SM=x423051]

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 3
Registrato il: 28/01/2017
Città: MILANO
Età: 29
Utente Junior
2010
OFFLINE
28/01/2017 19:26

grazie mille, ma giusto delle informazioni:
1- si può fare con un click solo? perchè vorrei caricarlo su un tablet e quindi vorrei che l'operatore cliccasse una sola volta la cella per semplificare l'operazioni;
2- vorrei sapere come hai fatto per farlo anche su un altro foglio visto che quello era di prova per capire se era possibile mentre l'originale non è possibile caricarlo perchè ha informazioni riservate;
3- se non fosse possibile il punto 1 è possibile associare una checkbox in modo che l'operatore clicca una sola vola la checkbox e automaticamente compaiono le iniziali?

Grazie mille
Post: 5.039
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
28/01/2017 20:00

Iniziali
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 [SM=x423051]



[Modificato da by sal 28/01/2017 20:05]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 4
Registrato il: 28/01/2017
Città: MILANO
Età: 29
Utente Junior
2010
OFFLINE
28/01/2017 21:44

Grande!!!!! mi sa che devo incominciare a studiare VBA!!!!
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 03:56. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com