Macro to convert rows with tonnes inputs to kilograms

[lekh0602]

Hi,

I have specific columns where I input values manually - the rows are constant so always from B11 to Q38 and down to row 72 (B-Q). The inputs are values in tonnes that I would like to convert to kilograms by adding three 0. However, some of the cells are also text cells which should not have the three 0s added. Will it be possible to create a macro that auto fill every number cell with "000" but not to any text cell?

Any assistance in this matter is highly appreciated.

Thanks!

 

[VoG]

?? those two ranges overlap.

 

[lekh0602]

I am sorry - my mistake. I mean two tables: B11:Q30 and B38:Q71.

Can I just add an extra code to the specific worksheet? So one for the one range and to the other range?

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("B11:Q30,B38:Q71")) Is Nothing Then
    Application.EnableEvents = False
    For Each c In Target
        If IsNumeric(c.Value) Then c.Value = c.Value * 1000
    Next c
    Application.EnableEvents = True
End If
End Sub

 

[lekh0602]

Hi VoG,

The new code doesn't work in any of the ranges - nothing happens to the cells...

 

[lekh0602]

Sorry. Now it works - thanks a lot for your help!