I have attempted this piece of code, but I am little confused as to the syntax for the IsError() function.
Any assistance would be helpful!
Sub Macro9() Dim LReturnValue As Boolean LReturnValue = IsError(Sheets("Lookup Addition").Range("A:A").Value) If LReturnValue = FALSE Then i = MsgBox("there were no errors", vbOKOnly) Else i = MsgBox("there were errors", vbOKOnly) End If End Sub
iserror does not work with an array or multiple-cell range but you can use
Sub Macro9() Dim rErrors as Range on error resume next set rerrors = Sheets("Lookup Addition").Range("A:A").SpecialCells(xlCellTypeFormulas, xlerrors) if rerrors is nothing then i = MsgBox("there were no errors", vbOKOnly) Else i = MsgBox("there were errors", vbOKOnly) End If on error goto 0 End Sub
Josie
if at first you don't succeed try doing it the way your wife told you to
unfortunately, when I place a vlookup in column A that evaluates to an error, the "there were errors" prompt does not come up when I run the macro; the other one comes up insteadOriginally Posted by JosephP
care to post a sample? the code works for me
https://dl.dropboxusercontent.com/u/69651453/Book3.xlsm
wrong sheet name-you need
and notSheets("Lookup Addition ")
;-)Sheets("Lookup Addition")
wrong sheet name-you need
and notSheets("Lookup Addition ")
;-)Sheets("Lookup Addition")
arrgggggggggggghhhhhhh!!!!!!!!!!!!!!!
btw what does the on error go to zero achieve here?
nothing-I wasn't sure if that was really the end of your actual sub so I thought I'd add it just in case
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
niceguy21 
Register To Reply
Bookmarks