divide range by contant value

[oddworld]

hi there, i would really appreciate some VBA help. i need to divde column "T" values (End(xlUp) by "8", i need the result in column "Y" . my data starts in row 2. Column T data is hours worked.


Regards,
Odd

 

[Rick Rothstein]

Give this macro a try...

Sub DivideColumnTby8()
  Dim Addr As String
  Addr = "T2:T" & Cells(Rows.Count, "T").End(xlUp).Row
  Range(Addr).Offset(, 5) = Evaluate(Addr & "/8")
End Sub

 

[oddworld]

wow, thank you Rick, Gold Dust.