LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 536
Default Find #N/A in column D

This finds blank cells, if any, in column D and makes note of such in a msgbox.
How can I do the same with #N/A's in the same column D. The #N/A's, if any, are a result of formulas. I tried altering the formula to produce "" instead of #N/A but still cannot sniff out those cells to include within the msgbox.

Option Explicit

Sub DcEmptyCells()
Dim i As Long
Dim j As Long
Dim ws As Worksheet
On Error Resume Next
i = Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row) _
.SpecialCells(xlCellTypeBlanks).Count
If i 0 Then
MsgBox " You have " & i & " blank(s)." & vbCr & _
"In need of update column D:D.", vbOKOnly, "Blank & N/A"
End If
End Sub

Thanks.
Regards,
Howard
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
find last row value in column when using MATCH to find column Bouce Excel Worksheet Functions 6 February 6th 08 10:16 PM
Find something in column a then find if column B matches criteria Darrell_Sarrasin via OfficeKB.com Excel Discussion (Misc queries) 8 November 28th 07 09:40 PM
Find First Non blank cell than find column header and return that value Silver Rose Excel Worksheet Functions 10 April 30th 07 05:56 PM
Find specific column titles and copy the column to new workboo JLGWhiz Excel Programming 0 December 11th 06 11:23 PM
Find specific column titles and copy the column to new workboo JLGWhiz Excel Programming 0 December 11th 06 11:09 PM


All times are GMT +1. The time now is 06:37 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"