aumentare o diminuire giorni



  • aumentare o diminuire giorni
    di Mauro (utente non iscritto) data: 17/12/2013 11:40:48

    Ciao a tutti, in un userform ho una textbox e due pulsanti " + " e " - " . All'avvio del workbook viene inserita la data odierna nella textbox, volevo programmare i due pulsanti per aumentare o diminuire i giorni:
    Private Sub CommandButton1_Click()
    Texbox1.Text = TextBox1.Text + 1
    End Sub
    Private Sub CommandButton2_Click()
    Texbox1.Text = TextBox1.Text - 1
    End Sub
    Allego file di esempio
    Grazie per l'aiuto Mauro


     
    Private Sub CommandButton1_Click()
    Texbox1.Text = TextBox1.Text + 1
    End Sub
    Private Sub CommandButton2_Click()
    Texbox1.Text = TextBox1.Text - 1
    End Sub



  • di totygno71 data: 17/12/2013 11:54:26

    ciao mauro

    al di là degli errori di scrittura del codice "texbox" è diverso da "Textbox"....
    Prova il codice che ti suggerisco
     
    Private Sub CommandButton1_Click()
    TextBox1.Value = CDate(TextBox1) + 1
    End Sub
    
    Private Sub CommandButton2_Click()
    TextBox1.Value = CDate(TextBox1) - 1
    End Sub
    
    Private Sub UserForm_Activate()
    TextBox1 = Format(Now, "dd/mm/yyyy")
    End Sub


  • aumentare o diminuire giorni
    di Mauro (utente non iscritto) data: 17/12/2013 12:19:43

    Grazie totygno71



  • aumentare o diminuire giorni
    di Mauro (utente non iscritto) data: 17/12/2013 12:21:57

    Grazie totygno71