placing "X" at offset point

[jarhead58]

Hi everyone!!

The following code had been working;

Sub Prodigal()Dim x As Range


If IsEmpty(Sheets("Watched").Range("I2")) = True Then
    Sheets("Watched").Range("I2") = "X"
Else
[COLOR=#ff0000]    If IsEmpty(Sheets("Watched").Range("I2")) = False Then[/COLOR]
[COLOR=#ff0000]        Set x = Sheets("Watched").Range("I2:I26").Find("X", LookIn:=xlValues)[/COLOR]
[COLOR=#ff0000]        If x.Address <> "$I$26" Then[/COLOR]
[COLOR=#ff0000]            x.Offset(7, 0) = "X"[/COLOR]
[COLOR=#ff0000]ElseIf x.Address = "$I$26" Then[/COLOR]
    
    MsgBox "Time to change the range!"


End If
End If
End If
End Sub

But when I changed the range in the red section to the following;

Sub Prodigal()Dim x As Range


If IsEmpty(Sheets("Watched").Range("I2")) = True Then
    Sheets("Watched").Range("I2") = "X"
Else
[COLOR=#ff0000]    If IsEmpty(Sheets("Watched").Range("I2")) = False Then[/COLOR]
[COLOR=#ff0000]        Set x = Sheets("Watched").Range("I2:I500").Find("X", LookIn:=xlValues)[/COLOR]
[COLOR=#ff0000]        If x.Address <> "$I$500" Then[/COLOR]
[COLOR=#ff0000]            x.Offset(7, 0) = "X"[/COLOR]
[COLOR=#ff0000]ElseIf x.Address = "$I$500" Then[/COLOR]
    
    MsgBox "Time to change the range!"


End If
End If
End If
End Sub

It didn't work; no errors! Any ideas?

TIA

 

[Fluff]

What are you trying to do?
If I2 is empty it will put an X in I2, otherwise it will find the first X after I2 & put another X in 7 rows below.

 

[Joe4]

Are you sure that you have an entry in I2:I500 that is exactly equal to the capital "X"?

Note that in the code below, you do not need to check again with another IF statement. It can only either be TRUE or FALSE.
So if it is not TRUE, the only other alternative is FALSE (so you do not need the IF statement after the ELSE).

If IsEmpty(Sheets("Watched").Range("I2")) = True Then
    Sheets("Watched").Range("I2") = "X"
Else
[COLOR=#ff0000]    If IsEmpty(Sheets("Watched").Range("I2")) = False Then[/COLOR]

Also, this:

If IsEmpty(Sheets("Watched").Range("I2")) = True Then

can be simplified to this:

If IsEmpty(Sheets("Watched").Range("I2")) Then

 

[jarhead58]

What are you trying to do?
If I2 is empty it will put an X in I2, otherwise it will find the first X after I2 & put another X in 7 rows below.

Fluff, whats happening is, it does the procedure for the same column that I click my button on 3 times and then it does nothing after that! Not sure why it would do that!

 

[Fluff]

If I run the code on a blank sheet, the first time it will put an X in I2, the 2nd will put an X in I9 and the third time it will put an X in I16
After that it will do nothing & both codes are the same in that respect.
What are you trying to do?

 

[jarhead58]

If I run the code on a blank sheet, the first time it will put an X in I2, the 2nd will put an X in I9 and the third time it will put an X in I16
After that it will do nothing & both codes are the same in that respect.
What are you trying to do?

I need it to do it up until it hits the range that I designated; $I$500

 

[jarhead58]

I tried something a little different but it only works if there is a previous X in the column. This is on a blank sheet.

Sheets("Sheet1").Columns("D").Find("X", , , xlWhole, , xlPrevious, False, , False).Offset(7) = "X"

 

[Fluff]

How about

Sub Prodigal()
    Dim x As Range
    
    With Sheets("Watched")
        If IsEmpty(.Range("I2")) Then
            .Range("I2") = "X"
        Else
            Set x = Range("I2:I500").Find("X", , xlValues, xlWhole, xlByRows, xlPrevious, False, , False)
            If x.Row < 494 Then
                x.Offset(7, 0) = "X"
            Else
                MsgBox "Time to change the range!"
            End If
        End If
    End With
End Sub

But

 

[jarhead58]

But lol???

 

[Fluff]

No idea where that came from. Ignore it.