Risultati da 1 a 11 di 11

Discussione: inserimento di una data in maniera statica



  1. #1
    L'avatar di max72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Parigi
    Età
    45
    Messaggi
    74
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    inserimento di una data in maniera statica

    Buon giorno a tutti, ho creato una tabella abbastanza avanzata per il mio lavoro;
    la mia domanda è questa: come faccio a far si che quando creo la riga successiva si inserisca la data di OGGI in maniera statica nella cella "Data Fattura"?
    grazie a tutti.
    File Allegati File Allegati

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3209
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155

    Re: inserimento di una data in maniera statica

    Ciao Max
    potresti dare uno sguardo a questo link
    Inserire data e ora in automatico che rimangono fisse (Evento Change e metodo Intersect)


    Ciao,
    Mario

  3. #3
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571

    Re: inserimento di una data in maniera statica

    Ciao con questa sub da inserire nel modulo di classe del foglio2 se scrivi nella riga bella colonna B ti riporta la data sulla corrispondente cella della colonna C
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B3:B1000")) Is Nothing And Target <> "" Then
        Riga = 3 'si imposta il numero di una riga iniziale
        While Cells(Riga, 3) <> ""   'fino a che la cella, numero Riga, colonna 3 (la C) è diversa da vuota, quindi occupata
            Riga = Riga + 1    ' si incrementa di una unità il numero di Riga
        Wend                   'e si continua fino a che non si verifica una condizione diversa da vuota
        Cells(Riga, 3) = Date
    End If
    End Sub
    File Allegati File Allegati

  4. I seguenti utenti hanno dato un "Like"

    ges

  5. #4
    L'avatar di max72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Parigi
    Età
    45
    Messaggi
    74
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire data e ora in automatico che rimangono fisse (Evento Change e metodo Intersect)

    Scusami Ges, ma a me non succede nulla, le ho provate tutte, ho cambiato anche i numeri di riga, ma non succede nulla, inoltre mi serve di mettere solo la data e non l'ora.
    dove sbaglio?

  6. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: inserimento di una data in maniera statica

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    Ciao con questa sub da inserire nel modulo di classe del foglio2 se scrivi nella riga bella colonna B ti riporta la data sulla corrispondente cella della colonna C
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B3:B1000")) Is Nothing And Target <> "" Then
        Riga = 3 'si imposta il numero di una riga iniziale
        While Cells(Riga, 3) <> ""   'fino a che la cella, numero Riga, colonna 3 (la C) è diversa da vuota, quindi occupata
            Riga = Riga + 1    ' si incrementa di una unità il numero di Riga
        Wend                   'e si continua fino a che non si verifica una condizione diversa da vuota
        Cells(Riga, 3) = Date
    End If
    End Sub
    Ciao Danilo,
    buona soluzione la tua ma ha il problema che inserendo la data in una riga vuota una dietro l'altra nel caso venga saltata una riga della colonna B saltano anche gli appaiamenti tra l'inserimento e la data.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Inserire data e ora in automatico che rimangono fisse (Evento Change e metodo Intersect)

    Citazione Originariamente Scritto da max72 Visualizza Messaggio
    Scusami Ges, ma a me non succede nulla, le ho provate tutte, ho cambiato anche i numeri di riga, ma non succede nulla, inoltre mi serve di mettere solo la data e non l'ora.
    dove sbaglio?
    Ciao,
    prova così:
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim uRiga As Long
            uRiga = Range("B" & Rows.Count).End(xlUp).Row
                  If Not Intersect(Target, Range("B1" & ": B" & uRiga)) Is Nothing Then
                        Application.EnableEvents = False
                            Target.Offset(0, 1) = Format(Date, "mm/dd/yyyy")
                        Application.EnableEvents = True
                 End If
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. #7
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571

    Re: inserimento di una data in maniera statica

    si è vero ho pensato che probabilmente l'inserimento in colonna B sia sempre il primo dato non ne conosco l'utilizzo ma che senso avrebbe lasciare una riga vuota visto che in colonna A ci sono dei numeri in progressione....

  9. #8

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0

    Re: Inserire data e ora in automatico che rimangono fisse (Evento Change e metodo Intersect)

    Citazione Originariamente Scritto da max72 Visualizza Messaggio
    dove sbaglio?
    Devi spiegare bene le azioni che compi ed il risultato che vuoi ottenere, p.e.:

    • Scelgo una voce dall'elenco a discesa della cella B
    • nella cella A a sinistra viene inserito il nr. progressivo
    • nella cella C a destra (oppure sotto??) deve essere scritta la data della fattura
    • etc...
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  10. #9
    L'avatar di max72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Parigi
    Età
    45
    Messaggi
    74
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire data e ora in automatico che rimangono fisse (Evento Change e metodo Intersect)

    Grazie Ges, ora è perfetto, infatti mancava la variabile, e grazie a tutti per l'aiuto.

  11. #10
    L'avatar di max72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Parigi
    Età
    45
    Messaggi
    74
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Inserire data e ora in automatico che rimangono fisse (Evento Change e metodo Intersect)

    Scusate, com'è che si mette "risolto"in una discussione?
    Buona giornata a tutti.

  12. #11
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2290
    Versione Office
    Excel 2010
    Likes ricevuti
    910
    Likes dati
    450

    Re: Inserire data e ora in automatico che rimangono fisse (Evento Change e metodo Intersect)

    Ciao a tutti,
    @ Max72, per il "Risolto" momentaneamente ci sono dei problemi tecnici e per ora non è più attivo.

Discussioni Simili

  1. Inserimento DATA e ORA correnti
    Di simone90 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 26/02/17, 21:16
  2. Ricerca nomi con inserimento data
    Di Enzokar nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 16/02/17, 22:39
  3. [Risolto] Inserimento data e ora non modificabili
    Di ROBERTOB nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 13/02/17, 21:28
  4. [Risolto] Inserimento di dati in celle data base
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 28
    Ultimo Messaggio: 04/02/17, 12:55
  5. UserForm inserimento data
    Di Gerardo Zuccalà nel forum Domande su Excel VBA e MACRO
    Risposte: 33
    Ultimo Messaggio: 05/11/16, 18:35

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •