Pulsante (Macro) per inserire Data e Ora
Nemo
devo far usare un foglio di excel a persone che non hanno mai utilizzato il
computer e dovrebbero inserire solamente con tastierino numerico la data con
l'ora. Mi chiedevo se � possibile applicare 3 pulsanti che alla pressione
inseriscono la data e l'ora di sistema (del computer) nella relativa
colonna,
ma in progressione della cella vuota verso il basso.
Es:
Carico in partenza - DataPrenotazione - DataInizioCarico - DataPartenza
A1
A2
A3
ecc
Grazie in anticipo!
Nemo
Antonio
"Nemo" ha scritto:
> Ciao a Tutti,
>
> devo far usare un foglio di excel a persone che non hanno mai utilizzato il
> computer e dovrebbero inserire solamente con tastierino numerico la data con
> l'ora. Mi chiedevo se è possibile applicare 3 pulsanti che alla pressione
> inseriscono la data e l'ora di sistema (del computer) nella relativa
> colonna,
> ma in progressione della cella vuota verso il basso.
>
> Es:
>
> Carico in partenza - DataPrenotazione - DataInizioCarico - DataPartenza
> A1
> A2
> A3
> ecc
>
Ho considerato colonne B,C e D, formattale in formato Data Personalizzato
gg/mm/aaaa h.mm o qualcosa del genere
poi metti tre pulsanti a associ il relativo codice, ad esempio nel modulo
del foglio copia le seguenti:
Private Sub CommandButton1_Click()
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Date & " " & Time
End Sub
Private Sub CommandButton2_Click()
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Date & " " & Time
End Sub
Private Sub CommandButton3_Click()
Range("D65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Date & " " & Time
End Sub
Ciao
Antonio
Nemo
>"Antonio" ha scritto nel messaggio> "Nemo" ha scritto:
> Ho considerato colonne B,C e D, formattale in formato Data Personalizzato
> gg/mm/aaaa h.mm o qualcosa del genere
> poi metti tre pulsanti a associ il relativo codice, ad esempio nel modulo
> del foglio copia le seguenti:
>
>
> Private Sub CommandButton1_Click()
> Range("B65536").End(xlUp).Offset(1, 0).Select
> ActiveCell.Value = Date & " " & Time
> End Sub
>
> Private Sub CommandButton2_Click()
> Range("C65536").End(xlUp).Offset(1, 0).Select
> ActiveCell.Value = Date & " " & Time
> End Sub
>
> Private Sub CommandButton3_Click()
> Range("D65536").End(xlUp).Offset(1, 0).Select
> ActiveCell.Value = Date & " " & Time
> End Sub
>
>
> Ciao
> Antonio
Grazie Antonio!!
si le colonne erano giuste....quando ho un attimo di tempo le provo!
Grazie mille,
Ciao
Nemo
Nemo
FUNZIONA!! Grazie!
Se a causa di titoli e sottotitoli, la data&ora dovessero partire dalla
cella B7 in gi�, come dovrei fare? Ho provato ad inserire nel Range
("B7:B65536", ma non funzia.
Comunque, ti ringrazio lo stesso se non hai la risposta, la macro funziona!
Un cordiale saluto,
Nemo
Comunque
eliano
"Nemo" ha scritto:
> FUNZIONA!! Grazie!
> Se a causa di titoli e sottotitoli, la data&ora dovessero partire dalla
> cella B7 in giù, come dovrei fare? Ho provato ad inserire nel Range
> ("B7:B65536", ma non funzia.
> Comunque, ti ringrazio lo stesso se non hai la risposta, la macro funziona!
> Un cordiale saluto,
> Nemo
>
Ciao Nemo.
Mi sembra che se hai 6 righe di titoli e sottotitoli, la domanda appare
strana.
Infatti le tre routine scrivono la data e l'ora proprio sulla prima riga
disponibile, cioè a partire dalla 7.
Qual'è il problema reale ? Grazie.
Eliano
eliano
"eliano" ha scritto:
Ariciao Nemo.
Prova con questa soluzione: se fai doppio clic sx su una cella ti scrive
data e ora.
Da copiare nel modulo del foglio interessato:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim isect As Range
Set isect = Intersect(Range("B7:D65536"), Target)
If isect Is Nothing Then Exit Sub
Target.Value = Date & " " & Time
End Sub
Comunque facci sapere,
Eliano
eliano
"eliano" ha scritto:
> Ariciao Nemo.
> Prova con questa soluzione: se fai doppio clic sx su una cella ti scrive
> data e ora.
> Da copiare nel modulo del foglio interessato:
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> Dim isect As Range
> Set isect = Intersect(Range("B7:D65536"), Target)
> If isect Is Nothing Then Exit Sub
> Target.Value = Date & " " & Time
> End Sub
>
> Comunque facci sapere,
> Eliano
Andiamo al risparmio. Sostituiscila con questa:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("B7:D65536")) Is Nothing Then Exit Sub
Target.Value = Date & " " & Time
Cancel = True
End Sub
Ciao
Eliano
Nemo
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> If Intersect(Target, Range("B7:D65536")) Is Nothing Then Exit Sub
> Target.Value = Date & " " & Time
> Cancel = True
> End Sub
>
> Ciao
> Eliano
GRANDE Eliano!!
Non avevo notato che le funzioni di Antonio scrivevano la Data&Ora nella
*prima riga vuota disponibile*, caspita � bello!!
Anche la tua macro funziona efficentemente e senza punsalti di ingombro!!
Ora si tratta di educare/istruire alcuni degli utenti finali al doppio
click.
Non sorridere, ma � cos�, alcune persone si avvicinano solamente ora
all'informatica/PC.
Cmq non � mai troppo tardi.
Grazie mille per il vostro aiuto!
Un cordiale saluto,
Nemo
eliano
"Nemo" ha scritto:
> > Andiamo al risparmio. Sostituiscila con questa:
> >
> > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> > Boolean)
> > If Intersect(Target, Range("B7:D65536")) Is Nothing Then Exit Sub
> > Target.Value = Date & " " & Time
> > Cancel = True
> > End Sub
> >
> > Ciao
> > Eliano
>
>
> GRANDE Eliano!!
> Non avevo notato che le funzioni di Antonio scrivevano la Data&Ora nella
> *prima riga vuota disponibile*, caspita è bello!!
> Anche la tua macro funziona efficentemente e senza punsalti di ingombro!!
>
> Ora si tratta di educare/istruire alcuni degli utenti finali al doppio
> click.
> Non sorridere, ma è così, alcune persone si avvicinano solamente ora
> all'informatica/PC.
> Cmq non è mai troppo tardi.
>
Grazie a te per il riscontro, Nemo; comunque non sono grande, sono solo
grosso e, a scanso di equivoci, non potrò mai essere di "peso". :-)) (Ciao
Roby)
Saluti
Eliano
Nemo
> Roby)
> Saluti
> Eliano
Non sminuirti....sei *Grande* davvero!!
Ciao
Nemo
Nemo
"Nemo" <ne...@home.com> ha scritto nel messaggio
news:4a0c538b$0$18936$4faf...@reader2.news.tin.it...
>> Grazie a te per il riscontro, Nemo; comunque non sono grande, sono solo
>> grosso e, a scanso di equivoci, non potr� mai essere di "peso". :-))
>> (Ciao
>> Roby)
>> Saluti
>> Eliano
>
>
ma se io ho 31 fogli di lavoro tutti identiti, uno per ogni giorno, ogni
volta che il mese cambia devo incollare la routine in tutti i 31 fogli,
oppure posso inollarla da qualche parte una sola volta.
Granzie in anticipo per la risposta.
Un cordiale saluto,
Nemo
Mauro Gamberini
> volta che il mese cambia devo incollare la routine in tutti i 31 fogli,
> oppure posso inollarla da qualche parte una sola volta.
> Granzie in anticipo per la risposta.
>
Nel modulo di codice di ThisWorkbook hai
l'evento:
Private Sub Workbook_SheetBeforeDoubleClick( _
ByVal Sh As Object, ByVal Target As Range, _
Cancel As Boolean)
If Intersect(Target, Range("B7:D65536")) Is Nothing Then Exit Sub
Target.Value = Date & " " & Time
Cancel = True
End Sub
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/
Nemo
>
>
Grazie mille Mauro!!
Un cordialissimo saluto,
Nemo
nicola.bra...@gmail.com
Ad ogni modo, rimanendo in tempo, avrei bisogno che ogni volta che premo il pulsante di inserimento data si aggiorni sempre la stessa cella e bon che passi alla prima libera successiva. È possibile?
Saluto e ringrazio tutti.