Quarter from Date

[Godders199]

Hi, i have been playing with various codes to get the Quarter of the date in column K, displayed in column P, here is my latest attempt, could someone tell me what i am doing wrong, have googled but not found any examples of what i am looking for.


Sheets ("adviser data")
Dim lastrowcolumnA As Long
lastrowcolumnA = Range("a" & Rows.Count).End(xlUp).row
For i = 2 To lastrowcolumnA
cells(i,16).value= Range ("K"& i).Value = "Q"(month(cell.Value)+2)/3)

 

[GazNicki]

You're adding 2 to the month.

Let's assume the date you want the Quarter for is in cell A1

Ideally you are looking to extract the month from the date - =month(a1)
Then you want to divide that number by 3 - =month(a1)/3
Then, since you need to have a whole number, you need to roundup - =roundup(month(a1)/3,0)
If you want to add a Q beforehand - ="Q"&roundup(month(a1)/3,0)

 

[Godders199]

thanks, due to the size of the workbook, trying to avoid having formulas in the worksheet, i will keep playing, i am sure i will get the VBA to work .