VBA Code for Selective formula writing

[Fuerteventura]

I need to write some VBA code which will write formula into several rows - however, I want it to select which rows it writes the code into depending upon the following

Sheet1

(Row Number) ID Price
1 1234 (Formula which will be written if applicable)
2 4321 (Formula which will be written if applicable)
3 5678 (Formula which will be written if applicable)


Sheet2
ID
1234

In this case, I would only want to write the formula into line 1 in sheet1.

is this possible? maybe an If statement or something or a For Each Rows = 1 to X????
Cheers.

[Bernie Deitrick]

Fuerteventura,

Dim myCell As Range
For Each myCell In Worksheets("Sheet1").Range("A2:A4")
If Not (IsError(Application.Match(myCell.Value, _
Worksheets("Sheet2").Range("A:A"), False))) Then
myCell(1, 2).Formula = "=Formula which will be written....."
End If
Next myCell

Or you could just use an if formula in all the cells, that returns "" when the value isn't found....

HTH,
Bernie
MS Excel MVP


"Fuerteventura" <[email protected]> wrote in message
news:[email protected]...
>
> I need to write some VBA code which will write formula into several rows
> - however, I want it to select which rows it writes the code into
> depending upon the following
>
> Sheet1
>
> (Row Number) ID Price
> 1 1234 (Formula which will be written if applicable)
> 2 4321 (Formula which will be written if applicable)
> 3 5678 (Formula which will be written if applicable)
>
>
> Sheet2
> ID
> 1234
>
> In this case, I would only want to write the formula into line 1 in
> sheet1.
>
> is this possible? maybe an If statement or something or a For Each Rows
> = 1 to X????
> Cheers.
>
>
> --
> Fuerteventura
> ------------------------------------------------------------------------
> Fuerteventura's Profile: http://www.excelforum.com/member.php...o&userid=26586
> View this thread: http://www.excelforum.com/showthread...hreadid=398560
>