View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Michael A Michael A is offline
external usenet poster
 
Posts: 48
Default dave or someone, quick question

Hey dave, on this code you helped me out with yesterday, I was wondering you
could help me modify it.. instead of it displaying "no match" in the cell, I
would like it to leave the cell untouched, and only change the cell if there
is a match.. i have been messing with it and cant figure it out..
If I have it return "" then it deletes over whatever else was there..

res = Application.Evaluate(myFormula)
If IsError(res) Then
BringBack = " no match "
Else
BringBack = SourceWks.Cells(res, 7).Value
End If
.Offset(0, 6).Value = BringBack
End With