If a string contains @

**luffield** · 09-30-2009, 08:38 AM

Hi there.
I am trying to write in VB some code that will enter a number in a column if a cell has some data in it and one character is an @.
Please see attached spreasheet for idea.
Thanks

Mark

**romperstomper** · 09-30-2009, 08:44 AM

You could just use a formula in column AD:
=IF(ISNUMBER(FIND("@",O2)),1,0)

If you actually need VB, then try:

Sub GetAt()
   Dim n As Long, lngRow As Long
   lngRow = Cells(Rows.Count, "O").End(xlUp).Row
   For n = 2 To lngRow
      Cells(n, "AD").Value = Abs(InStr(Cells(n, "O").Value, "@") > 0)
   Next n
End Sub