Figuring out proper looping

[jrwrangler]

Hello

I am trying to go down row f and if there is a value in that cell, I want it to divide row f by row c and put it in row g. I dont know much about vba really so if you could walk me through each line i would really appreciate it. thanks a lot

Dim Mycell
r1 As Range
Set r1 = ActiveSheet.Range("f2:f1000")
For Each Mycell In r1
If Mycell <> "" Then
Selection.Value = Cell.Offset(-1, 0) / Cell.Offset(-4, 0)
End If
Next Cell

 

[njimack]

Welcome to the Board.

Something like this?

Sub test()
Dim Last_Row As Long
Dim i As Long
Application.ScreenUpdating = False
With ActiveSheet
    Last_Row = .Range("F" & Rows.Count).End(xlUp).Row
    
    For i = 2 To Last_Row
        If Len(.Cells(i, 6)) > 0 Then
            With .Cells(i, 6)
                .Value = .Offset(0,-1) / .Offset(0,-4)
            End With
        End If
    Next i
End With
Application.ScreenUpdating = True
End Sub

EDIT: Just realised that you mention rows f, c and g in your post. I've amended the offset function as I assume you mean columns f,c and g?

 

[jrwrangler]

I did, thank you. I am getting a mismatch error on this line:

.Value = .Offset(0,-1) / .Offset(0,-4)</pre>

 

[njimack]

I did, thank you. I am getting a mismatch error on this line:

.Value = .Offset(0,-1) / .Offset(0,-4)
</PRE>

To clarify, if column F contains a value, what do you want to happen?
Your original post suggests you want to calculate F/C and write this to column G. Is this correct?

 

[Rick Rothstein]

I am trying to go down row f and if there is a value in that cell, I want it to divide row f by row c and put it in row g. I dont know much about vba really so if you could walk me through each line i would really appreciate it. thanks a lot

Dim Mycell
r1 As Range
Set r1 = ActiveSheet.Range("f2:f1000")
For Each Mycell In r1
If Mycell <> "" Then
Selection.Value = Cell.Offset(-1, 0) / Cell.Offset(-4, 0)
End If
Next Cell

You can do this without using any looping...

Sub DivideFbyC()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "F").End(xlUp).Row
  Range("G2:G" & LastRow) = Evaluate("IF(LEN(F2:F" & LastRow & "),F2:F" & _
                            LastRow & "/C2:C" & LastRow & ","""")")
End Sub

 

[jrwrangler]

Rick, thanks a lot.
Mack, I was tryin to get row f divided by row c and insert calculation in row g. thanks for your help