I am trying to create a custom error message that evaluates the values of
cells in other columns based on a specific value of one cell in the same row.

This is what I am trying to do:

'First I have to select Column D to measure the amount of rows
'in order to know when to stop

Range("D10").Select
x = ActiveCell.Row
y = ActiveCell.Column
w = 0
Do While Cells(x, y).Value <> ""
x = x + 1
w = w + 1
Loop
Range("A10").Select
x = ActiveCell.Row

'I have to do this until w + 10 because the search starts at 10
'I need to find the value in Column A "#N/A"
'when i find it, I need to make sure there is nothing in the same row of
Column C
'if there is something in Column C, then the error displays
'if there is nothing, then it starts checking the next cell for "#N/A" in
Column A

Do Until x = w + 10

'(the next line of code is where I get the error)

If (Cells(x, 1 = "#N/A") And (Cells(x, 3) <> "") Then
Cells(x, 3).Select
MsgBox "The selected cell SHOULD NOT have a number."
Exit Sub
End If
x = x + 1
Loop

End Sub

"RussTheBear" <(E-Mail Removed)> skrev i en meddelelse
news:51EAE95D-699A-438D-A20C-(E-Mail Removed)...
>I am trying to create a custom error message that evaluates the values of
> cells in other columns based on a specific value of one cell in the same
> row.
>
> This is what I am trying to do:
>
> 'First I have to select Column D to measure the amount of rows
> 'in order to know when to stop
>
> Range("D10").Select
> x = ActiveCell.Row
> y = ActiveCell.Column
> w = 0
> Do While Cells(x, y).Value <> ""
> x = x + 1
> w = w + 1
> Loop
> Range("A10").Select
> x = ActiveCell.Row
>
> 'I have to do this until w + 10 because the search starts at 10
> 'I need to find the value in Column A "#N/A"
> 'when i find it, I need to make sure there is nothing in the same row of
> Column C
> 'if there is something in Column C, then the error displays
> 'if there is nothing, then it starts checking the next cell for "#N/A" in
> Column A
>
> Do Until x = w + 10
>
> '(the next line of code is where I get the error)
>
> If (Cells(x, 1 = "#N/A") And (Cells(x, 3) <> "") Then
> Cells(x, 3).Select
> MsgBox "The selected cell SHOULD NOT have a number."
> Exit Sub
> End If
> x = x + 1
> Loop
>
> End Sub

Hi

Try something like this.

if cells(x,1).value ="#N/A" and cells(x,3).value <> "" then

Regards,

Per

This worked, thank you

If IsError(Cells(x, 1).Value) And Cells(x, 3) <> "" Then
Cells(x, 3).Select
MsgBox "The selected cell SHOULD NOT have a number."
Exit Sub
End If
x = x + 1
Loop

"Per Jessen" wrote:

>
> "RussTheBear" <(E-Mail Removed)> skrev i en meddelelse
> news:51EAE95D-699A-438D-A20C-(E-Mail Removed)...
> >I am trying to create a custom error message that evaluates the values of
> > cells in other columns based on a specific value of one cell in the same
> > row.
> >
> > This is what I am trying to do:
> >
> > 'First I have to select Column D to measure the amount of rows
> > 'in order to know when to stop
> >
> > Range("D10").Select
> > x = ActiveCell.Row
> > y = ActiveCell.Column
> > w = 0
> > Do While Cells(x, y).Value <> ""
> > x = x + 1
> > w = w + 1
> > Loop
> > Range("A10").Select
> > x = ActiveCell.Row
> >
> > 'I have to do this until w + 10 because the search starts at 10
> > 'I need to find the value in Column A "#N/A"
> > 'when i find it, I need to make sure there is nothing in the same row of
> > Column C
> > 'if there is something in Column C, then the error displays
> > 'if there is nothing, then it starts checking the next cell for "#N/A" in
> > Column A
> >
> > Do Until x = w + 10
> >
> > '(the next line of code is where I get the error)
> >
> > If (Cells(x, 1 = "#N/A") And (Cells(x, 3) <> "") Then
> > Cells(x, 3).Select
> > MsgBox "The selected cell SHOULD NOT have a number."
> > Exit Sub
> > End If
> > x = x + 1
> > Loop
> >
> > End Sub
>
> Hi
>
> Try something like this.
>
> if cells(x,1).value ="#N/A" and cells(x,3).value <> "" then
>
> Regards,
>
> Per
>
>
>