VBA if statement depending on result of 2 columns

[colbecd]

Hi

Im trying to have text enter cell depending on the result of 2 cells in columns D & F being true

so if D2 = VM: and F >= 0 result in R2 = My text

so far I have the below code which keeps failing please help been stuck on this for 2 hours now

Sub IM()
Dim rng As Range
Dim I As Long
Set rng = Range("A2:A100")
For Each cell In rng
If Range("D2:D100") = "IM:" And Range("F2:F100") >= 0 Then??
cell.Offset(0, 15).Value = "My Text"
End If
Next
End Sub

There are 100 rows of data

 

[njimack]

Sub IM()
Dim i As Long


Application.ScreenUpdating = False


For i = 2 To 100
    If Cells(i, 4) = "IM:" And Cells(i, 6) >= 0 Then Cells(i, 18) = "My Text"
Next i


Application.ScreenUpdating = True


End Sub

 

[healey21]

Try changing to this, there maybe another way but it does work:

Sub IM()
Range("A2").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, 3) = "IM:" And ActiveCell.Offset(0, 5) >= 0 Then
ActiveCell.Offset(0, 15).Value = "My Text"
 End If
ActiveCell.Offset(1).Select
Loop
 End Sub

 

[njimack]

Try changing to this, there maybe another way but it does work:

Sub IM()
Range("A2").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, 3) = "IM:" And ActiveCell.Offset(0, 5) >= 0 Then
ActiveCell.Offset(0, 15).Value = "My Text"
 End If
ActiveCell.Offset(1).Select
Loop
 End Sub

It's rarely advisable to select cells. Looping through an integer is much faster, and doesn't result in the activecell changing.