Excel slow respond

[mychi11]

I am using an index match function in another sheet. It will not appear unless I refresh on the matching cell (A4) in this case
=IFNA(INDEX(Master!$E$2:$E$4966,MATCH('CY NO'!$A4,Master!$AL$2:$AL$4966,0)),"")

 

[Michael M]

Have you checked
File>>Options>>Formuals>>Workbook Calculation>>"check the Automatic" button

 

[mychi11]

Yes it is set to automatic.

 

[mychi11]

I have to refresh the cell but going to the cell and click on the number and enter again. the cell is copied from another sheet with vba not sure if this caused the problem/

 

[Michael M]

Is the cell being copied by a custom function ??
What is the code in the macro ?

 

[mychi11]

Sub Copy()

a = Worksheets("A").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

If Worksheets("A").Cells(i, 158).Value = "*" Then
Worksheets("A").Rows(i).Copy
Worksheets("Master").Activate
c = Worksheets("Master").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Master").Cells(c + 1, 1).Select
ActiveCell.PasteSpecial Paste:=xlValues, operation:=xlPasteSpecialOperationNone
Worksheets("A").Activate

End If
Next
Application.CutCopyMode = False

ThisWorkbook.Worksheets("A").Cells(1, 1).Select


End Sub

 

[Michael M]

Try adding the Calculate line before the end of the sub

Sub Copy()
a = Worksheets("A").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("A").Cells(i, 158).Value = "*" Then
Worksheets("A").Rows(i).Copy
Worksheets("Master").Activate
c = Worksheets("Master").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Master").Cells(c + 1, 1).Select
ActiveCell.PasteSpecial Paste:=xlValues, operation:=xlPasteSpecialOperationNone
Worksheets("A").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("A").Cells(1, 1).Select
Calculate
End Sub

 

[mychi11]

It is the same

 

[Michael M]

What is the same ??

 

[mychi11]

Sorry I mean the outcome is the same. I still need to reenter the value on the matching cell.