For Loops

[luci_gg]

Hi,

I have written a very simple code to understand how the for loops work in VBA. I would like to add the letters dd in column 3 if column 2 = F2000.
This is what I have:

Sub dd()
Dim i As Long
Dim j As Long
For i = 1 To i = 3
For j = 1 To j = 2
If Cells(i, 2) = F2000 Then
Cells(i, 3) = dd
End If
Next j
Next i

End Sub

Why is this not working?? I don't get any error messages from excel but nothing happens.

Thanks for your help!!!

 

[VoG]

dd is a variable name with no value assigned. Try

Sub dd()
Dim i As Long
Dim j As Long
For i = 1 To i = 3
    For j = 1 To j = 2
        If Cells(i, 2) = F2000 Then
            Cells(i, 3).Value = "dd"
        End If
    Next j
Next i

End Sub

 

[luci_gg]

Tried that and it doesn't work either...

 

[VoG]

Sorry, it should be

Sub dd()
Dim i As Long
Dim j As Long
For i = 1 To i = 3
    For j = 1 To j = 2
        If Cells(i, 2) = "F2000" Then
            Cells(i, 3).Value = "dd"
        End If
    Next j
Next i

End Sub

 

[luci_gg]

No luck...

 

[VoG]

Tested and working

Sub dd()
Dim i As Long
Dim j As Long
For i = 1 To 3
    For j = 1 To 2
        If Cells(i, 2) = "F2000" Then
            Cells(i, 3).Value = "dd"
        End If
    Next j
Next i
End Sub

 

[vaskov17]

Oddly enough the above code wasn't working for me either. What I did is copy the F2000 from the VBA code and paste it into B1,B2 and B3 and it worked.

 

[luci_gg]

This is very random! I had to create a new excel and copy the code and it worked...
Thanks for your help, very much appreciated.