Private Sub Worksheet_Change(ByVal Target As Range) 'These need to be added into the worksheet VBA section itself 'Enter a price in column B and a formula is instantly entered in column C. ' Formula in column c: Cell value in column B multiplied by 1.1 Dim lRow As Single Dim AStr As String Dim Value As Variant If Not Intersect(Target, Range("B:B")) Is Nothing Then For Each Value In Target If Value <> "" Then Range("C" & Value.Row).Formula = "=" & Target.Address & "*1.1" End If Next Value End If End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter