Risultati da 1 a 6 di 6

Discussione: Errore in 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

    Errore in Userform

    Buonasera a tutti.
    Ho creato una Userform con cui inserire dei nomi. Questi nomi i devono comparire nella colonna R dalla R5 in poi, ma evidentemente ho sbagliato qualcosa, perché inserendo il nome nella maschera ed attivando Inserisci non succede nulla ...... dove sbaglio? Grazie

    Allego il file di prova.
    File Allegati File Allegati
    Ultima modifica fatta da:ges; 17/06/16 alle 00:58

  2. #2
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2302
    Versione Office
    Excel 2010
    Likes ricevuti
    913
    Likes dati
    451

    Re: Errore in Userform

    Ciao Roky48, il codice lo devi inserire nell'userform no nel modulo.
    Poi avevi il nome del texbox1 diverso.
    Questio il tuo codice riportato nell'userform e rettificato nome texbox1:

    Codice: 
    
    Private Sub CommandButton1_Click()
    Dim wsh As Worksheet
    Dim uriga As Long
    Set wsh = ThisWorkbook.Worksheets("Foglio1")
    uriga = wsh.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range("R" & uriga).Value = UCase(TextBox1)
    
    
    TextBox1 = ""
    TextBox1.SetFocus
    Set wsh = Nothing
    Range("A1").Select
    End Sub
    File Allegati File Allegati

  3. I seguenti utenti hanno dato un "Like"


  4. #3

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Errore in Userform

    Prova così:
    Routine evento pulsante nella UserForm

    Codice: 
    Private Sub CommandButton1_Click()
    Dim iRow As Long
    
    
    iRow = 5
    Do Until Foglio1.Range("R" & iRow) = ""
        iRow = iRow + 1
    Loop
    Foglio1.Range("R" & iRow) = TextBox1
    End Sub
    EDIT: @Berna11 ci siamo sovrapposti, ma credo che @roky48 voleva scrivere a partire da R5

  5. I seguenti utenti hanno dato un "Like"


  6. #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
    572

    Re: Errore in Userform

    Vedi se va bene nella maschera ho messo pure un pulsante per uscire e uno per resettarla....
    File Allegati File Allegati

  7. I seguenti utenti hanno dato un "Like"


  8. #5
    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: Errore in Userform

    Ragazzi siete UNICI, vi ringrazio per la celerità della risoluzione ....... Ottima ....... Danilo l'ha completata nel migliore dei modi. Vi ringrazio tutti indistintamente. Michele

  9. #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
    572

    Re: Errore in Userform

    grazie....

Discussioni Simili

  1. Errore mio o baco ?
    Di Ab_Fab nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 27/11/16, 21:10
  2. [Risolto] Errore SE
    Di roky48 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 19/09/16, 13:55
  3. Errore in VBA
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 25/06/16, 08:47
  4. errore con =se()
    Di albert30 nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 06/03/16, 21:02
  5. [Risolto] errore #N/D
    Di Dagatos nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 22/06/15, 10:47

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
  •