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

Inserimento data e ora istantanei

Ultimo Aggiornamento: 06/10/2018 12:12
Post: 1
Registrato il: 05/10/2018
Città: PALERMO
Età: 57
Utente Junior
2019
OFFLINE
05/10/2018 16:56

Salve, ogni giorno compilo un foglio in cui in determinati momenti della giornata devo inserire in una cella la data e l'ora di un determinato istante.

Esempio:
cella A1, mi chiamano ed inserisco data ed ora.
cella A2, mi chiamano ed inserisco data ed ora.

Esiste un metodo per inserire data ed ora di quell'istante con un semplice clic o con una combinazione di tasti.

PS: utilizzo sempre la stessa colonna e più schede dello stesso file.


Grazie mille del vostro supporto.
Saluti.
Post: 5.502
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
05/10/2018 18:01

Inserimento data ora in cella
Ciao Marco, una volta c'era il sistema per inserire solo la data o solo l'ora o tutti e due, con le versioni fino alla 2002 credo, sembra che adesso non funzioni più era Control+;.

esiste solo per inserire la data ma non l'ora, ed è "AltGr+a".

Altrimenti devi far ricorso al VBA, ti propongo una soluzione che se come hai detto è sempre la stessa colonna nei vari fogli in cui devi inserire la data e l'ora attuale, basta selezionare la cella e ti compare l'ora, queste 3 righe di codice devi inserirle nel Modulo "TisWorkbook" oppure "Questa cartella di Lavoro" e poi dimenticartene.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, [b:b]) Is Nothing Then ActiveCell = Now
End Sub 


è fatta per la colonna "B" come vedi, se vuoi un altra colonna basta cambiare "b:b" con la colonna interessata, oppure solo un range "b1:b150".

ora nelle colonne "B" di tutti i fogli quando selezioni la cella ti compare la data e l'ora attuale.

si potrebbe anche fare che quando ad esempio scrivi nella colonna "C" qualcosa nella colonna "B" ti compaia la data e l'ora, ma visto che hai chiesto questo, ecco la soluzione.

Ciao By Sal [SM=x423051]

[Modificato da by sal 05/10/2018 18:02]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 1
Registrato il: 05/10/2018
Città: PALERMO
Età: 57
Utente Junior
2019
OFFLINE
05/10/2018 18:20

Semplicemente fantastico :)
Ho provato è funziona alla grande. Grazie tantissimo.

Proseguiamo... come dicevi, se per esempio nella cella A1 inserisco qualcosa (solitamente ho un nome) come ottengo data ed ora di quell'istante nella cella B1. (ovviamente A e B potrebbero essere qualsiasi, questo è un esempio).
[Modificato da tremort 05/10/2018 18:23]
Post: 5.503
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
05/10/2018 19:00

Inserimento data ora in cella
Ciao Marco, come vedi il codice che ti ho passato sfrutta l'evento selezione della cella "SelectionChange" appunto, per avere la data mentre si scrive in un altra cella si deve usare l'evento "Change", che appunto controlla il cambio del valore della cella.

quindi un poco di codice in più per il funzionamento, ma una volta inserito e come l'altro non devi interessartene, eccoti la variazione.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim r, c

If Not Intersect(Target, [a:a]) Is Nothing Then
    r = Target.Row
    c = Target.Column
    Cells(r, c + 1) = Now
    Cells(r, c + 2).Select
End If
End Sub


con questo codice valido per tutti i fogli, da inserire sempre nel modulo "Questa cartella di Lavoro", per un singolo foglio sarà diverso, quando inserisci qualcosa nella colonna "A" inserisce la data nella colonna "B" e si posiziona nella cella "C" per inserire altri dati.

Ciao By Sal [SM=x423051]

[Modificato da by sal 05/10/2018 19:05]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 2
Registrato il: 05/10/2018
Città: PALERMO
Età: 57
Utente Junior
2019
OFFLINE
05/10/2018 21:53

Grazie ancora, ho modificato il codice ulteriormente ottenendo risultati sorprendenti.



Utilizzo una colonna con alcune parole fisse, come posso ottenere il completamento automatico per quella determinata colonna?

Ottimo Grazie ancora.
Post: 5.504
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
06/10/2018 08:58

Inserimento data ora in cella
Ciao Marco, il problema della parole fisse, dovrei vedere un esempio con le parole fisse per capire se è possibile automatizzare.

cioè se queste parole fisse corrispondono a qualche altro inserimento.

Oppure devi usare un Menu a tendina per la scelta delle parole.

Ciao By Sal [SM=x423051]

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 3
Registrato il: 05/10/2018
Città: PALERMO
Età: 57
Utente Junior
2019
OFFLINE
06/10/2018 09:17

Buongiorno, in pratica ho una colonna in cui inserisco sempre nome e cognome di uno degli 8 addetti al personale i quali variano durante la giornata.

Esempio: scrivendo nella cella della colonba G "M" di Mario Rossi vorrei avere il completamento automatico del nome cognome, premendo invio otterrei data e ora istantaneamente nella cella precedente.

Mario Rossi è un esempio, consideri che tutti i nomi del personale hanno iniziali diverse.

Si potrebbe fare il menù a tendina ma mi chiedevo se era possibile automatizzarlo in VBA, ad esempio inserendo la lista dei nomi direttamente al suo interno.

Grazie ancora
Post: 5.506
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
06/10/2018 10:25

Inserimento data ora in cella
Ciao Marco, si può fare, ma con una combobox, in quanto anche la convalida non ti da l'automatismo che cerchi.

però mi sembra strano, in quanto Excel ha questo automatismo in colonna, non so se lo hai attivato o meno, basta che nella colonna ci sia già, ad esempio "Mario Rossi" se incominci a scrivere "Ma" Excel autocompleta con "rio Rossi" e devi solo dare invio, il problema sta nel fatto che se esiste una "Maria Verdi" solo dopo aver scritto "Maria" autocompleta con "Verdi", perche "Mari" è comune alle 2 parole.

comunque serve un file d'esempio.

Ciao By Sal [SM=x423051]

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 4
Registrato il: 05/10/2018
Città: PALERMO
Età: 57
Utente Junior
2019
OFFLINE
06/10/2018 10:51

Si chiarissimo, l'autocompletamento che intende già è presente, ma ovviamente deve essere presente il nome già scritto nella colonna almeno una volta. Avevo provato a scrivere gli 8 nomi che hanno tutti un iniziale diversa in 8 righe della stessa colonna e poi nascondere le righe ed ottenere così il risultato desiderato. Ma vorrei adottare una soluzione migliore. Pensavo appunto ad una soluzione in VBA implementando nome cognome per un range di celle per una determinata colonna.

Sarebbe un sistema utile per il completamento automatico, poiché si potrebbe avere anche una lista di 100 nomi già precaricati così da facilitarne l'inserimento.

Grazie tantissimo [SM=g27817]
[Modificato da tremort 06/10/2018 10:52]
Post: 5.507
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
06/10/2018 12:12

Inserimento data ora in cella
Ciao Come ho detto mi serve un file d'esempio, per sapere colonne e righe dove va la combobox.

se lo inserisci vediamo cosa fare.

Ciao By Sal [SM=x423051]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Vota: 15MediaObject5,00310 3
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 10:41. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com