Risultati da 1 a 12 di 12

Discussione: Problemi sulla "Variazione" ed "Elimina"



  1. #1
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Problemi sulla "Variazione" ed "Elimina"

    Buongiorno a tutti, vi chiedo un suggerimento o un'aiuto su una applicazione.


    Ho inserito due Button: Variazione ed Elimina che funzionano, ma noto ad entrambi delle problematiche che vorrei risolvere o eliminare.


    Variazione:

    se effettuo la ricerca dalla TextBox (Lettera), la variazione funziona perfettamente;

    viceversa se effettuo la ricerca con ComboBox la variazione non funziona e non comprendo il motivo


    Elimina:
    funziona perfettamente gradirei per migliorare aggiungere un MSGBOX che comunica se sono daccordo o meno.


    Vi ringrazio sempre anticipatamente dell'aiuto e allego il file.

    Mauro
    File Allegati File Allegati

  2. #2

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

    Re: Problemi sulla "Variazione" ed "Elimina"

    Ciao,
    non ti ho voluto stravolgere il codice, quindi lasciandolo come da te impostato in base alla tua richiesta farei questa variazione per elimina:
    Codice: 
    Codice: 
    Private Sub EliminaButton_Click()
    
    
    Dim wsh As Worksheet
    Dim uRiga As Long
    
    
    Application.ScreenUpdating = False
    Set wsh = ThisWorkbook.Worksheets("Trova")
    'wsh.Activate
    uRiga = wsh.Cells(Rows.Count, 10).End(xlUp).Row
    
    
    
    
    If Txt_Voce1 <> "" Then
     Range("J7:J" & uRiga).Select
     Selection.Find(What:=Txt_Voce1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        ActiveCell.EntireRow.Delete
        GoTo fin
    
    
    Else
    Exit Sub
    End If
    MsgBox ("La voce non è stata trovata"), vbInformation, "ATTENZIONE"
    fin:
    MsgBox "Sicuro di voler eliminare?", vbYesNo + vbInformation, "Attenzione"
    
    
    
    
    Txt_Voce1.Value = Foglio1.Range("J7").Value
    Txt_Voce2.Value = Foglio1.Range("K7").Value
    Txt_Voce3.Value = Foglio1.Range("L7").Value
    Txt_Voce1.SetFocus
    
    
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    Set wsh = Nothing
    
    
    eli:
    
    
    Call Svuota
    Call conteggio
    Call verifica
    Call PulisciTextBox
    MsgBox ("La voce è stata eliminata"), vbInformation, "Trova"
    
    
    End Sub
    Per il tasto variazione ho provato a ricercare dalla combobox e mi funziona.
    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 dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problemi sulla "Variazione" ed "Elimina"

    Grazie Ges, il problema di "Annulla" è risolto mentre per la variazione ho problemi.


    In pratica, una volta individuata la voce da modificare dal ComboBox ed effettua la variazione, la variazione viene accettata e sostituisce la prima riga (7)
    per es. dal Combobox, inserisco puzza e modifico prende il posto della riga 7 (Bello....) che a sua volta viene eliminato..

  4. #4
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problemi sulla "Variazione" ed "Elimina"

    Buongiorno a tutti, purtroppo non riesco a risolvere il problema e ne sono mortificato nel continuare a chiedervi un mano sulla questione della variazione.


    Infatti la variazione dalla ComboBox funziona eliminando la prima riga delle tre colonne. L'errore avviene perchè invece di eliminare la voce scelta, effettua un inserimento come l'esempio descritto nel precedente post che ripeto.


    Scelta la voce "puzza" dal ComboBox ed effettuata la modifica, la voce prende il posto della riga 7 "Bello" che viene a sua volta eliminata.

    Grazie dell'aiuto.

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

    Re: Problemi sulla "Variazione" ed "Elimina"

    riallega il file aggiornato

  6. #6
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problemi sulla "Variazione" ed "Elimina"

    Ciao Patel, allego file aggiornato.
    File Allegati File Allegati

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

    Re: Problemi sulla "Variazione" ed "Elimina"

    quando scegli la voce dal combobox non metti in riga l'indice della voce scelta e quindi riga rimane 7. Riprendi il vecchio file in cui funzionava tutto e ripristina l'aggiornamento della riga.
    Inoltre tu popoli la combo con i dati del foglio, quindi non ti serve neppure il find per trovare la riga da eliminare, basta ricavare la riga dall'indice della combo.
    Per questo motivo penso che ges abbia detto "non ti ho voluto stravolgere il codice"

  8. #8
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problemi sulla "Variazione" ed "Elimina"

    Grazie Patel, scusa e sono mortificato nel continuare a dare disturbo, ma non riesco a comprendere dov'è l'errore. Invio il file originale così da poter nel caso corregere il problema.


    Grazie per la pazienza.
    File Allegati File Allegati

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

    Re: Problemi sulla "Variazione" ed "Elimina"

    scusa, ma con tutti i file che hai inviato in passsato ho fatto confusione, basta sostituire riga con rig
    Codice: 
    Private Sub VariazioneButton_Click()
    
    If Txt_Voce1.Text = "" Then
        Txt_Voce1.SetFocus
        GoTo Uscita
    End If
    
    Foglio1.Range("J" & Rig) = Me.Txt_Voce1
    Foglio1.Range("K" & Rig) = Me.Txt_Voce2
    Foglio1.Range("L" & Rig) = Me.Txt_Voce3
        
        Call Svuota
        Call verifica
    
    Uscita:
    
        Sheets("Trova").Select
    
    End Sub

  10. #10
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problemi sulla "Variazione" ed "Elimina"

    Grazie Patel scusa la mia insistenza. Al momento funziona e mi sorge una curiosità riguardo al ComboBox, mi dicesti nella precedente risposta, che non è necessario usare FIND.

    Se puoi indicarmi gentilmente la modifica, così da correggere anche questo.
    Grazie dell'aiuto.
    Mauro


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

    Re: Problemi sulla "Variazione" ed "Elimina"

    ti faccio solo un esempio, in base a questo occorrerebbe modificare tutto, prova questa modifica
    Codice: 
    Private Sub ComboBox1_Change()
    Dim wsh As Worksheet
    If ComboBox1.Value <> "" Then
      Rig = ComboBox1.ListIndex + 7
      Set wsh = ThisWorkbook.Worksheets("Trova")
      Txt_Voce1 = wsh.Range("J" & Rig)
      Txt_Voce2 = wsh.Range("K" & Rig)
      Txt_Voce3 = wsh.Range("L" & Rig)
      Txt_Voce1.SetFocus
      TrovaButton.Enabled = False
      SuccessivoButton.Enabled = True
    End If
    End Sub

  12. #12
    L'avatar di dautattmaui
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Bari
    Messaggi
    112
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Problemi sulla "Variazione" ed "Elimina"

    Perfetto, funziona tutto .... grazie mille degli aiuti e della pazienza.

Discussioni Simili

  1. [Risolto] Ordinare con la funzione "piccolo"..ma "portandosi dietro" anche altri dati affiancati
    Di mauri73 nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 05/02/17, 14:57
  2. [Risolto] Come leggere la seguente formula =SE.ERRORE(INDIRETTO("'"&A1&"'!K1";1);""))
    Di sitolofi nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 20/12/16, 14:54
  3. >Come estrappolare la somma "automatica" di un DB con funzione "FILTRO"<
    Di tk71 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 11/06/16, 11:44
  4. [Risolto] Codice non funzionante dopo il passaggio da "Windows" a "Mac"...
    Di joondeep nel forum Foglio di calcolo su altre Piattaforme
    Risposte: 13
    Ultimo Messaggio: 12/03/16, 21:09
  5. Collegamento "foglio elenco" e "fogli singoli"
    Di Maurizio76 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 23/11/15, 10:14

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
  •