Eliminare gli zeri

Hai un problema con Excel?

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

Vuoi approfondire questo argomento?