Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 43

Discussione: Modifica dati e cancellazione righe



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Modifica dati e cancellazione righe

    Ciao di nuovo......
    avrei bisogno del solito aiuto vostro per
    la userform "cancella Squadra", che in base alla combox mi cancella la riga dall archivio del foglio2

    e dalla userform "modifica dati società" che mi permette di variare i dati e sovrascriverli in archivio nel foglio2

    Grazie davvero a tutti per aiuto
    File Allegati File Allegati
    windows 10
    Excel 2016

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    hai provato almeno a scrivere un po' di codice ? basta cercare la squadra, modificare le textbox e poi riscrivere nelle celle i valori delle texbox modificate

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    ho cercato il codice per fare la cancellazione delle riga con la funzione DEL
    in base al contenuto della combbox se diverso da vuoto....
    ma forse non è il ragionamento giusto da fare....
    se mi dai un indicazione su come ragionare faccio dei tentativi


    grazie...:235:
    windows 10
    Excel 2016

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    io mi riferivo alla modifica dei dati, non alla cancellazione, per quella occorre trovare la squadra con il find come nel codice precedente, la riga la trovi con riga = c.row e la cancelli con rows(riga).delete

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    avevo capito.....
    ma ho trovato difficoltà con cancellazione della riga........figuriamoci con la sovrasrcittura della modifica

    adesso farò delle prove con le indicazioni che mi hai dato e le scrivo qui cosi mi dici dove sbaglio
    Grazieeeeeeeeee:286:
    windows 10
    Excel 2016

  6. #6
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    Per inserire e modificare puoi usare una unica userform con i pulsanti Inserisci e Modifica, la differenza sta soltanto nell'aggiungere una nuova riga o modificarne una esistente

  7. #7
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Purtroppo stasera sono senza Pc
    Ma domani mattina mi mette all opera..... Anche se la vedo un po dura....
    Ora sono sul telefono
    windows 10
    Excel 2016

  8. #8
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ciao patel

    ho provato con questa:
    dove sbaglio?? questo stringa diventa giallo "Rows(riga).Delete"
    Codice HTML: 
    Private Sub CommandButton1_Click()
    nome = ComboBox1.Text
    With Sheets(2).Range("B:B")
        Set c = .Find(nome, LookIn:=xlValues)
        If Not c Is Nothing Then
        Rows(riga).Delete
        End If
        End With
    End Sub
    windows 10
    Excel 2016

  9. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    io avevo detto
    la riga la trovi con riga = c.row e la cancelli con rows(riga).delete
    quindi
    Codice: 
    Private Sub CommandButton1_Click()
    nome = ComboBox1.Text
    With Sheets(2).Range("B:B")
        Set c = .Find(nome, LookIn:=xlValues) ' c = range trovato che contiene il nome
        If Not c Is Nothing Then
           riga = c.row    ' la riga corrispondente a c
           Sheets(2).Rows(riga).Delete ' elimina la riga 
        End If
    End With
    End Sub

  10. #10
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ciao Patel
    mi da sempre il solito errore
    Codice HTML: 
    Private Sub CommandButton1_Click()
    nome = ComboBox1.Text
    With Sheets(2).Range("B:B")
        Set c = .Find(nome, LookIn:=xlValues)
        If Not c Is Nothing Then
        .Rows(riga).Delete
        End If
        End With
    End Sub
    windows 10
    Excel 2016

  11. #11
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    ho provato a fare piu cancellazioni

    però mi ha cancellato solo il nome della squadra al secondo tentativo e non tutta la riga
    windows 10
    Excel 2016

  12. #12
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    dopo aver cancellato il nome della squadra il contenuto delle celle si spostano tutte di un passo indietro
    windows 10
    Excel 2016

  13. #13
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    scusa patel....
    ora funziona correttamente

    mille grazie..................

    adesso provo a cimentarmi invece nella modifica dell archivio già esistente

    :166:
    windows 10
    Excel 2016

  14. #14
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    scusami tu, ho scritto la macro senza provarla e poi l'ho corretta

  15. #15
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ma quella del post 19 funziona ...........
    ora proverò con la modifica dei dati
    windows 10
    Excel 2016

  16. #16
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Prima di cimentarmi nella modifica ho aggiunto questo msgbox prima di confermare
    la cancellazione della squadra, ma anche se dico no la cancella lo stesso
    dove sbaglio???
    Grazie
    Codice HTML: 
    Private Sub CommandButton1_Click()
    nome = ComboBox1.Text
    With Sheets(2).Range("B:B")
        Set c = .Find(nome, LookIn:=xlValues) ' c = range trovato che contiene il nome
        If Not c Is Nothing Then
           riga = c.Row    ' la riga corrispondente a c
           Sheets(2).Rows(riga).Delete ' elimina la riga
        End If
    End With
        MsgBox "Sei sicuro di voler cancellare la squadra?", 3 + 16, "Attenzione !!!"
    End Sub
    windows 10
    Excel 2016

  17. #17
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    ciao patel penso di esserci riuscito con questa macro
    Codice HTML: 
    Private Sub CommandButton1_Click()
    nome = ComboBox1.Text
    With Sheets(2).Range("B:B")
        Set c = .Find(nome, LookIn:=xlValues) ' c = range trovato che contiene il nome
        If Not c Is Nothing Then
           riga = c.Row    ' la riga corrispondente a c
           Dim Risp As Integer
     Risp = MsgBox("Sei sicuro di voler cancellare la squadra?", 1 + 64, "Attenzione !!")
      If Risp = 1 Then
      MsgBox "Squadra cancellata", 1 + 48, "Attenzione !!"
    Else
     Exit Sub
    End If
            Sheets(2).Rows(riga).Delete ' elimina la riga
        End If
    End With
    End Sub
    windows 10
    Excel 2016

  18. #18
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Per la modifica son fermo qui....
    la prima sub carica tutti i dati e la seconda sub farmi inserimento......
    che lo fà, ma in maniera errata

    dove sbaglio

    Grazie
    Codice HTML: 
    Private Sub ComboBox1_Change()
    nome = ComboBox1.Text
    With Sheets(2).Range("B:B")
        Set c = .Find(nome, LookIn:=xlValues)
        If Not c Is Nothing Then
           sigla = c.Offset(0, -1)
           TextBox1.Text = sigla
           matricola = c.Offset(0, 1)
           TextBox3.Text = matricola
           sede = c.Offset(0, 2)
           TextBox4.Text = sede
           Telefono = c.Offset(0, 3)
           TextBox5.Text = Telefono
           Fax = c.Offset(0, 4)
           TextBox6.Text = Fax
           Campodigioco = c.Offset(0, 5)
           TextBox7.Text = Campodigioco
           Campodsussidiario = c.Offset(0, 6)
           TextBox8.Text = Campodsussidiario
           Colorisociali = c.Offset(0, 7)
           Presidente = c.Offset(0, 8)
           TextBox10.Text = Presidente
           Telefono = c.Offset(0, 9)
           TextBox11.Text = Telefono
           Segretario = c.Offset(0, 10)
           TextBox12.Text = Segretario
           Telefono = c.Offset(0, 11)
           TextBox13.Text = Telefono
           Comunicazioniurgenti = c.Offset(0, 12)
           TextBox14.Text = Comunicazioniurgenti
           Telefono = c.Offset(0, 13)
           TextBox15.Text = Telefono
           Responsabiliorari = c.Offset(0, 14)
           TextBox16.Text = Responsabiliorari
           Telefono = c.Offset(0, 15)
           TextBox17.Text = Telefono
           Email = c.Offset(0, 16)
           TextBox18.Text = Email
           SitoWeb = c.Offset(0, 17)
           TextBox19.Text = SitoWeb
           Note = c.Offset(0, 18)
           TextBox20.Text = Note
           
        End If
        End With
    
    End Sub
    Private Sub CommandButton2_Click()
        Dim uRiga As Long
    With Foglio2
        uRiga = .Range("A" & Rows.Count).End(xlUp).Row + 1
       
        .Range("A" & uRiga).Value = TextBox1
        .Range("B" & uRiga).Value = TextBox2
        .Range("C" & uRiga).Value = TextBox3
        .Range("D" & uRiga).Value = TextBox4
        .Range("E" & uRiga).Value = TextBox5
        .Range("F" & uRiga).Value = TextBox6
        .Range("G" & uRiga).Value = TextBox7
        .Range("H" & uRiga).Value = TextBox8
        .Range("I" & uRiga).Value = TextBox9
        .Range("J" & uRiga).Value = TextBox10
        .Range("K" & uRiga).Value = TextBox11
        .Range("L" & uRiga).Value = TextBox12
        .Range("M" & uRiga).Value = TextBox13
        .Range("N" & uRiga).Value = TextBox14
        .Range("O" & uRiga).Value = TextBox15
        .Range("P" & uRiga).Value = TextBox16
        .Range("Q" & uRiga).Value = TextBox17
        .Range("R" & uRiga).Value = TextBox18
        .Range("S" & uRiga).Value = TextBox19
        .Range("T" & uRiga).Value = TextBox20
        End With
        
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
        TextBox4 = ""
        TextBox5 = ""
        TextBox6 = ""
        TextBox7 = ""
        TextBox8 = ""
        TextBox9 = ""
        TextBox10 = ""
        TextBox11 = ""
        TextBox12 = ""
        TextBox13 = ""
        TextBox14 = ""
        TextBox15 = ""
        TextBox16 = ""
        TextBox17 = ""
        TextBox18 = ""
        TextBox19 = ""
        TextBox20 = ""
    
    End Sub
    File Allegati File Allegati
    windows 10
    Excel 2016

  19. #19
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    stai parlando della modifica o dell'inserimento ? se vuoi inserire non devi caricare dati, se vuoi modificarli invece sì

  20. #20
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    della modifica...........
    inserimento e già a posto
    windows 10
    Excel 2016

  21. #21
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    tu hai copiato la sub dell'inserimento dove utilizzi uriga per trovare l'ultima riga, invece devi usare c.row per modificare la riga giusta

  22. #22
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    mi dà questo errore di giallo anche ora
    Codice HTML: 
    Private Sub CommandButton2_Click()
        Dim Uriga As Long
    With Foglio2
        c.Row = .Range("A" & Rows.Count).End(xlUp).Row + 1
       
        .Range("A" & c.Row).Value = TextBox1
        .Range("B" & c.Row).Value = TextBox2
        .Range("C" & c.Row).Value = TextBox3
        .Range("D" & c.Row).Value = TextBox4
        .Range("E" & c.Row).Value = TextBox5
        .Range("F" & c.Row).Value = TextBox6
        .Range("G" & c.Row).Value = TextBox7
        .Range("H" & c.Row).Value = TextBox8
        .Range("I" & c.Row).Value = TextBox9
        .Range("J" & c.Row).Value = TextBox10
        .Range("K" & c.Row).Value = TextBox11
        .Range("L" & c.Row).Value = TextBox12
        .Range("M" & c.Row).Value = TextBox13
        .Range("N" & c.Row).Value = TextBox14
        .Range("O" & c.Row).Value = TextBox15
        .Range("P" & c.Row).Value = TextBox16
        .Range("Q" & c.Row).Value = TextBox17
        .Range("R" & c.Row).Value = TextBox18
        .Range("S" & c.Row).Value = TextBox19
        .Range("T" & c.Row).Value = TextBox20
        End With
        
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
        TextBox4 = ""
        TextBox5 = ""
        TextBox6 = ""
        TextBox7 = ""
        TextBox8 = ""
        TextBox9 = ""
        TextBox10 = ""
        TextBox11 = ""
        TextBox12 = ""
        TextBox13 = ""
        TextBox14 = ""
        TextBox15 = ""
        TextBox16 = ""
        TextBox17 = ""
        TextBox18 = ""
        TextBox19 = ""
        TextBox20 = ""
    
    End Sub
    windows 10
    Excel 2016

  23. #23
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    non ci siamo, una volta individuata la riga da modificare devi usare quella per modificare i dati.
    Per cancellare la riga hai utilizzato
    Codice: 
    If Not c Is Nothing Then
           riga = c.Row    ' la riga corrispondente a c
    questa è la riga in cui devi modificare i dati e non uriga che è la prima riga vuota

  24. #24
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    faccio un po di prove.................
    windows 10
    Excel 2016

  25. #25
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    poiché la variabile riga = c.row si trova all'interno di una private sub non sarà disponibile per le altre sub, quindi la devi dichiarare public nel modulo1 che diventerà
    Codice: 
    Public riga As Long
    Sub Mostra()
    UserForm1.Show
    End Sub

  26. #26
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    qui mi sono un pò perso....
    scusa....:292:
    windows 10
    Excel 2016

  27. #27
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    per modificare una squadra la cerchi tramite la sub combobox1_change, individui il range c e trovi la riga con c.row, poi modifichi le textbox e clicchi sul pulsante Insaerimento modifica che lancia una sub diversa dalla precedente. La variabile riga non viene riconosciuta dalla nuova sub, per farla riconoscere deve essere una variabile pubblica e la devi dichiarare come ti ho già detto

  28. #28
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Brancolo nel buio::::::::::::
    windows 10
    Excel 2016

  29. #29
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    sono a un punto morto............:216:
    File Allegati File Allegati
    windows 10
    Excel 2016

  30. #30
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1098
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1
    non hai fatto niente di quanto ho detto
    Codice: 
    Private Sub ComboBox1_Change() ' userform3
    nome = ComboBox1.Text
    With Sheets(2).Range("B:B")
        Set c = .Find(nome, LookIn:=xlValues)
        If Not c Is Nothing Then
           riga = c.Row
           sigla = c.Offset(0, -1)
    .................
    End Sub
    Private Sub CommandButton2_Click()
    With Foglio2
        .Range("A" & riga).Value = TextBox1
        .Range("C" & riga).Value = TextBox3
        .Range("D" & riga).Value = TextBox4
        .Range("E" & riga).Value = TextBox5
        .Range("F" & riga).Value = TextBox6
        .Range("G" & riga).Value = TextBox7
        .Range("H" & riga).Value = TextBox8
        .Range("I" & riga).Value = TextBox9
        .Range("J" & riga).Value = TextBox10
        .Range("K" & riga).Value = TextBox11
        .Range("L" & riga).Value = TextBox12
        .Range("M" & riga).Value = TextBox13
        .Range("N" & riga).Value = TextBox14
        .Range("O" & riga).Value = TextBox15
        .Range("P" & riga).Value = TextBox16
        .Range("Q" & riga).Value = TextBox17
        .Range("R" & riga).Value = TextBox18
        .Range("S" & riga).Value = TextBox19
        .Range("T" & riga).Value = TextBox20
        End With
        
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
        TextBox4 = ""
        TextBox5 = ""
        TextBox6 = ""
        TextBox7 = ""
        TextBox8 = ""
        TextBox9 = ""
        TextBox10 = ""
        TextBox11 = ""
        TextBox12 = ""
        TextBox13 = ""
        TextBox14 = ""
        TextBox15 = ""
        TextBox16 = ""
        TextBox17 = ""
        TextBox18 = ""
        TextBox19 = ""
        TextBox20 = ""
    
    End Sub

Discussioni Simili

  1. modifica codice macro per eliminazione dati da più fogli
    Di ceskonet13 nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 16/02/17, 15:56
  2. [Risolto] Cancellazione dati condizionale
    Di mrgiaco nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 04/02/17, 21:14
  3. [UserForm] button modifica e cancella in userform con dati da listbox selezionati
    Di aurelio125 nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 13/11/16, 17:54
  4. Modifica dati di una tabella da un foglio all'atro
    Di Eagles77 nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 10/11/16, 18:48
  5. Confronto dati e modifica colore cella
    Di paola177 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 26/07/16, 23:06

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
  •