Do if value in a row and a value in a column

[gheyman]

I have a loop that runs down column A (Starting in row 3 to LstRow). If there is a Value in in column A I offset 5 columns and add a formula.

I want to make this a little more dynamic and have it also look at G1 to see if there is a value there as well before I add the formula.

Is this possible?

 

[apo]

Hi..

This will do what you want..

Note.. In the code below... the value i was looking for in Column A is "2".
The Value i am also looking for in G1 is "1".
If true .. I am inserting this formula into the F column.

Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim L As Long
LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row


For L = 3 To LastRow
        If Sheets("Sheet1").Cells(L, 1).Value = 2 And Sheets("Sheet1").Cells(2, 7).Value = 1 Then
            Sheets("Sheet1").Cells(L, 6).Formula = "=(2+2)"
            L = L + 1
        End If
Next L
End Sub