Risultati da 1 a 11 di 11

Discussione: Inserire ed eliminare righe con userform



  1. #1
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    Inserire ed eliminare righe con userform

    3a puntata

    Ho oggettivamente raggiunto il limite della mia capacità di adattare e/o implementare macro.
    https://www.dropbox.com/s/pg0zlu0kt1...1%2B.xlsm?dl=0

    Cosa NON riesco a fare dalla userform:

    1) Cliccando su un nominativo present nella listbox1 si compilano i rispettivi campi e pigiando su tasto Elimina -> elimino l'intera riga nel foglio Anagrafica e ovviamente quello presente nella listbox1 stessa.
    Il codice che non funziona:
    Codice: 
    Private Sub Label38_Click()
    Dim Silinecek_Satir, i As Long
    Dim cevap As String
    
    If TextBox1 = "" Or TextBox2 = "" Then
    Call MsgBox("Selezionare il contatto da eliminare", vbInformation, "Avviso")
    Exit Sub
    End If
        If ListBox1.ListIndex >= 0 Then
    cevap = MsgBox("Il contatto verrà cancellata." _
    & vbCrLf & "Vuoi procedere?", vbYesNo, "Avviso")
               If cevap = vbYes Then
               Yeni_mi = True
               Silinecek_Satir = ListBox1.ListIndex + 2
               Sheets("Anagrafica").Rows(Silinecek_Satir).Delete
                      
        Label14.Caption = ListBox1.ListCount
     End Sub
    End If
    2) Stessa condizione precedente ( campi singoli auto-compilati avendo pigiato un nominativo presente nella listbox1 ma in questo caso vorrei solamente ripulire TUTTI i campi per predisporre l'userform ad un inserimento nuovo.

    Codice che non funziona:
    Codice: 
    Private Sub Label39_Click()
    Dim del As Control
    For Each del In UserForm1.Controls
    If TypeName(del) = "TextBox" Or TypeName(del) = "ComboBox" Then
    del.Text = Empty
    TextBox1.SetFocus
    End If
    Next del
    ListBox1.Value = ""
    End Sub
    ottengo errore anche aggiungendo dopo ListBox1.Value = "" :
    Codice: 
    ListBox2.Value = ""
    Grazie per l'aiuto a comprendere.

    Gene

  2. #2

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

    Re: Inserire ed eliminare righe con userform

    Ciao Gene,
    nel foglio c'è un Activex ed è incompatibile col mio Mac quindi non posso utilizzare le macro inserite, però mi viene subito all'occhio un errore nel primo codice:

    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    ..
    Il codice che non funziona:
    Codice: 
    Private Sub Label38_Click()
    Dim Silinecek_Satir, i As Long
    Dim cevap As String
    
    If TextBox1 = "" Or TextBox2 = "" Then
    Call MsgBox("Selezionare il contatto da eliminare", vbInformation, "Avviso")
    Exit Sub
    End If
        If ListBox1.ListIndex >= 0 Then
    cevap = MsgBox("Il contatto verrà cancellata." _
    & vbCrLf & "Vuoi procedere?", vbYesNo, "Avviso")
               If cevap = vbYes Then
               Yeni_mi = True
               Silinecek_Satir = ListBox1.ListIndex + 2
               Sheets("Anagrafica").Rows(Silinecek_Satir).Delete
                      
        Label14.Caption = ListBox1.ListCount
     End Sub
    End If
    End Sub chiude la routine e dopo non va scritto nulla!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3354
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Inserire ed eliminare righe con userform

    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    3a puntata

    Ho oggettivamente raggiunto il limite della mia capacità di adattare e/o implementare macro.
    https://www.dropbox.com/s/pg0zlu0kt1...1%2B.xlsm?dl=0

    Cosa NON riesco a fare dalla userform:

    1) Cliccando su un nominativo present nella listbox1 si compilano i rispettivi campi e pigiando su tasto Elimina -> elimino l'intera riga nel foglio Anagrafica e ovviamente quello presente nella listbox1 stessa.
    Il codice che non funziona:
    Codice: 
    Private Sub Label38_Click()
    Dim Silinecek_Satir, i As Long
    Dim cevap As String
    
    If TextBox1 = "" Or TextBox2 = "" Then
    Call MsgBox("Selezionare il contatto da eliminare", vbInformation, "Avviso")
    Exit Sub
    End If
        If ListBox1.ListIndex >= 0 Then
    cevap = MsgBox("Il contatto verrà cancellata." _
    & vbCrLf & "Vuoi procedere?", vbYesNo, "Avviso")
               If cevap = vbYes Then
               Yeni_mi = True
               Silinecek_Satir = ListBox1.ListIndex + 2
               Sheets("Anagrafica").Rows(Silinecek_Satir).Delete
                      
        Label14.Caption = ListBox1.ListCount
     End Sub
    End If
    2) Stessa condizione precedente ( campi singoli auto-compilati avendo pigiato un nominativo presente nella listbox1 ma in questo caso vorrei solamente ripulire TUTTI i campi per predisporre l'userform ad un inserimento nuovo.

    Codice che non funziona:
    Codice: 
    Private Sub Label39_Click()
    Dim del As Control
    For Each del In UserForm1.Controls
    If TypeName(del) = "TextBox" Or TypeName(del) = "ComboBox" Then
    del.Text = Empty
    TextBox1.SetFocus
    End If
    Next del
    ListBox1.clear
    End Sub
    Grazie per l'aiuto a comprendere.

    Gene
    modifica le parti in rosso
    per la prima domanda non ho ancora guardato

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3354
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Inserire ed eliminare righe con userform

    Ciao Gene
    allora nel #3 ti ho messo in rosso la cancellazione della listbox
    per quanto riguarda il punto 1 :

    Codice: 
    Private Sub Label38_Click()
    Dim Silinecek_Satir, i As Long
    Dim cevap As String
    
    
    If TextBox1 = "" Or TextBox2 = "" Then
    Call MsgBox("Selezionare il contatto da eliminare", vbInformation, "Avviso")
    Exit Sub
    End If
        If ListBox1.ListIndex >= 0 Then
            cevap = MsgBox("Il contatto verrà cancellato." _
            & vbCrLf & "Vuoi procedere?", vbYesNo, "Avviso")
            If cevap = vbYes Then
               Yeni_mi = True
               Silinecek_Satir = ListBox1.ListIndex + 3
               Sheets("Anagrafica").Rows(Silinecek_Satir).Delete
               ListBox1.RemoveItem ListBox1.ListIndex
            End If
    
    
    '    Label14.Caption = ListBox1.ListCount
        End If
     End Sub
    in rosso le modifiche.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    Re: Inserire ed eliminare righe con userform

    Ciao Baloon,
    è perfetto.
    Per imparare ho provato ad inserire nel codice l'eliminazione anche del nominativo se presente come nuovo assunto ma cancella anche il testo presente nella riga superiore nello stesso foglio. Errore?

    Codice: 
    Private Sub Label38_Click()
    Dim Silinecek_Satir, i As Long
    Dim cevap As String
    
    If TextBox1 = "" Or TextBox2 = "" Then
    Call MsgBox("Selezionare il contatto da eliminare", vbInformation, "Avviso")
    Exit Sub
    End If
        If ListBox1.ListIndex >= 0 Then
            cevap = MsgBox("Il contatto verrà cancellato." _
            & vbCrLf & "Vuoi procedere?", vbYesNo, "Avviso")
            If cevap = vbYes Then
               Yeni_mi = True
               Silinecek_Satir = ListBox1.ListIndex + 3
               Sheets("Anagrafica").Rows(Silinecek_Satir).Delete
               Sheets("0_Nuovo assunto").Rows(Silinecek_Satir).Delete
               ListBox1.RemoveItem ListBox1.ListIndex
            End If
    '    Label14.Caption = ListBox1.ListCount
        End If
     End Sub
    Gene

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3354
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Inserire ed eliminare righe con userform

    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    Ciao Baloon,
    è perfetto.
    Per imparare ho provato ad inserire nel codice l'eliminazione anche del nominativo se presente come nuovo assunto ma cancella anche il testo presente nella riga superiore nello stesso foglio. Errore?

    Codice: 
    Private Sub Label38_Click()
    Dim Silinecek_Satir, i As Long
    Dim cevap As String
    
    If TextBox1 = "" Or TextBox2 = "" Then
    Call MsgBox("Selezionare il contatto da eliminare", vbInformation, "Avviso")
    Exit Sub
    End If
        If ListBox1.ListIndex >= 0 Then
            cevap = MsgBox("Il contatto verrà cancellato." _
            & vbCrLf & "Vuoi procedere?", vbYesNo, "Avviso")
            If cevap = vbYes Then
               Yeni_mi = True
               Silinecek_Satir = ListBox1.ListIndex + 3
               Sheets("Anagrafica").Rows(Silinecek_Satir).Delete
               Sheets("0_Nuovo assunto").Rows(Silinecek_Satir + 2).Delete
               ListBox1.RemoveItem ListBox1.ListIndex
            End If
    '    Label14.Caption = ListBox1.ListCount
        End If
     End Sub
    Gene
    Ciao Gene nel foglio "0_Nuovo assunto" la prima riga valida non comincia come nel foglio "anagrafica" ma devi aggiungere 2 a Silinecek_Satir e il tutto funziona (vedi riga blu nel codice).

    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    Re: Inserire ed eliminare righe con userform

    [RISOLTO]
    Ciao e grazie.

    Gene

  8. #8
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    484
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    18
    Likes dati
    94

    Re: Inserire ed eliminare righe con userform

    buongiorno a tutti
    ho provato ad inserire un nuovo codice utilizzando prima il tasto inerisci poi nuovo e dopo aver compilato i vari campi h premut edit
    i dice ok ma non aggiorna nulla

    help


    grazie
    Ultima modifica fatta da:mb63; 24/07/16 alle 11:40 Motivo: mancava testo

  9. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3354
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Inserire ed eliminare righe con userform

    Citazione Originariamente Scritto da mb63 Visualizza Messaggio
    buongiorno a tutti
    ho provato ad inserire un nuovo codice utilizzando prima il tasto inerisci poi nuovo e dopo aver compilato i vari campi h premut edit
    i dice ok ma non aggiorna nulla

    help


    grazie
    ciao MB63 il file non è mio comunque una volta aperto la form, devi compilare tutti i campi dopodichè click sul pulsante Nuovo assunto ed infine devi cliccare sul pulsante Salva (in alto a sinistra) e non su edita.

    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  10. #10
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    484
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    18
    Likes dati
    94

    Re: Inserire ed eliminare righe con userform

    Grazie 100000000
    Alla prossima
    Buona domenica

  11. #11
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    Re: Inserire ed eliminare righe con userform

    Ciao,
    EDITA nasce per integrare eventuali informazioni mancanti nel form.

    Gene

Discussioni Simili

  1. [Risolto] eliminare righe doppie
    Di Chiarpato nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 19/01/17, 15:59
  2. Eliminare piu' righe contemporeanamente con macro
    Di kellington90 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 20/06/16, 19:47
  3. come eliminare righe vuote, tra righe di testo in una pagina excel
    Di francesco71 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 08/05/16, 14:13
  4. Eliminare righe duplicate
    Di lala10 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 29/04/16, 14:52
  5. Macro per usare Userform e per eliminare riga singola o multiple
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 17/01/16, 10:57

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
  •