Moltiplicare più celle di Excell

[MauroGra]

Salve a tutti. Ho un problema (Forse un pò stupido) con Excell.
Devo inserire una serie notevole di cifre, tutte di dimensione delle migliaia es. 12000-3000-7000-7500 ora vorrei farlo con una formula in modo di inserire solo le prime cifre cioè 12-3-7-75, se inserisco nella barra delle formule la moltiplicazione x 1000 mi da un'errore.
qualcuno sa se si può fare in qualche modo?
Scusate se sono imbranato non infierite

[il pazzo]

Allegato 42989

[MauroGra]

Allegato 42989

Grazie della risposta, ma non mi sono spiegato bene, anzi mi sono spiegato male.
Io il calcolo volevo sapere se era possibile farlo nella stessa cella in cui scrivo i dati.
Cioè scrivo 12 e automaticamente excell me lo trasforma in 12000, scrivo 7 e viene cambiato in 7000.
Forse serve una funzione VBA?

[Alberto]

In qualsiasi cella?

Se si .... vai nell'Editor VBA (ALT+F11) .... quindi inserisci nel giusto foglio di lavoro questa funzione

Private Sub Worksheet_Change(ByVal Target As Range)

'verifica che la cella sia compresa in un certo range di celle
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'altrimenti sostituirla con questa riga ... indicando le celle da testare
'If Not Intersect(Target, Range("A1,B71,C3")) Is Nothing Then 'verifica PRIMA che la cella contenga un NUMERO
If IsNumeric(Target) Then
'Blogcca errori di runtime e simili
On Error Resume Next
'azzera TUTTI gli EVENTI in modo da moltiplicare per 1000 e non entrare in un LOOP
Application.EnableEvents = False
Target = Target * 1000
'riporta ATTIVO il gestore degli eventi
Application.EnableEvents = True
'permetti che gli errori di runtime e similari vengano ora rilevati
On Error GoTo 0
End If
End If
End Sub

Ovviamente io ho indicato il RANGE di celle A1:A10

[MauroGra]

In qualsiasi cella?

Se si .... vai nell'Editor VBA (ALT+F11) .... quindi inserisci nel giusto foglio di lavoro questa funzione

Private Sub Worksheet_Change(ByVal Target As Range)

'verifica che la cella sia compresa in un certo range di celle
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'altrimenti sostituirla con questa riga ... indicando le celle da testare
'If Not Intersect(Target, Range("A1,B71,C3")) Is Nothing Then 'verifica PRIMA che la cella contenga un NUMERO
If IsNumeric(Target) Then
'Blogcca errori di runtime e simili
On Error Resume Next
'azzera TUTTI gli EVENTI in modo da moltiplicare per 1000 e non entrare in un LOOP
Application.EnableEvents = False
Target = Target * 1000
'riporta ATTIVO il gestore degli eventi
Application.EnableEvents = True
'permetti che gli errori di runtime e similari vengano ora rilevati
On Error GoTo 0
End If
End If
End Sub

Ovviamente io ho indicato il RANGE di celle A1:A10

Graaazieeee Alberto sei un grande, intendevo proprio questo, grazie ancora.

[giofi83]

Non quotare mai tutto il post precedente, non serve!

Ogni forum ha un annuncio in evidenza sull'uso dei quote, leggilo.

[MauroGra]

Ok Giofi83. Grazie a tutti!