| | Post: 1 | Registrato il: 30/03/2016
| Città: SPIGNO SATURNIA | Età: 60 | Utente Junior | office 2007 | | OFFLINE | |
|
  30/03/2016 21:27 | |
Scusate, desidero conoscere se è possibile inserire automaticamente l'orario se inserisco un nome in una cella. Es: cella A1 inserisco il nome; automaticamente nella cella A3 appare l'ora non modificabile. Grazie |
|
| | Post: 1.713 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
| 30/03/2016 21:58 | |
Ciao Emidio
Puoi provare con questa macro da inserire nel modulo del foglio interessato; ogni volta che la cella A1 viene modificata viene inserito l'orario in A3
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Target.Offset(2, 0).Value = Mid(CStr(Now), Application.WorksheetFunction.Find(" ", CStr(Now())), 20)
End If
End Sub
Non so se era questo che volevi.
Alfredo |
| | Post: 1 | Registrato il: 30/03/2016
| Città: SPIGNO SATURNIA | Età: 60 | Utente Junior | office 2007 | | OFFLINE | |
|
| 30/03/2016 22:08 | |
inserire automaticamente orario in cella Provo con la macro e ti faccio sapere. Grazie per la celere risposta e scusa se le domande sono molto semplici ma non ho mai avuto necessità di utilizzare delle macro. |
| | Post: 2 | Registrato il: 30/03/2016
| Città: SPIGNO SATURNIA | Età: 60 | Utente Junior | office 2007 | | OFFLINE | |
|
| 30/03/2016 22:15 | |
inserire automaticamente orario in cella Grazie Alfredo, però ti ho fatto fare alcuni errori causati dalla mia inesperienza.
Ti chiedo gentilmente se ( es. inserendo in A1 il nome, in B1 dovrebbe apparire l'orario).
Inoltre come posso ripetere l'operazione per almeno 10 righe?
Grazie. |
| | Post: 1.714 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
| 30/03/2016 22:22 | |
Domattina ti modifico la macro.
Alfredo |
| | Post: 3 | Registrato il: 30/03/2016
| Città: SPIGNO SATURNIA | Età: 60 | Utente Junior | office 2007 | | OFFLINE | |
|
| 30/03/2016 22:25 | |
inserire automaticamente orario in cella Grazie mille Alfredo |
| | Post: 216 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Junior | Excel 2016-32bit Win11 | | OFFLINE |
|
| 30/03/2016 22:28 | |
Vista la nuova richiesta e visto che in precedenza avevi chiesto che l'orario non fosse modificabile propongo questa macro da mettere nel modulo vbe del foglio interessato. Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If IsEmpty(Target.Offset(0, 1).Value) Then
With Target.Offset(0, 1)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End SubPS. vedo che mentre mi distraevo avevi già preso impegni con alfrimpa ![[SM=g27823]](https://im0.freeforumzone.it/up/0/23/5787184.gif) [Modificato da rollis13 30/03/2016 22:31]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 1.715 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Veteran | Excel 365 | | OFFLINE |
|
| 30/03/2016 22:38 | |
Rollis non preoccuparti.
L'importante non è chi risponde ma, soprattutto, che non si dicano sciocchezze ![[SM=g27828]](https://im0.freeforumzone.it/up/0/28/9572832.gif)
Un saluto.
Alfredo |
| | Post: 4 | Registrato il: 30/03/2016
| Città: SPIGNO SATURNIA | Età: 60 | Utente Junior | office 2007 | | OFFLINE | |
|
| 31/03/2016 19:25 | |
inserire automaticamente orario in cella Grazie a Rollis 13 e Alfrimpa. E' perfetto. Emidio |
| | Post: 1 | Registrato il: 22/12/2017
| Città: MILANO | Età: 44 | Utente Junior | Excel2016 | | OFFLINE | |
|
| 22/12/2017 14:13 | |
Inserire automaticamente orario in cella Ciao Chiara,
ho "copiato" il codice Vba che permette di inserire in una cella C1 l'ora se viene effettuata una variazione del dato della cella A1
Mi sono però accorta che se invero le posizioni dei dati ( in A1 l'ora e in C1 il dato modificato ), non funziona più.
Sono io che sbaglio qualcosa o il codice funziona solamente con ordine A1 - C1?
Il codice l'avevo modificato così
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C10")) Is Nothing Then
If IsEmpty(Target.Offset(0, 3).Value) Then
With Target.Offset(0, 3)
.NumberFormat = "hh:mm:ss"
.Value = Time
End With
End If
End If
End Sub
![[SM=x423044]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0024.gif) ![[SM=x423017]](http://www.erismag.it/Servizio/ForumExcel/Smiles/S4_grazie.gif)
|
| | Post: 1.723 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
| 22/12/2017 17:00 | |
Ciao
a naso....prova a sostituire (0,3) con (0,-2)
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 3 | Registrato il: 22/12/2017
| Città: MILANO | Età: 44 | Utente Junior | Excel2016 | | OFFLINE | |
|
| 22/12/2017 17:39 | |
Inserire automaticamente orario in cella Grazie 1000
Auguri!!! ![[SM=x423025]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0005.gif) |
|
|
|
|