Risultati da 1 a 6 di 6

Discussione: Problemi con eliminazione righe nella ListBox



  1. #1
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    46
    Messaggi
    29
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    7

    Problemi con eliminazione righe nella ListBox

    Buona serata!
    Attivo questa discussione per risolvere il seguente problema:
    Ho creato un tasto per eliminare la riga selezionata in una ListBox, la quale è composta da dati inseriti per riga da un'altro tasto.
    Tutto ok per gli inserimenti; Ok per le elimanazioni delle righe selezionate ma quando dopo aver utilizzato il tasto elimina riga, ai seccessivi nuovi inserimenti il codice continua ad eliminarmi i dati della riga sottostante all'inserimento tranne il dato della prima colonna (col1).
    Se invece elimino tutte le righe contenute nella ListBox, il tasto inserimenti procede correttamente.

    Codice: 
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Inserimenti
    
    Private Sub CommandButton1_Click()
     Call Carica_ListBox1
    End Sub
    Private Sub Carica_ListBox1()
    Dim R As Integer
    Dim col1, col2, col3, col4 As String
    Dim col5, col6 As Variant
     
    LblLavorazione.Caption = TxtFasemanuale.Text & CboFaselista.Value & CboFasecodice.Value
    ListBox1.ColumnCount = 6 'inserisce la tabella di divisione superiore delle colonne
    ListBox1.ColumnWidths = "54;74;140;33;39;40"
     
     
    ListBox1.AddItem ListBox1.Text, ListBox1.ListIndex + 1
     col1 = LblGruppo.Caption    'col1=Column 1°
     col2 = CboRisorse.Text      'col1=Column 2°
     col3 = CboNominativo.Text   'col1=Column 3°
     col4 = LblUnità.Caption     '
     col5 = TxtQuantità.Value    '
     col6 = LblPrezzo.Caption    '
        
          ListBox1.List(R, 0) = col1
          ListBox1.List(R, 1) = col2
          ListBox1.List(R, 2) = col3
          ListBox1.List(R, 3) = col4
          ListBox1.List(R, 4) = col5
          ListBox1.List(R, 5) = col6
         
     
     Me.LblCategoria.Caption = ""
      Me.LblGruppo.Caption = ""
       Me.CboRisorse.Text = ""
        Me.CboNominativo.Text = ""
         Me.LblUnità.Caption = ""
          Me.TxtQuantità.Text = ""
           Me.LblPrezzo.Caption = ""
          
        
     End Sub
    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Eliminazioni
     
    Private Sub CmbElimina_Click()
    If ListBox1.ListIndex = -1 Then Exit Sub
    ListBox1.RemoveItem (ListBox1.ListIndex) 'Elimina l'elemento selezionato
    End Sub

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    586
    Versione Office
    2010
    Mi Piace ricevuti
    72
    Mi Piace dati
    1

    Re: Problemi con eliminazione righe nella ListBox

    allega un file di esempio in modo da testare la tua macro e la soluzione

  3. #3

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    44
    Messaggi
    1660
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    517
    Mi Piace dati
    428

    Re: Problemi con eliminazione righe nella ListBox

    sarebbe più semplice se allegassi un file con la routine

    EDIT: ciao @Patel, mi hai preceduto con lo stesso consiglio

  4. #4
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    46
    Messaggi
    29
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    7

    Re: Problemi con eliminazione righe nella ListBox

    indicazioni del file allegato:
    http://www.filedropper.com/gestionecantiere160forum


    Scusate, non so se sia corretto il mio procedere ma mi accorgo anche che nel file, se inserisco alla voce materiali nel UserForm "frmRegistrazioniGiornaliere" un elemento registrato con il valore prezzo a tre cifre dopo la virgola, l'inserimento nel foglio excel risulta sballato e lo registra come se la virgola decimale fosse il punto delle migliaia.

  5. #5
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    46
    Messaggi
    29
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    7

    Re: Problemi con eliminazione righe nella ListBox

    Citazione Originariamente Scritto da dpg70 Visualizza Messaggio
    indicazioni del file allegato:
    http://www.filedropper.com/gestionecantiere160forum


    Scusate, non so se sia corretto il mio procedere ma mi accorgo anche che nel file, se inserisco alla voce materiali nel UserForm "frmRegistrazioniGiornaliere" un elemento registrato con il valore prezzo a tre cifre dopo la virgola, l'inserimento nel foglio excel risulta sballato e lo registra come se la virgola decimale fosse il punto delle migliaia.

    Ho risolto il mio primo problema aggiungendo l'ultima stringa al codice CmbElimina, almeno ad una prima rapida prova:
    Codice: 
    Private Sub CmbElimina_Click()If ListBox1.ListIndex = -1 Then Exit Sub
    ListBox1.RemoveItem (ListBox1.ListIndex) 'Elimina l'elemento selezionato
    ListBox1.ListIndex = -1
    End Sub

  6. #6
    L'avatar di dpg70
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Trebaseleghe (PD)
    Età
    46
    Messaggi
    29
    Versione Office
    Excel 2013
    Mi Piace ricevuti
    0
    Mi Piace dati
    7

    Re: Problemi con eliminazione righe nella ListBox

    Ho risolto il mio secondo problema sulle virgole decimali modificando e aggiungendo il codice selezionato in rosso, questo grazie anche a suggerimenti colti dal web. Testero più a lungo la modifica e per ora un saluto a tutti. Dario (PierGiuseppe)

    Codice: 
    Sub CommandButton2_Click()
    
    Dim i, b, uriga As Integer
    Dim wsh As Worksheet
    Dim Ultima As Range
    
    
    Set wsh = ThisWorkbook.Worksheets("Cantiere")
    uriga = wsh.Range("M" & Rows.Count).End(xlUp).Row + 1
      
      For i = 0 To ListBox1.ListCount - 1
                      
            wsh.Range("B" & uriga).Value = VBA.Format(TxtData.Text, "dd/mm/yy")  'Data
            wsh.Range("C" & uriga).Value = LblIntestazione.Caption    'Cod.Commessa
            wsh.Range("D" & uriga).Value = CboCommessa.Text           'Commessa
            wsh.Range("F" & uriga).Value = CboGenere.Text             'Genere
            wsh.Range("G" & uriga).Value = LblCodlavorazioni.Caption  'Cod.Lavorazioni
            wsh.Range("H" & uriga).Value = LblLavorazione.Caption     'Lavorazione
            wsh.Range("K" & uriga).Value = ListBox1.List(i, 0)        'Gruppo
            wsh.Range("L" & uriga).Value = ListBox1.List(i, 1)        'Categoria
            wsh.Range("M" & uriga).Value = ListBox1.List(i, 2)        'Nominativo
            wsh.Range("O" & uriga).Value = ListBox1.List(i, 3)        'U.Misura
            wsh.Range("P" & uriga).Value = ListBox1.List(i, 4)        'Quantità
            
              If ListBox1.List(i, 5) = "" Then      'questo If perchè se ListBox1.List= vuoto allora
                 ListBox1.List(i, 5) = 0              'imposto a zero evitando l'errore e il blocco del codice
    
              End If
    
            wsh.Range("Q" & uriga).Value = CDbl(ListBox1.List(i, 5))   'Prezzo
    
            uriga = uriga + 1
      Next
     
    MsgBox ("LA REGISTRAZIONE E' STATA CREATA E RIORDINATA"), vbInformation
    Set wsh = Nothing
    
    
    'Riordina inserimenti nel foglio Cantiere
    Sheets("Cantiere").Select
    Range("B10:AA8000").Select
        Selection.Sort Key1:=Range("J9"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    Range("A1").Select
    
    
    Unload frmRegistrazioni_Giornaliere
    End Sub

Discussioni Simili

  1. Risposte: 5
    Ultimo Messaggio: 01/12/16, 11:36
  2. [Risolto] Eliminazione righe
    Di sergiogranero nel forum Domande su Excel VBA e MACRO
    Risposte: 37
    Ultimo Messaggio: 30/11/16, 17:50
  3. [Risolto] Eliminare Righe su foglio tramite listbox filtrata
    Di patel nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 09/10/16, 10:32
  4. Eliminazione records duplicati
    Di Master nel forum Domande su Microsoft Access
    Risposte: 7
    Ultimo Messaggio: 09/04/16, 20:46
  5. Aggiungere righe su una combox e listbox
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 19/03/16, 00:53

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
  •