Find last cell in column and divide by the last cell in aother column

[Aviles]

Hi all,

I'm looking for a vba solution that finds the last cell in column Q and divides it by the last cell in column N. The last cells in column Q & N have sums for each column.

I would then like to return this value in the last empty cell in column P.

I know how to find the last cells in a column but I can't quite figure out how to divide it by another.

Thanks in advance.

 

[JoeMo]

Sub Aviles()
Cells(Rows.Count, "P").End(xlUp).Offset(1).Value = Cells(Rows.Count, "Q").End(xlUp).Value / Cells(Rows.Count, "N").End(xlUp).Value
End Sub

 

[Aviles]

Sub Aviles()
Cells(Rows.Count, "P").End(xlUp).Offset(1).Value = Cells(Rows.Count, "Q").End(xlUp).Value / Cells(Rows.Count, "N").End(xlUp).Value
End Sub

Thank you, that works great!

One last question: how do I get the value returned in column P to be formatted to one decimal place? (NumberFormat = "0.0")

 

[JoeMo]

You are welcome - thanks for the reply.

Try this modification for the formatting you want.

Sub Aviles()
With Cells(Rows.Count, "P").End(xlUp).Offset(1)
    .Value = Cells(Rows.Count, "Q").End(xlUp).Value / Cells(Rows.Count, "N").End(xlUp).Value
    .NumberFormat = "0.0"
End With
End Sub

 

[Aviles]

You are welcome - thanks for the reply.

Try this modification for the formatting you want.

Sub Aviles()
With Cells(Rows.Count, "P").End(xlUp).Offset(1)
    .Value = Cells(Rows.Count, "Q").End(xlUp).Value / Cells(Rows.Count, "N").End(xlUp).Value
    .NumberFormat = "0.0"
End With
End Sub

That's perfect, thanks again!