Check for text, if true, then use this formula

[XLerator]

How do I create code so that it

1. Checks data in Column A that starts with a "Y"
(ie YYZ, YVR, YMX, YYC...airport codes)
2. Types in a formula that uses a formula (let's say =i + b) into column C

3. and once no more criteria matches step one, it finishs?

I've tried to make it simple--if it's too simple let me know....

thanks guys!

[ This Message was edited by: XLerator on 2002-05-23 22:30 ]

[Asala42]

Hey,

Do you need this done in VBA or can you live with a formula? Since I don't know the code off the top of my head:

1. Checks data in Column A that starts with a "Y"
(ie YYZ, YVR, YMX, YYC...airport codes)
2. Types in a formula that uses a formula (let's say =i + b) into column C

3. and once no more criteria matches step one, it finishs?

Copied down ColC: =IF(LEFT(A2,1)="Y",I2+B2,"")

Hope that helps you out somewhat,
Adam

[XLerator]

Hi Adam,

This is perfect! Thank you so much.

Dylan

[Colo]

Hi XLerator,

How many rows has a data in columnA?
Here is an easy sample, but slow.

Sub EasyOne()

    On Error GoTo terminate

    Dim rng As Range

    For Each rng In Intersect(Columns(1), Cells.SpecialCells(xlCellTypeConstants))

        If rng.Value Like "*Y*" Then rng.Offset(, 1).Formula = "=YourFormula"

    Next

terminate:

End Sub

[XLerator]

Each day, the number of rows with data is different, some days it may be 150, others 153, 165, 200 etc....

[Nimrod]

Is this what your looking for ?

Public Sub AddFormula()
With ActiveSheet
    For rw = 1 To .Cells(65536, 1).End(xlUp).Row
        If UCase(Left(Trim(.Cells(rw, 1).Value), 1)) = "Y" Then _
        .Cells(rw, 3).Formula = "=i + b"
    Next 'rw
End With
End Sub