About Us

Don Guillett

Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Horatio J. Bilge, Jr." wrote in
message ...
Thank you for the idea - it works great. This is the final code I used:

Private Sub cmdErrorCheck_Click()
Dim m As String
Dim i As Integer

For i = 3 To 42
If Cells(i, "P").Value 4 Then
m = m & vbLf & Cells(i, "A").Value
ElseIf Cells(i, "O").Value 3 Then
m = m & vbLf & Cells(i, "A").Value
End If
Next i

MsgBox "There is an error these people: " & m
End Sub

"Don Guillett" wrote:

try this idea

for i=3 to 42
if cells(i,"p")4 then msgbox "error on "&cells(i,"a")
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Horatio J. Bilge, Jr." wrote
in
message ...
I am trying to write a macro that will check the last cell in each row
of a
range against a condition. If the condition is met, then the value of
the
first cell in the row is added to a string. The string will be used for
a
message box.

The range("A3:P42") has names in the first column, data in the middle
columns, and totals in the last column. I'm trying to use a for-next
loop,
but I'm stuck on how to refer to the correct cell. This is what I have
tried:

Private Sub cmdErrorCheck_Click()
Dim e As String

For Each .Row In Me.Range("A3:P42")
If [the last cell].Value 4 Then
e = e & [the first cell].Value
End If
Next .Row

MsgBox "There is an error on these people: " & e

End Sub

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Check & Convert cell Value if condition auto	SteveT	Excel Discussion (Misc queries)	3	June 25th 08 11:10 PM
Code to delete columns meeting a condition	CEG	Excel Discussion (Misc queries)	6	February 5th 07 05:03 PM
Continually check if condition is true in VBA	[email protected]	Excel Discussion (Misc queries)	1	October 4th 06 05:43 PM
comparing two dates and executing code on condition	ashish128	Excel Discussion (Misc queries)	4	August 31st 06 10:45 AM