is this code working ???

[gopdeep]

lastrow = Cells(Rows.Count, 1).End(xlUp).Row
lastcol = Cells(1, Columns.Count).End(xlToLeft).Column

For j = CInt(col) To lastcol Step 2
    For i = 1 To lastrow
        If IsEmpty(Cells(i, j).Value) Then
            Cells(i, j).Value = "Not in Scope"
        End If
    Next i
Next j

 

[gopdeep]

can expert me

my above code is not working as expected

 

[Tom Urtis]

"Re: is this code working ???"

Maybe yes, maybe no. Depends on what you think "working as expected" means.

 

[gopdeep]

code should paste "Not in Scope" if any cell is empty and this should be done column wise.

If IsEmpty(Cells(i, j).Value) Then

 

[Michael M]

what is

 j = CInt(col) To lastcol Step 2

dimmed as

 

[gopdeep]

am getting "col" as input (-> below) which was declared as String, so that converting that in to integer.

col = InputBox("enter column number")

 

[Michael M]

Ok, so how about posting ALL the code ....as per my tag !

 

[njimack]

You don't need to loop through the range. Something like this...

Sub test()
Dim lastrow As Long
Dim lastcol As Long


lastrow = Cells(Rows.Count, 1).End(xlUp).Row
lastcol = Cells(1, Columns.Count).End(xlToLeft).Column

Range(Cells(2, col), Cells(lastrow, lastcol)).SpecialCells(xlCellTypeBlanks) = "Not in scope"

End Sub

 

[Michael M]

Yeah, nice call Neil....much faster than
I took as stab and came up with...

Sub tst()
Dim lastrow As Long, lastcol As Integer, j As Integer, i As Long, col As String
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
lastcol = Cells(1, Columns.Count).End(xlToLeft).Column
col = InputBox("please insert column No")
For j = CInt(col) To lastcol Step 2
    For i = 1 To lastrow
        If IsEmpty(Cells(i, j).Value) Then
            Cells(i, j).Value = "Not in Scope"
        End If
    Next i
Next j
End Sub

 

[njimack]

Yeah, nice call Neil....much faster than
I took as stab and came up with...

Cheer Michael.