Risultati da 1 a 11 di 11

Discussione: Inserimento nomi con Userform



  1. #1
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Inserimento nomi con Userform

    Buonasera a tutti.
    Sono nuovamente alle prese con la Userform. Ho creato una macro Iscritti, ho creato una userform per inserire gli iscritti nella colonna X, eseguo la usereform inserendo un nome, ma non succede nulla, né mi da alun tipo di errore. Sicuramente avrò omesso qualcosa...... ma cosa? Grazie

    Allego il file di esempio
    File Allegati File Allegati

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7153
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300

    Re: Inserimento nomi con Userform

    Ciao,
    hai dichiarato Riga come String e poi vuoi sommarla +1, cambiala in Integer

    Fai questa correzione:
    Codice: 
    Private Sub CommandButton1_Click()
    Dim Riga As Integer
     Riga = 5 'si imposta il numero di una riga iniziale
     While Sheets(1).Cells(Riga, "X") <> ""   'fino a che la cella, numero Riga, colonna 1 (la A) è diversa da vuota, quindi occupata
    Riga = Riga + 1    ' si incrementa di una unità il numero di Riga
     Wend                   'e si continua fino a che non si verifica una condizione diversa da vuota
     Cells(Riga, "X") = TextIscritti.Text 'trovata la cella libera, si rende la stessa uguale alla textbox1. e a seguire, si incrementa la colonna, stessa Riga, per ogni
      'TextBox
     Range("A1").Select
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento nomi con Userform

    Perfetto Ges grazie 1000 per la soluzione ...... geniale. Michele

  5. #4
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento nomi con Userform

    Buongiorno a tutti.
    Scusate ragazzi, con excel 2010 ho inserito il nuovo codice ed era tutto OK, ho messo excell 2013 e non funziona più. Grazie

  6. #5
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1114
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Inserimento nomi con Userform

    non funziona più è un po' vago, cosa succede ? inserisci uno stop dopo riga = 5, quando il codice si ferma avanza con F8 controllando i valori delle variabili.
    Io non ho excel 2013 installato, l'ho provato e non mi piaceva, quindi non posso fare di più.
    Un'altra soluzione è questa
    Codice: 
    Private Sub CommandButton1_Click()
    Dim LR As Integer
     LR = Cells(Rows.Count, "X").End(xlUp).Row + 1
     If LR < 5 Then LR = 5
     Cells(LR, "X") = TextIscritti.Text 'trovata la cella libera, si rende la stessa uguale alla textbox1. e a seguire, si incrementa la colonna, stessa Riga, per ogni
    End Sub
    Ultima modifica fatta da:patel; 24/06/16 alle 10:49

  7. #6
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento nomi con Userform

    Ciao patel ti ringrazio per la risposta, ho modificato il codice ma non succede nulla, nella colonna X dalla X5 non mi compaiono i nomi. Grazie

  8. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7153
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300

    Re: Inserimento nomi con Userform

    Ciao,
    strano che col 2013 non funziona ... dovrebbe funzionare!
    Codice: 
    Private Sub CommandButton1_Click()
    Dim Riga As Integer
     Riga = 5 'si imposta il numero di una riga iniziale
     While Sheets(1).Cells(Riga, "X") <> ""   'fino a che la cella, numero Riga, colonna 1 (la A) è diversa da vuota, quindi occupata
    Riga = Riga + 1    ' si incrementa di una unità il numero di Riga
     Wend                   'e si continua fino a che non si verifica una condizione diversa da vuota
     Cells(Riga, "X") = TextIscritti.Text 'trovata la cella libera, si rende la stessa uguale alla textbox1. e a seguire, si incrementa la colonna, stessa Riga, per ogni
      'TextBox
     Range("A1").Select
    End Sub
    Per evitare errori di copiatura ti allego il file che a me funziona.
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #8
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento nomi con Userform

    Perfetto ges ti ringrazio, ora è tutto OK

  10. #9

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7153
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300

    Re: Inserimento nomi con Userform

    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  11. #10
    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
    572

    Re: Inserimento nomi con Userform

    cosi compaiono.....ti ho messo pure che una volta inserito il nome....si resetta da sola e si posiziona il cursore nella testbox di inserimento

    Ges...non ti avevo letto
    File Allegati File Allegati

  12. #11

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7153
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300

    Re: Inserimento nomi con Userform

    Ciao Danilo,
    nessun problema.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

Discussioni Simili

  1. Ricerca nomi con inserimento data
    Di Enzokar nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 16/02/17, 22:39
  2. [Risolto] Bloccare inserimento multiplo di nomi
    Di Mammut65 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 01/10/16, 18:36
  3. Inserimento dati da UserForm
    Di dpg70 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 27/08/16, 19:04
  4. Inserimento nomi in menu a tendina
    Di FRANCI nel forum Domande su Excel in generale
    Risposte: 26
    Ultimo Messaggio: 15/05/16, 21:39
  5. [Risolto] userform per inserimento dati
    Di gianluca33 nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 04/11/15, 15:11

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
  •