Macro to add 0.1 to values in cells within a user selected range

[Luy135]

Hello all, i am fairly new to Excel in general and am still trying to learn the basics. When it comes to Macros i know just about ZERO. Anyway i was hoping to find some help here.

I have a 15x30 cell table each cell has a specific predetermined value. I would like to set up a Button with a Macro that would allow me to use the mouse to highlight any range of cells withing the table and click the button to add 0.1 to the existing values in those selected cells. Any ideas?

I'm sure this is probably something fairly simple but i am a complete novice so please forgive me.

Thank you,
Lou

 

[Scott Huish]

Sub addto()
Dim d As Range
Set d = Cells(Rows.Count, Columns.Count)
d = 0.1
d.Copy
Selection.PasteSpecial , xlPasteSpecialOperationAdd
d.Delete
End Sub

 

[Joe4]

Welcome to the Board!

Here is the VBA code that you would need that will run against all cells in your selection.

Sub AddValue()

    Dim cell As Range
    
    Application.ScreenUpdating = False
    
'   Loop through all cells in the selection
    For Each cell In Selection
'       If the existing value is numeric, add 0.01 to it
        If IsNumeric(cell) Then
            cell = cell + 0.01
        End If
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

And then you can just assign it to a button. The following links show you various ways of doing that: Assign a macro to a Form or a Control button - Excel

 

[Luy135]

EXCELLENT!!!! Those work perfectly! Thank you very much. I can't believe i had been driving myself crazy for the last 2 days trying to figure this out on my own haha