I use the following forumula.
=IF(ISNA(MATCH(I1,Output!$D:$D,FALSE)),"",INDEX(INDIRECT("Output!$A$1:$D$99"),MATCH(I1,Output!$D:$D,FALSE),3))
with the following code. Problem is that sometimes values are missing on the output sheet. Anyone have any ideas what could be the problem. I have checked that the formala is there and the references are a match. It only happens about once or twice out of 80 times
=IF(ISNA(MATCH(I1,Output!$D:$D,FALSE)),"",INDEX(INDIRECT("Output!$A$1:$D$99"),MATCH(I1,Output!$D:$D,FALSE),3))
with the following code. Problem is that sometimes values are missing on the output sheet. Anyone have any ideas what could be the problem. I have checked that the formala is there and the references are a match. It only happens about once or twice out of 80 times
Code:
Sub pastespecial()
Worksheets("pcsoutput").Cells.Copy
Worksheets("pcsoutput").Cells.pastespecial xlPasteValues
Worksheets("pcsoutput").Cells.pastespecial xlPasteFormats
End Sub
Sub resetPcsout()
Sheets("Temp").Cells.Copy Sheets("PCSOutput").Cells(1, 1)
End Sub
Sub CopyFilePaths()
Sheets("Scheme").Range("C10").Copy Destination:=Sheets("PCSOUTPUT").Range("CT2")
Sheets("Scheme").Range("C11").Copy Destination:=Sheets("PCSOUTPUT").Range("CU2")
Sheets("Scheme").Range("C12").Copy Destination:=Sheets("PCSOUTPUT").Range("CV2")
End Sub
Sub AddValue()
Dim myRange
Dim c As Range
With Sheets("PcsOutput")
Set myRange = Intersect(.Rows(1), .UsedRange)
End With
For Each c In myRange
If c.Value <> "" Then
c.Value = "Value" & c.Value
End If
Next c
End Sub