Need help with VB code

[Russk68]

Hi All
Michael M (thank you) wrote the original code for me and I'm trying to make a change

I want to replace a deleted formula in column C when I double click in a cell. (See formula below)

If Not Intersect(Target, Range("c:c")) Is Nothing Then
Target.Formula = "=IF(BS$2=""Fixture Type"",CL" & ActiveCell.Row & ,IF(BS$2=""Fixture Type+(DMXFP)"",CJ" & ActiveCell.Row & ))"
Target.Offset(1, 0).Select
End If

This is the result I am looking for if I double click in C3.
=IF(BS$2="Fixture Type",CL3,IF(BS$2="Fixture Type+(DMXFP)",CJ3))

When I click in C4, I need column Cl and CJ to be relative (CL4 and CJ4)

Thank you
Russ

 

[Peter_SSs]

See if this does what you want

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("c:c")) Is Nothing Then
    Cancel = True
    Target.Formula = "=IF(BS$2=""Fixture Type"",CL" & ActiveCell.Row & ",IF(BS$2=""Fixture Type+(DMXFP)"",CJ" & ActiveCell.Row & "))"
  End If
End Sub

 

[Russk68]

Perfect Peter!
Thank you once again!

 

[Peter_SSs]

Perfect Peter!
Thank you once again!

Good news! Thanks for letting us know.