Need Help with Simple Macro

[RichHearn]

Hi All,

I am trying to create a macro where users selects a cell or multiple cells ( in my case all the cells are located in one column) and increase all the selected cell values by a user defined amount.

For example

I have 5 tools ( t1, t2, t3...) all located in column A1:A5. A person uses tool 2 and tool 4 for 3 hours. So the user can enter 3 in a separate cell and then select t2 and t4 and click compute and the total hours on tool 2 and tool 4 increases by 3 hours.

I realize that it could be done with a simple filter column but this process is completed so many time that even a simple one or two minute saving would amount to a big deal over time.

Thanks in advance for your help

 

[VoG]

Try this

Sub Increase()
Dim h As Variant, r As Range, c As Range
h = Application.InputBox("Enter hours", Type:=1)
If h = False Then Exit Sub
On Error Resume Next
Set r = Application.InputBox("Select the cells", Type:=8)
On Error GoTo 0
If r Is Nothing Then Exit Sub
For Each c In r
    c.Value = c.Value + h
Next c
End Sub

 

[RichHearn]

Thanks for the speedy response

cheers