Condividi:        

Excel automatizzare cella testo in numero

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel automatizzare cella testo in numero

Postdi libraio » 03/11/17 00:44

S.O. Windows 7 Professional
Office 2003

Ciao a tutti,
ho prodotto una semplice macro, che inserisco in altre "al bisogno", per convertire il contenuto delle celle formato testo in formato numero (copi "1", incolla pseciale, moltiplica)
Il risultato è il seguente:

UR = Sheets("Foglio3").Range("A" & Rows.Count).End(xlUp).Row
Range("L1").Select
Selection.Copy
Range("A2:A22").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0"

La cifra "1" è posta in L1, ma quando devo cancellare i dati nel foglio di lavoro con l'eliminazione delle colonne interessate, il fatidico "L1" si sposta e viene successivamente sovrascritto, vanificando la macro.
E' possibile inserire nel codice la cifra "1" direttamente, senza richiamarla da una cella?
Grazie dell'aiuto
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Sponsor
 

Re: Excel automatizzare cella testo in numero

Postdi Marius44 » 03/11/17 09:47

Ciao
Credo che la cosa migliore sia "spostare" da L1 ad A1 il numerino (lo puoi nascondere colorando il Font con lo stesso colore dello sfondo).
Non penso che si possa eliminare la cella A1 :)

Oppure puoi assegnare ad una variabile il valore 1 e poi inserire detta variabile nelle celle dell'intervallo interessato.

Ciao,
Mario
Marius44
Utente Senior
 
Post: 655
Iscritto il: 07/09/15 22:00

Re: Excel automatizzare cella testo in numero

Postdi libraio » 03/11/17 11:49

Ti ringrazio per la risposta; purtroppo, prima di inserire i dati nel foglio, pulisco le colonne dai dati precedenti, quindi anche i dati in A1 vengono cancellati.
Non conosco assolutamente l'opzione delle variabili; mi puoi cortesemente dare un'indicazione?
Grazie
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: Excel automatizzare cella testo in numero

Postdi Anthony47 » 03/11/17 11:51

Penso che questa possa funzionare:
Codice: Seleziona tutto
Cells.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Copy
Range("A19:A30").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0"

Come vedete invece di fare Cella*1 faccio Cella+0

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel automatizzare cella testo in numero

Postdi libraio » 03/11/17 12:51

Grazie Anthony, preciso e puntuale, come sempre...
Il foglio su cui applico la macro può, tuttavia variare, nel numero di righe di dati. Ho tentato di correggere il codice inserendo il contatore ultima riga, ma non funziona. Dove sbaglio? :oops:

UR = Range("A" & Rows.Count).End(xlUp).Row
Cells.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Copy
Range("A2" & UR).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0"

Un saluto
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: Excel automatizzare cella testo in numero

Postdi Anthony47 » 03/11/17 12:57

Il tuo codice originale indirizzava un intervallo ben preciso, cosi' ho fatto anche nella mia proposta.
Se devi applicare all'intervallo da A2 all'ultima riga usata allora userai
Codice: Seleziona tutto
Range("A2:A" & UR).PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel automatizzare cella testo in numero

Postdi libraio » 03/11/17 14:10

Fantastico!
Grazie
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31


Torna a Applicazioni Office Windows


Topic correlati a "Excel automatizzare cella testo in numero":


Chi c’è in linea

Visitano il forum: Nessuno e 44 ospiti