if column I is blank, then puts an "a" in column A.

[Randy Reese]

I need code that if column I ,starting with row 2 (with unknown number of
rows) is blank, then puts an a in column A.

 

[Tim Zych]

Sub PutA()
Dim rng As Range, cell As Range
Set rng = Application.Intersect( _
Range("I2:I65536"), ActiveSheet.UsedRange)
If Not rng Is Nothing Then
For Each cell In rng.Cells
If Len(cell.Value) = 0 Then
Cells(cell.Row, "A").Value = "a"
End If
Next cell
End If
End Sub

 

[Randy Reese]

This puts a's all the way to row 500. My test data goes to row 171.

 

[acw]

Hi

Try
Sub aaa()
Range("i65536").End(xlUp).Select
While ActiveCell.Row > 1
If IsEmpty(ActiveCell) Then Cells(ActiveCell.Row, 1) = "a"
ActiveCell.Offset(-1, 0).Select
Wend



End Sub


This will find the last entry in column I and work up from
there.

Tony

 

[acw]

Hi

Ok revised using column B

Sub aaa()
Range("B65536").End(xlUp).Select
While ActiveCell.Row > 1
If IsEmpty(ActiveCell.offset(0,7)) Then Cells
(ActiveCell.Row, 1) = "a"
ActiveCell.Offset(-1, 0).Select
Wend
End Sub

Tony

 

[Randy Reese]

Thanks Tony, works great.

Hi

Ok revised using column B

Sub aaa()
Range("B65536").End(xlUp).Select
While ActiveCell.Row > 1
If IsEmpty(ActiveCell.offset(0,7)) Then Cells
(ActiveCell.Row, 1) = "a"
ActiveCell.Offset(-1, 0).Select
Wend
End Sub

Tony