A.A.A. cercasi macro per dividere numero per 1000

[rauri71]

Ciao a tutti!

non sono più riuscito a recuperare per qualche misterioso motivo il vecchio account Paloma e vi scrivo pertanto con questo nuovo per un quesito che mi sta facendo impazzire: ho diverse centinaia di numeri su più fogli di lavoro excel ciascuno dei quali devo dividere per mille.

Volendo impostare un paio di tasti sulla tastiera per fare questo lavoretto di cesello pensavo di impostare una macro solo che con le mie conoscenze pari a zero virgola mi viene sempre fuori il numero della macro che ho registrato!

Come faccio a fare in modo che mi divida per mille il numero della cella su cui punto esattamente il cursore (e poi premo la sequenza di tasti prevista)?

Grazie mille in anticipo!!
Morris

[alfrimpa]

Con una macro di questo tipo da inserire nel moduli del foglio interessato basta fare doppio clic su una cella e il valore in essa contenuto verrà automaticamente diviso per 1000.

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Value = Target.Value / 1000
    Cancel = True
End Sub

[Francesco53]

Ciao rauri, la più semplice che conosco è questa:

Codice: Seleziona tutto

Sub DivMille()
    riga = ActiveCell.Row
    colonna = ActiveCell.Column
    Cells(riga, colonna) = Cells(riga, colonna) / 1000
End Sub

Poi la richiami con i tasti che vuoi programmare per l'avvio esempio: Ctrl+m

Selezioni la cella che vuoi dividere per mille poi Ctrl+m e restituisce il risultato nella stessa cella.
Francesco

[rauri71]

FANTASTICOOOO
Grazie mille!!!

[Zer0Kelvin]

Codice: Seleziona tutto

Sub DivMille()
    riga = ActiveCell.Row
    colonna = ActiveCell.Column
    Cells(riga, colonna) = Cells(riga, colonna) / 1000
End Sub

Basta

Codice: Seleziona tutto

Sub DivMille()

    ActiveCell = ActiveCell / 1000
   
End Sub