Eliminare gli zeri

  • Eliminare lo zero di Roccia
    Ciao a tutti, c'è qualcuno che mi può aiutare.
    ho un listino con parecchi campi,uno di questi è in formato testi e contiene codici dei prodotti, il problema è quando aggiorno il listino alcuni codici che importo hanno da 1 a 5 zeri davanti,ora li elimino manualmente,volevo creare una macro per eliminarli in automatico.
    se qualcuno mi vuole aiutare.
    ringrazio e faccio tanti complimenti per il sito.

    di Apoben64
    Ciao roccia, una prima risposta la puoi avere guardando il post " associare testo ad una userform " di enzo.
    se non basta ci sentiamo !

    di Roccia
    Grazie per la tempestiva risposta, ma il problema mio è togliere gli zeri prima dei mumeri.
    ti mando il mio codice, questo li aggiunge io voglio che lavori al contrario,se trova un codice tipo questo 0000088888888 voglio che me lo renda così 88888888 grazie
     
        For Each Cell In Range("A1:A10000")
        lung = Len(Cell.Value)
        Ean = 13 - lung
        If Ean > 0 Then
        For n = 1 To Ean
        Cell.Value = "'" & 0 & Cell.Value    ' 0 Prima del numero 0000123.
        Next
        End If
        Next
    

    di Apoben64
    Guarda se questa macro fà al caso tuo, elimina solo gli zero.
    un saluto e facci sapere !
     
    Sub ELIMINA()
    Dim RNG As Range
    Dim C As Range
    Dim NR As Long
    NR = ActiveSheet.Range("A65536").End(xlUp).Row
    Set RNG = ActiveSheet.Range("A1:A" & NR)
    For Each C In RNG
    C.Value = Space(5) & RTrim(C.Value)
    Next
    Set RNG = Nothing
    End Sub

    di Roccia
    La macro l'ho provata ma non funziona grazie alla prossima.

    di Apoben64
    Mi spiace, ma sulla base del tuo codice , la macro provandola mi funziona.
    se vuoi ho ancora il file e potrei mandartelo via email. mandami un messaggio tramite la sezione contatti . un saluto luca

    di Roccia
    Grazie apoben64 per il file che mi hai mandato.
    funziona benissimo, obbiettivo pienamente raggiunto.
    ti ringrazio tantissimo e ti saluto,alla prossima.

    di Apoben64
    Ciao roccia, come promesso ti ho inviato un file per una soluzione più semplice al tuo quesito.
    nel caso andasse bene fammi sapere e così la inseriremo nel post per conoscenza agli altri .

    di Roccia
    Ciao apoben64, ti ringrazio per il file che mi hai mandato, ieri sera l'ò provato e funziona benissimo è ancora più veloce dell'altro.
    ti ringrazio tantissimo sei un mago mi hai risolto un bel problema facendomi risparmiare un bel pò di tempo.
    di nuovo ti ringrazio e ti saluto, alla prossima