how to change the code to do find the value and replace value

hi
i have this code from this forum but i need to change to do the following
to change the value of column
H = c*.88,
I =c*0.12,
J=sum(H:I)
on same row which changed by input value

PHP Code: 

Sub changevalue2()
    Dim r As Range, rng As Range, r1 As Range, r2 As Range, s As String, c As String



    Set r = Range("G5", Range("G580").End(xlUp))

    r.Offset(0, 8).ClearContents

    s = InputBox("What to find and change?")
    c = InputBox("change with")

    With Range("G5")
        .AutoFilter Field:=7, Criteria1:=s

        On Error Resume Next

        Set rng = r.Cells.SpecialCells(xlCellTypeVisible)    'if no items found

        If rng Is Nothing Then
            MsgBox "No records found"
            .AutoFilter
            Exit Sub
        End If
        r = c                             '<----- its working perfectly as per my  need 
        r1.Offset(0, 8) = c * 0.88     '<----- not working 
        r2.Offset(0, 9) = c * 0.12      '<----- not working 
       
        .AutoFilter
    End With


End Sub 


thanks for help

Hi jay11
I'd try changing these lines of code

Please Login or Register  to view this content.

to this

Please Login or Register  to view this content.

Not tested but you have no reference to r1 or r2. Your reference is to r.
John

Hi jay11
Without seeing your actual workbook, it's difficult to say. However, there is no line of code that changes the value of either H or I. If you're expecting this code

Please Login or Register  to view this content.

to do it, you're off by several columns. If this code is indeed designed to change the values of H and I, it should read

Please Login or Register  to view this content.

If this is what you're trying to accomplish, reverse the change you made to Set r and make the reference change illustrated above. Otherwise, post a copy of what you have and what you'd like it to be and I'll see if I can help.
John

PS: By the way, this also changes I

Please Login or Register  to view this content.

What are your intentions here?

Hi Jay11
I'm still a little unclear what you wish to do (your sample file included no formulas). Try this code

Please Login or Register  to view this content.

and see if we're approaching what it is you wish to accomplish.
Let me know of issues.
John

Hi Jay11
I forgot to point out that I changed this line of code

Please Login or Register  to view this content.

I changed it to this

Please Login or Register  to view this content.

That eliminates this issue

then it change all column with same value as G

John

Hi Jay11
Try this code. It can be executed from any worksheet

Please Login or Register  to view this content.

Let me know of issues.
John

Hi jay11
Don't mark it as solved just yet. I found a glitch. Will get back to you ASAP.
John

Hi jay11
Try this revised code

Please Login or Register  to view this content.

John

Hi jay11

If you still have the old code loaded, enter 999.99 in s = InputBox("What to find and change?") and 888.88 in c = InputBox("change with") and see what happens.

The revised code fixes that.

John

Hi jay11
I think this may have it. Sorry about that.

Please Login or Register  to view this content.

Let me know of issues.
John

Hi jay11

I think we've worked this out. If you're happy with the solution, please mark your post as solved. A click on the scales is appreciated if you feel appropriate.

John