Eliminazione zeri

Storico discussioni
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

Cognolato Studio © 2005