[Excel] Aggiungere apice a una colonna di numeri

[lucalicc]

ho il seguente problema a cui non riesco a trovare
soluzione:

in un foglio excel, nella colonna A ho una lunga serie
di numeri (partite IVA). Nella colonna B devo
fare comparire la ditta relativa a quella partita iva.

Gli elenchi delle ditta sono in un secondo foglio,
in cui nella colonna A c'è la partita IVA e nella
colonna B la denominazione della ditta.

Nel primo foglio associo la partita iva con la
denominazione della ditta con la funzione cerca.vert
e qui non ci sono problemi.

Il fatto è che mi funziona solo se, nel primo foglio,
metto l'apice davanti al numero, in questo modo

'0129764857

altrimenti la funzione cerca.vert non mi riporta
nessun risultato ( compare #n/d )
Ho provato a formattare le celle in tutti i modi
(numero, testo, generale) ma niente,
funziona solo se antepongo l'apice.

Questo di per se non è un grosso problema,
se non chè la lista di numeri da trattare è
molto lunga (oltre le 6000) e onestamente
non me la sento di mettere un apice a mano
davanti ad ognuna di esse.

Come posso aggiungere in modo automatico
questo apice davanti a ogni numero?

Ho provato in questo modo
="'"&A1
ma in questo modo l'apice viene aggiunto
come testo e compare nella cella stessa,
invece che essere interpretato come
qualificatore del contenuto della cella.

Grazie per i vostri consigli
Luca

[nicola75ss]

Prova ad aggiungere un formato personalizzato con 11 zeri e ad applicarlo a tutta la tua colonna.

[lucalicc]

ho provato ma non funziona.
Tanto per intenderci, per fare
funzionare il tutto mi deve comparire,
nell'angolo in alto a sx della cella il
triangolino verde che avvisa che si tratta
di un numero formattato come testo
(appunto la funzione dell'apice davanti al
contenuto).
Se mi comprare quello, va tutto bene,
altrimenti niente...

grazie
luca

[nicola75ss]

ok, allora per automatizzare l'inserimento del triangolino prova questa sub

Sub apice()
For Each cella In ActiveSheet.Range("a:a")
    If cella.Value <> "" Then
        cella.Value = "'" & cella.Value
    End If
Next cella
End Sub

Nel caso la tua colonna di valori non sia la A modifica la sub di conseguenza.

[lucalicc]

funziona perfettamente....
grazie a tutti per il vostro
supporto preciso e veloce...
a buon rendere
luca

[Algar72]

Scusate mi rendo conto che la discussione è del 2002 , ma il mio problema è recente...e questa sembra essere la soluzione ma non so dove devo andare ad inserire la sub....

[nicola75ss]

Originariamente inviato da Algar72
Scusate mi rendo conto che la discussione è del 2002 , ma il mio problema è recente...e questa sembra essere la soluzione ma non so dove devo andare ad inserire la sub....

La discussione non è freschissima ma è di quest'anno.
Devi andare sul menù strumenti => macro => macro
dai un nome alla tua macro (per l'appunto ), ad esempio apice, scegli crea, incolli il testo e poi lo richiami.

[Algar72]

Hai Ragione.....scusa il ric.......mento.
Provo subito!
Grazie mille!!!

[Algar72]

Vi ringrazio INFINITAMENTE , il vs suggerimento funziona alla grande e ci siamo risparmiati un sacco di lavoro manuale!
Grazie ancora

[cinzia66]

ragazzi.. perdonatemi
io sono proprio digiuna di sistemi ecc..
ma mi serve una spiegazione.
Io dovrei non solo inserire la P.iva
ma far sì che essa venga riconosciuta in fase di inserimento (come succede per il testo)
è fattibile?

Grazie anticipatamente per la risposta!