Risultati da 1 a 18 di 18

Discussione: Inserire data odierna o un'altra data.



  1. #1
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Inserire data odierna o un'altra data.

    Buongiorno o cercato nel sito ma non ho trovato niente di simile.
    Nella mia Userform 3 ho una texstbox dove la data dovrebbe essere quella di oggi ma se vorrei inserire un'altra data
    tramite checkbox spuntarlo e inserire manualmente una data.
    Ho provato con data now,ma non mi caricava automaticamente;
    File Allegati File Allegati
    Una bella giornata a tutti i fanatici di qualcosa ...

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Inserire data odierna o un'altra data.

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    Buongiorno o cercato nel sito ma non ho trovato niente di simile.
    Nella mia Userform 3 ho una texstbox dove la data dovrebbe essere quella di oggi ma se vorrei inserire un'altra data
    tramite checkbox spuntarlo e inserire manualmente una data.
    Ho provato con data now,ma non mi caricava automaticamente;
    Ciao Laura, devo dire che è poco chiara la richiesta.
    La data non la puoi inserire tramite CheckBox che serve solo a spuntare un dato

    Se vuoi inserire la data odierna nella TextBox prova così:
    Codice: 
    Private Sub UserForm_Initialize()
        'UserForm3.Show
        TextBox1 = Date
    End Sub
    P.S. Ho reso un commento la prima riga in quanto genera un Loop (all'inizzializzazione della Form, apre la Form)

  3. #3
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: Inserire data odierna o un'altra data.

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    Buongiorno o cercato nel sito ma non ho trovato niente di simile.
    Nella mia Userform 3 ho una texstbox dove la data dovrebbe essere quella di oggi ma se vorrei inserire un'altra data
    tramite checkbox spuntarlo e inserire manualmente una data.
    Ho provato con data now,ma non mi caricava automaticamente;
    ciao non so se ho compreso la necessità ma prova a vedere se ho indovinato.
    File Allegati File Allegati

  4. #4
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Inserire data odierna o un'altra data.

    Nessi hai indovinato.
    Pero' utile sarebbe spuntare l'altra data e la data odierna si oscurasse nella userform.
    Comunque grazie ora mi leggo il codice anche di Rubik,

    Grazie a tutti e due per la risposta veloce.
    Una bella giornata a tutti i fanatici di qualcosa ...

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

    Re: Inserire data odierna o un'altra data.

    Buon giorno a tutti
    Se ho capito la richiesta (ma Rubik - che saluto - ha ragione nel dire che è poco chiara) credo che Laura voglia il susseguirsi delle seguenti azioni:
    - clicco su CommandButton1
    a questo punto:
    - se la cella D1 è vuota la TextBox1 di UserForm3 deve mostrarmi la data odierna
    - se la cella D1 è piena la TextBox1 di UserForm3 deve mostrami la data presente in D1
    Se così fosse il codice di CommandButton1 potrebbe essere il seguente:
    Codice: 
    Private Sub CommandButton1_Click()
        If [D1] = "" Then UserForm3.TextBox1 = Date Else UserForm3.TextBox1 = [D1]
        UserForm3.Show
    End Sub
    Senza alcun bisogno di CheckBox. Eventualmente TextBox1 accetta un dato immesso manualmente.
    Ciao,
    Mario

  6. #6
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Inserire data odierna o un'altra data.

    Hey Marius
    la checkbox mi serve per avere un inserimento di dati più chiaro.
    Cosi' quando voglio inserire un'altra data devo fare uno step in più.
    Quella di Nessi è la soluzione quasi ideale
    Una bella giornata a tutti i fanatici di qualcosa ...

  7. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Inserire data odierna o un'altra data.

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    [...]
    Quella di Nessi è la soluzione quasi ideale
    Cosa manca affinché sia ideale?
    (purtroppo continuo a non capire)

  8. #8
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: Inserire data odierna o un'altra data.

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    Nessi hai indovinato.
    Pero' utile sarebbe spuntare l'altra data e la data odierna si oscurasse nella userform.
    Comunque grazie ora mi leggo il codice anche di Rubik,

    Grazie a tutti e due per la risposta veloce.
    Ciao prova così.
    Un saluti a Rubik e Marius (non necessariamente nell'ordine
    File Allegati File Allegati

  9. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Inserire data odierna o un'altra data.

    Citazione Originariamente Scritto da nessi Visualizza Messaggio
    Ciao prova così.
    Un saluti a Rubik e Marius (non necessariamente nell'ordine
    ciao nessi, variando il CheckBox cancella sempre la date nella TextBox.
    Forse intendevi questo:
    Codice: 
    Private Sub CheckBox1_Click()
    If CheckBox1 Then
        TextBox1 = Date
    Else
        TextBox1 = ""
    End If
    End Sub
    ma potrei anche sbagliarmi

  10. #10
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: Inserire data odierna o un'altra data.

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    ciao nessi, variando il CheckBox cancella sempre la date nella TextBox.
    Forse intendevi questo:
    Codice: 
    Private Sub CheckBox1_Click()
    If CheckBox1 Then
        TextBox1 = Date
    Else
        TextBox1 = ""
    End If
    End Sub
    ma potrei anche sbagliarmi
    Ciao Rubik, tu nel torto ed io in ragione sarebbe un'eresia anche di fronte all'evidenza .
    quello che mi ha confermato è che vorrebbe che le due textbox indicassero:
    se checkbox1= true
    textbox1=""
    txtDatum= inserimento a mano libera

    se checkbox1=false
    textbox1=date
    txtDatum=""

    ho modificato il file. che ne pensi?
    File Allegati File Allegati

  11. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Inserire data odierna o un'altra data.

    prova con questa routine:
    Codice: 
    Private Sub CheckBox1_Click()
    If CheckBox1 Then
        TextBox1 = ""
        txtDatum.Enabled = True
        txtDatum.SetFocus
    Else
        TextBox1 = Date
        TextBox1.SetFocus
        txtDatum = ""
        txtDatum.Enabled = True
    End If
    End Sub
    
    
    Private Sub CommandButton3_Click()
    Sheets("User").Select
    If TextBox1 = "" Then
    [D1] = txtDatum
    Else
    [D1] = TextBox1
    End If
    UserForm3.Hide
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    'UserForm3.Show
    txtDatum.Enabled = False
    TextBox1 = Date
    CheckBox1 = False
    End Sub

  12. I seguenti 2 utenti hanno dato un "Like" a Rubik72 per questo post:


  13. #12
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: Inserire data odierna o un'altra data.

    Direi che Laura può essere ampiamente soddisfatta
    Ciao!

  14. #13
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Inserire data odierna o un'altra data.

    Nessi ,Rubik
    scusate per il ritardo e non so' che dire della gentilezza.
    Dopo le provo e faccio sapere. Dal file di Esempio mi sembra ok.

    Un saluto dal Belgio
    Una bella giornata a tutti i fanatici di qualcosa ...

  15. #14
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Inserire data odierna o un'altra data.

    Perfetto. Ora soltanto per renderla più "attraente",come posso dare un messaggio di errore se la data sarebbe nel futuro?
    Ed un'alto messaggio se la data si trovasse in un elenco,che sono le date già compilate?

    Grazie in anticipo. Io nel frattempo cerco di scrivere qualcosa.
    Una bella giornata a tutti i fanatici di qualcosa ...

  16. #15

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Inserire data odierna o un'altra data.

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    Perfetto. Ora soltanto per renderla più "attraente",come posso dare un messaggio di errore se la data sarebbe nel futuro?
    [...]
    prova con questo codice:
    Codice: 
    Private Sub CheckBox1_Click()
    If CheckBox1 Then
        TextBox1 = ""
        txtDatum.Enabled = True
        txtDatum.SetFocus
    Else
        TextBox1 = Date
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1)
        TextBox1.SetFocus
        txtDatum = ""
        txtDatum.Enabled = True
    End If
    End Sub
    
    
    Private Sub CommandButton3_Click()
    Sheets("User").Select
    If TextBox1 = "" Then
        If CDate(txtDatum) > Date Then
            MsgBox "Data successiva alla data odierna", vbCritical + vbOKOnly, "ATTENZIONE"
            txtDatum.SelStart = 0
            txtDatum.SelLength = Len(txtDatum)
            txtDatum.SetFocus
            Exit Sub
        Else
            [D1] = txtDatum
        End If
    Else
        [D1] = TextBox1
    End If
    UserForm3.Hide
    End Sub
    
    
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format(TextBox1, "dd/mm/yy")
    End Sub
    
    
    Private Sub txtDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txtDatum = Format(txtDatum, "dd/mm/yy")
    End Sub
    
    
    Private Sub UserForm_Initialize()
    'UserForm3.Show
    txtDatum.Enabled = False
    TextBox1 = Date
    CheckBox1 = False
    End Sub
    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    [...]Ed un'alto messaggio se la data si trovasse in un elenco,che sono le date già compilate?
    Non ho capito la richiesta, fai un esempio pratico sul file

  17. #16
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Inserire data odierna o un'altra data.

    Come al solito mi sono spiegata male.
    La prima richiesta è stata azzeccata. Hai esaudito un mio desiderio. Ora se nel Range
    h3-h15 la data è già stata utilizzata allora dovrebbe darmi anche un messaggio di errore.

    Un saluto
    File Allegati File Allegati
    Una bella giornata a tutti i fanatici di qualcosa ...

  18. #17

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Inserire data odierna o un'altra data.

    routine da associare al tasto "Start Kpi":
    Codice: 
    Private Sub CommandButton3_Click()
    Dim uRiga As Long
    
    
    uRiga = Range("H" & Rows.Count).End(xlUp).Row
    
    
    
    
    Sheets("User").Select
    
    
    If TextBox1 = "" Then
        If CDate(txtDatum) > Date Then
            MsgBox "Datum in de toekomst", vbCritical + vbOKOnly, "Opletten"
            txtDatum.SelStart = 0
            txtDatum.SelLength = Len(txtDatum)
            txtDatum.SetFocus
            Exit Sub
        Else
            For i = 3 To uRiga
                If CDate(txtDatum) = Range("H" & i) Then
                    MsgBox "Data duplicata", vbCritical + vbOKOnly, "Opletten"
                    txtDatum.SelStart = 0
                    txtDatum.SelLength = Len(txtDatum)
                    txtDatum.SetFocus
                    Exit Sub
                End If
            Next
        [D1] = txtDatum
        End If
    Else
        For i = 3 To uRiga
            If CDate(TextBox1) = Range("H" & i) Then
                MsgBox "Data duplicata", vbCritical + vbOKOnly, "Opletten"
                TextBox1.SelStart = 0
                TextBox1.SelLength = Len(TextBox1)
                TextBox1.SetFocus
                Exit Sub
            End If
        Next
        [D1] = TextBox1
    End If
    UserForm3.Hide
    End Sub

  19. #18
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Belgio
    Età
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Inserire data odierna o un'altra data.

    Rubik ottimo.

    Grazie a tutti voi ho imparato un altra cosa
    Una bella giornata a tutti i fanatici di qualcosa ...

Discussioni Simili

  1. [Risolto] somma valori alla data odierna
    Di zizus nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 12/12/16, 17:02
  2. [Risolto] Ricerca data più vicina alla data odierna
    Di KARLO16 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 12/12/16, 11:07
  3. Evidenziare la data odierna in un calendario
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 34
    Ultimo Messaggio: 18/06/16, 18:33
  4. Risposte: 15
    Ultimo Messaggio: 14/05/16, 22:11
  5. Inserire data odierna
    Di Lety88 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 10/03/16, 08:58

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
  •