Small change

[PIsabel]

Hello
I have this code that works very well.
It runs in column E to the last occupied cell of Column J.
Now I need a new code that does the same but runs only on cells in column E if they have information and if column J on the same line has no information

Thanks
Isabel

Sub no_more_ND()
    Dim c As Range
    For Each c In Range("E1:E" & Range("J" & Rows.Count).End(xlUp).Row)
        c.Select
        Application.SendKeys "{F2}"
        Application.SendKeys "{ENTER}"
        DoEvents
    Next c
    
End Sub

 

[XLfriend777]

Hi PIsabel - You might try something like the following If statement.

Sub PIsabel()
For Each c In Range("E1:E10")
'If E not equal to nothing and J = nothing Then
    If c.Value <> "" And c.Offset(0, 5).Value = "" Then
        c.Value = 5 'Do something here - example sets value to 5
    End If
Next c
End Sub