Risultati da 1 a 7 di 7

Discussione: while wend



  1. #1
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1171
    Versione Office
    Excel 2010
    Likes ricevuti
    511
    Likes dati
    572

    while wend

    Buonasera a tutti nel file che allego ho inserito un calendario il codice riporta il valore da B1,C1D 1etc...non riesco a farlo partire da B2.....(per cui inserire i dati in B2 C2 D2 etc) come devo modificare il codice?
    Codice: 
    Private Sub Calendar1_Click()
     Column = 2
        While Cells(Column) <> ""
            Column = Column + 1
        Wend
        Cells(Column) = Calendar1.Value
    End Sub
    File Allegati File Allegati

  2. #2
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: while wend

    ciao,
    prova così

    Codice: 
    Private Sub Calendar1_Click()
     c = 2
     r = 2
        While Cells(r, c).Value <> ""
            c = c + 1
        Wend
        Cells(r, c).Value = Calendar1.Value
       
    End Sub


    ciao
    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  3. I seguenti utenti hanno dato un "Like"


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

    Re: while wend

    grazie.....funziona...avevo impostato solo la colonna....grazie ancora

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

    Re: while wend

    Ciao ed un saluto a Frank

    oppure fai così
    Codice: 
    Private Sub Calendar1_Click()
        Column = 2
        While Cells(2, Column) <> ""
            Column = Column + 1
        Wend
        Cells(2, Column) = Calendar1.Value
    End Sub
    Ciao,
    Mario

  6. I seguenti utenti hanno dato un "Like"


  7. #5
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1171
    Versione Office
    Excel 2010
    Likes ricevuti
    511
    Likes dati
    572

    Re: while wend

    grazie ....funziona anche cosi.......

  8. #6
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    258
    Versione Office
    Excel 2007
    Likes ricevuti
    36
    Likes dati
    4

    Re: while wend

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao ed un saluto a Frank

    oppure fai così
    Codice: 
    Private Sub Calendar1_Click()
        Column = 2
        While Cells(2, Column) <> ""
            Column = Column + 1
        Wend
        Cells(2, Column) = Calendar1.Value
    End Sub
    Ciao,
    Mario
    Ciao Mario,
    come hai consigliato risparmi una riga di codice...... lascia andare le braccia.......
    qualcuno potrebbe dire che sei andato a scuola da Marco.....:167:

    :43::43::43:

    Frank
    Excel 2007 win7 - Ogni Progetto è composto da Micro Progetti: PRIMA risolvi quelli, e PRIMA raggiungi il completamento del Progetto!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  9. #7
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3224
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    Re: while wend

    Ciao Frank
    cerco di seguire i suoi consigli.
    Ma se guardiamo bene e, invece di contare le righe, contiamo le battute mi ... batti di gran lunga:167:

    Ciao,
    Mario

  10. I seguenti utenti hanno dato un "Like"


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
  •