VBA Script which adds a Julian Day to a cell

[EO4oOJQ9Sm]

I have an excel document with two Sheets.
Sheet One (Worklog) displays my daily work log.
Column A on Sheet One lets me choose work tasks from my list on Sheet 2.
Sheet 2 (List) has a list of tasks that I do each week.
The task I am concerned with in the list is End Day.
So in my first Sheet. I can click in Column A and select End Day from the list
and in Column G it will display "End Day".

Below is the script I use to get the text End Day to display.

How do I add the Julian day after the text End Day?


If Target.Cells.Value = "End Day" Then
MsgBox Intersect (Target, Range ("A1:A10000"))
With Target (1,7)
.value = "End Day"

Also in Sheet 2 (List) I have A30 set to display the current day =TODAY()
I have A31 set to Display the Julian Date =A30-(DATE(YEAR(A30),1,1)-1)

 

[guerillaunit]

Hi, it sounds like sheet1's cells G1 and A1 will display the same thing (G1 displays whatever you select for A1). Are you trying to get cell H1 to display the Julian date?

 

[p45cal]

How do I add the Julian day after the text End Day?

.value = "End Day " & Date - (DateSerial(Year(Date), 1, 1) - 1)
?

 

[EO4oOJQ9Sm]

That totally worked!!! Thank you so much.