Cerca data in calendario



  • Cerca data in calendario
    di Stefano (utente non iscritto) data: 15/11/2016 09:53:15

    Buongiorno a tutti,
    ho creato un piccolo calendario dinamico su Excel utilizzando degli esempi che ho trovato su internet, in quanto ho l'esigenza di creare un form in VBA che mi compili un planning.


    Ho estrapolato il numero del giorno nella variabile n_giorno (che andrà da 1 a 31) e devo cercare in quale colonna si trova. Nella riga 4, da B4 ad AL4, ho i giorni da 1 a 31 a seconda del mese.

    Una volta trovata la colonna devo scrivere nella riga sottostante.

    Ho trovato alcune discussioni simili ma non ho capito molto purtroppo altrimenti non vi avrei disturbato.

    Potete aiutarmi?

    Grazie mille



  • di patel data: 15/11/2016 10:45:11

    se alleghi quanto hai fatto ci posso provare





  • di Stefano (utente non iscritto) data: 15/11/2016 11:01:29

    Ciao Patel, ho allegato il file del calendario, purtroppo il file con la UserForm contiene troppi dati sensibili e punta a dei file dell'intranet e non funzionerebbe... Spero che possa essere utile



  • di Stefano (utente non iscritto) data: 15/11/2016 11:13:26

    Ho allegato una seconda versione del file con una userform semplificata. (Come percorso ho messo D: se lo copi li dovrebbe funzionare)

    Ci sono 2 DTPicker.

    DTPicker1 indica l'inizio dell'evento
    DTPicker2 la fine dell'evento.

    Devo copiare il contenuto della TextBox1 in corrispondenza della cella sottostante alla data di inizio e unire le celle fino a data fine.

    Spero di essere stato abbastanza esaustivo in caso sono qui per ulteriori chiarimenti

    Grazie mille!!!



  • di Stefano (utente non iscritto) data: 15/11/2016 11:16:40

    Esempio:

    Data inizio: 01/01/2017
    Data fine: 04/01/2017

    TextBox1 = "Ciao"

    Scrivere "CIAO" Unisci B5 - E5



  • di patel data: 15/11/2016 16:12:51

    ho win 64 bit , il tuo file non mi funziona





  • di Stefano (utente non iscritto) data: 16/11/2016 08:59:53

    Anche io ho win 64 bit, strano che non ti funzioni



  • di patel data: 16/11/2016 09:16:48

    vedi allegato cattura.jpg





  • di Stefano (utente non iscritto) data: 16/11/2016 14:06:13

    No ma ti credo figurati patel

    Ho usato questa istruzione per ricavare il numero della colonna

    x = Rows(4).Find(g_inizio, LookIn:=xlValues).Column

    e diciamo ho risolto il problema per il momento.






  • di patel data: 16/11/2016 15:34:43

    io ho allegato l'immagine sperando in un tuo aiuto, non per giustificarmi