Math operation between a column with unique formulas and another column

[dejhantulip]

Hello guys!

So I've been having this situation quite often, and I have searched and thought of something to solve my problem but haven't been able to find anything.

I have a two columns. Column F and G.
In Column F I have several rows of information, each row is unique, some are values and some are formulas.
Because of the nature of the work I do, sometimes I need to "affect" each of the cells in Column F with a factor (multiplying, or dividing, or sometimes even adding or substracting) in Column G.

For example, as you can see in the attached image:
1) Cell F10 has a hard-entered number 0.60, in this case I would like the cell to be =(0.60)*G10
2) Cell F11 has the formula =E11*$J$13 and in this case I would like the cell to be =(E11*$J$13)*G11

That is the basic idea. I guess I would have to use some kind of VBA code... but I am not sure.
Anyone could help me out?

Thank you very much in advance!

 

[MARK858]

I'll have a look later

 

[dejhantulip]

I'll have a look later

Thanks a million!!

 

[MARK858]

Try...

Sub AppendFormulaFromSingleCell()
    Dim myCell As Range, myRng As Range, lr As Long
 
    Dim xSRg As Range                            'ONB
  
 
    Set myRng = Selection
    On Error Resume Next
    Set xSRg = Application.InputBox("Select CELL to be multiplied to previously selected range:", "Test", "xTxt", , , , , 8) 'ONB
    On Error GoTo 0
    
    If xSRg Is Nothing Then Exit Sub             'ONB

    For Each myCell In myRng
        If myCell.Value <> "" Then
            If Not myCell.HasFormula Then
                myCell.Formula = "=" & myCell.Value & "*" & xSRg.Address 'Range("$B$2").Address
            Else
                myCell.Formula = "=(" & Replace(myCell.Formula, "=", "") & ")" & "*" & xSRg.Address 'Range("$B$2").Address
            End If
        End If
    Next

End Sub

 

[dejhantulip]

Try...

Sub AppendFormulaFromSingleCell()
    Dim myCell As Range, myRng As Range, lr As Long

    Dim xSRg As Range                            'ONB
 

    Set myRng = Selection
    On Error Resume Next
    Set xSRg = Application.InputBox("Select CELL to be multiplied to previously selected range:", "Test", "xTxt", , , , , 8) 'ONB
    On Error GoTo 0
   
    If xSRg Is Nothing Then Exit Sub             'ONB

    For Each myCell In myRng
        If myCell.Value <> "" Then
            If Not myCell.HasFormula Then
                myCell.Formula = "=" & myCell.Value & "*" & xSRg.Address 'Range("$B$2").Address
            Else
                myCell.Formula = "=(" & Replace(myCell.Formula, "=", "") & ")" & "*" & xSRg.Address 'Range("$B$2").Address
            End If
        End If
    Next

End Sub

Works like a charm!!! Thank you so very very very much!!