Need your help. I need to add additional information into cells
 

I need to add the Equity to each cell in A in addition to what is
already there. so if A1 = hello I want A1=hello Equity.

Need your help. I need to add additional information into cells
 

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If cell.Value < "" Then
If Not cell.HasFormula Then
cell.Value = cell.Value & " Equity"
End If
End If
Next i

End Sub



--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Shani" wrote in message
oups.com...
I need to add the Equity to each cell in A in addition to what is
already there. so if A1 = hello I want A1=hello Equity.

Need your help. I need to add additional information into cells
 

Sub ABC()
Dim rng as Range, cell as Range
set rng = Range(Cells(1,1),cells(rows.count,1).End(xlup))
for each cell in rng
if len(trim(cell.Value)) 0 then
cell.Value = trim(cell.Value) & " Equity"
end if
Next
End sub

Adjust to fit your requirements.

--
Regards,
Tom Ogilvy


"Shani" wrote:

I need to add the Equity to each cell in A in addition to what is
already there. so if A1 = hello I want A1=hello Equity.

Need your help. I need to add additional information into cells
 

thank you very much

Need your help. I need to add additional information into cells
 

If cell.Value < "" Then

returns error

Need your help. I need to add additional information into cells
 

sorry, should have been

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i, "A").Value < "" Then
If Not Cells(i, "A").HasFormula Then
Cells(i, "A").Value = Cells(i, "A").Value & " Equity"
End If
End If
Next i

End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Shani" wrote in message
oups.com...
If cell.Value < "" Then

returns error