Makrolu dosyada formül sorunu

[kadirdiloglu]

Merhaba,

Makrolu dosyamda aşağıdaki gibi bir formülüm var ancak formülün üstüne çift tıkladıktan sonra karşısına veriyi getiriyor.Makro uygulamadan önce direk karşısına veriyi getiriyordu.

formül =EĞER(J491="R";DÜŞEYARA($C491;'Z:\[OCAK 2016.xlsm]Puantaj'!$B$2:$D$1000;3;0);"")


Makro ise şöyle

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
Call RenkSil
[Z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 15)).FormatConditions.Add Type:=xlExpression, Formula1:="=$Z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 15)).FormatConditions(1).Interior.ColorIndex = 6
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 15)).FormatConditions(1).Font.Bold = True
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 15)).FormatConditions(1).Font.ColorIndex = 3
End Sub
Sub RenkSil()
On Error Resume Next
Cells.FormatConditions.Delete
End Sub

 

[ÖmerBey]

Formül sekmesinden hesaplama seçeneklerine baktınız mı? Otomatik olması gerekir.