X Esperti Macro

[Cantor]

Salve, mi serve un favore
Cosa devo scrivere in una macro per excel in modo che il contenuto della colonna B(i numeri che sono contenuti in quella colonna nelle varie righe) vengano divisi per 100 in modo per esempio che il numero 150000 diventi 1500

Grazie in anticipo

Saluti

Cantor

 

[MindGame]

Scritto da Cantor
Salve, mi serve un favore
Cosa devo scrivere in una macro per excel in modo che il contenuto della colonna B(i numeri che sono contenuti in quella colonna nelle varie righe) vengano divisi per 100 in modo per esempio che il numero 150000 diventi 1500

Grazie in anticipo

Saluti

Cantor

Ipotizzando che la colonna di dati inizi dalla cella B1 , che la cella O1 non contenga dati e che i dati nella colonna B siano continui prova:

Sub DivideBy100()
Application.ScreenUpdating = False
Range("O1").Value = "100"
Range("O1").Copy
Range(Range("B1"), Range("B1").End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide
Application.CutCopyMode = False
Range("O1").ClearContents
Application.ScreenUpdating = True
End Sub

Ciao.

 

[Cantor]

Re: Re: X Esperti Macro

Scritto da MindGame
Ipotizzando che la colonna di dati inizi dalla cella B1 , che la cella O1 non contenga dati e che i dati nella colonna B siano continui prova:

Sub DivideBy100()
Application.ScreenUpdating = False
Range("O1").Value = "100"
Range("O1").Copy
Range(Range("B1"), Range("B1").End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide
Application.CutCopyMode = False
Range("O1").ClearContents
Application.ScreenUpdating = True
End Sub

Ciao.

Ciao MindGame che dire GRAZIE MILLE per la tempestiva risposta, adesso provo poi ti faccio sapere, però se non ho capito male dalla tua risposta i dati sono presenti nella riga 1, praticamente iniziano subito dalla prima riga della colonna.
Grazie Ancora

Cantor

 

[Cantor]

PERFETTA GRAZIE MILLE

Scritto da MindGame
Ipotizzando che la colonna di dati inizi dalla cella B1 , che la cella O1 non contenga dati e che i dati nella colonna B siano continui prova:

Sub DivideBy100()
Application.ScreenUpdating = False
Range("O1").Value = "100"
Range("O1").Copy
Range(Range("B1"), Range("B1").End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide
Application.CutCopyMode = False
Range("O1").ClearContents
Application.ScreenUpdating = True
End Sub

Ciao.

FUNZIONA PERFETTAMENTE


GRAZIE ANCORA

CIAO

Cantor