Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
Dim lLastrow As Long
With lLastrow = .Range("C65536").End(xlUp).Row
Application.EnableEvents = False
For Each rCell In .Range("I1:I" & lLastrow)
If rCell.Offset(6, 0).Value <> "" Then
rCell.FormulaR1C1 = "=IF(D" & rCell.row & _
"="""","""",(H" & rCell.row & "/G" & rCell.row _
& "))"
End If
Next rCell
Application.EnableEvents = True
End With
End Sub

--
Regards,
Tom Ogilvy



"Desert Piranha"
<[email protected]> wrote in
message news:[email protected]...
>
> Crowbar via OfficeKB.com Wrote:
> > Dim LastRow As Long
> > Dim RowNdx As Long
> > Dim OldVal As String
> >
> > LastRow = Cells(Rows.Count, "I").End(xlUp).Row
> > OldVal = Range("C1")
> > For RowNdx = 5 To LastRow
> > If Cells(RowNdx, "I").Value = "" Then
> > Cells(RowNdx, "C").Value = OldVal
> > Else
> > OldVal = Cells(RowNdx, "C").Value
> > End If
> > Next RowNdx
> >
> > --
> > Message posted via OfficeKB.com
> > http://www.officekb.com/Uwe/Forums.a...ing/200601/1Hi
Crowbar,
>
> I'v played with this for an hour or so. Haven't had any sucess yet,
> will keep trying and post back.
>
>
> --
> Desert Piranha
>
>
> ------------------------------------------------------------------------
> Desert Piranha's Profile:
http://www.excelforum.com/member.php...o&userid=28934
> View this thread: http://www.excelforum.com/showthread...hreadid=504764
>