Risultati da 1 a 8 di 8

Discussione: Calendario



  1. #1
    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

    Calendario

    Buonasera a tutti nel file di esempio che allego spingendo il pulsante "calendario" si apre una userform con il calendario che invia la data alla cella A1 avrei bisogno una volta inserita la data in A1 di inserire una seconda data in B1 (dal/al) come devo scrivere la riga di codice?....grazie Danilo
    File Allegati File Allegati

  2. #2
    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: Calendario

    Codice: 
    Private Sub Calendar1_Click()
     Sheets(1).[A1] = Calendar1.Value
     If Sheets(1).[A1] <> "" Then
     Sheets(1).[B1] = Calendar1.Value
     End If
     End Sub
    
    Private Sub CommandButton1_Click()
     Unload Me
     Set UserForm1 = Nothing
     End Sub
    credevo di risolvere cosi ma non va...

  3. #3
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: Calendario

    Strano, io stavo per suggerirti qualcosa così (non verificato perché non posso usare il tuo calendario):
    Codice: 
    Private Sub Calendar1_Click()
    
        If Sheets(1).[A1] = "" Then
            Sheets(1).[A1] = Calendar1.Value 'inviamo la data ad una cella del foglio1
        Else
            Sheets(1).[B1] = Calendar1.Value
        End If
    
    End Sub

  4. #4
    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: Calendario

    Sei stato bravissimo con il tuo codice funziona io ho ragionato con la funzione se (a1 piena allora vai su b1) ma non ho inserito else (altrimenti)...

  5. #5
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: Calendario

    Grazie del tuo riscontro positivo, è un piacere essere stato d'aiuto. Bisogna però ricordarsi che A1, almeno la prima volta, deve essere vuota altrimenti non verrà mai ri-aggiornata.
    Se la tua domanda è stata risolta, per favore, segna questa discussione come [RISOLTO]. Vai nella barra dei menu, situata all’inizio di questa discussione, dove troverai il menu "Strumenti Discussione" quindi scegli "Segna questo Thread come risolto".

  6. #6
    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: Calendario

    Sì lo so il procedimento mi avete aiutato infinite volte. ..grazie....

  7. #7
    L'avatar di cianricc
    Clicca e Apri
    Data Registrazione
    Jan 2017
    Località
    grosotto (so)
    Età
    60
    Messaggi
    50
    Versione Office
    office 2010-16
    Likes ricevuti
    2
    Likes dati
    36

    Re: Calendario

    Citazione Originariamente Scritto da rollis13 Visualizza Messaggio
    Strano, io stavo per suggerirti qualcosa così (non verificato perché non posso usare il tuo calendario):
    Codice: 
    Private Sub Calendar1_Click()
    
        If Sheets(1).[A1] = "" Then
            Sheets(1).[A1] = Calendar1.Value 'inviamo la data ad una cella del foglio1
        Else
            Sheets(1).[B1] = Calendar1.Value
        End If
    
    End Sub
    quando apro il file mi dice che manca un "oggetto" sul mio computer: qual'è?

  8. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6795
    Versione Office
    2013
    Likes ricevuti
    718
    Likes dati
    164

    Re: Calendario

    Ciao Riccardo

    Se tu hai Excel 2007 come vedo è strano che ti dica "manca oggetto"; per le versioni successive il problema c'è.

    Se hai il 2007 nell'editor di VBA apri una userform e clicca con il tasto dx del mouse sulla casella degli strumenti e nella finestra successiva cerca e spunta "Controllo calendario 12.0"
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

Discussioni Simili

  1. Calendario consegne
    Di 17cavalli nel forum Domande su Excel in generale
    Risposte: 22
    Ultimo Messaggio: 22/01/17, 21:36
  2. calendario
    Di Anton70 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 19/05/16, 23:37
  3. Calendario
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 11/03/16, 17:03
  4. Calendario
    Di dautattmaui nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 27/02/16, 20:22
  5. far apparire un calendario
    Di scapu65 nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 01/07/15, 20:09

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
  •