Get numbers based on date

[KlausW]

Dear everyone

Some who can help.
It would be easy for me to do in formula, but it is important that it is VBA code.
I want a VBA code where in sheet Soft in cell A2 I have the day date.
Now I would like to be able to get a number from a list to appear in cell C2
The list I would like to use is below the text and looks like this. It covers a whole year.
So when cell A2 shows 13 January 2025, cell C2 should read 35170.
If 1 February 2025 is written in cell A2, 43079 must be written in cell C2. And so on.
I hope some can help, any help will be appreciated.

Best Regards
Klaus W

1. januar 2025​	32737​
2. januar 2025​	51264​
3. januar 2025​	58898​
4. januar 2025​	37718​
5. januar 2025​	50756​
6. januar 2025​	40696​
7. januar 2025​	45173​
8. januar 2025​	54084​
9. januar 2025​	43329​
10. januar 2025​	31018​
11. januar 2025​	59905​
12. januar 2025​	37488​
13. januar 2025​	35170​
14. januar 2025​	56290​
15. januar 2025​	55536​
16. januar 2025​	42026​
17. januar 2025​	39397​
18. januar 2025​	34919​
19. januar 2025​	58484​
20. januar 2025​	53028​
21. januar 2025​	52748​
22. januar 2025​	45148​
23. januar 2025​	34827​
24. januar 2025​	55359​
25. januar 2025​	38641​
26. januar 2025​	36709​
27. januar 2025​	57057​
28. januar 2025​	49513​
29. januar 2025​	38112​
30. januar 2025​	46421​
31. januar 2025​	39842​
1. februar 2025​	43079​
2. februar 2025​	30455​
3. februar 2025​	37457​
4. februar 2025​	37812​
5. februar 2025​	49354​
6. februar 2025​	57104​
7. februar 2025​	54079​
8. februar 2025​	48089​
9. februar 2025​	32104​
10. februar 2025​	37602​
11. februar 2025​	41657​
12. februar 2025​	30891​
13. februar 2025​	48067​
14. februar 2025​	53482​
15. februar 2025​	40163​
16. februar 2025​	55547​
17. februar 2025​	46753​
18. februar 2025​	56352​
19. februar 2025​	48134​
20. februar 2025​	44696​
21. februar 2025​	49585​
22. februar 2025​	54844​
23. februar 2025​	37764​
24. februar 2025​	31210​
25. februar 2025​	42231​
26. februar 2025​	56400​
27. februar 2025​	40243​
28. februar 2025​	49264​
1. marts 2025​	55490​
2. marts 2025​	48044​
3. marts 2025​	45396​
4. marts 2025​	40136​
5. marts 2025​	59574​
6. marts 2025​	36650​
7. marts 2025​	43668​
8. marts 2025​	35113​
9. marts 2025​	52880​
10. marts 2025​	41783​
11. marts 2025​	31476​
12. marts 2025​	38254​
13. marts 2025​	53276​
14. marts 2025​	42614​
15. marts 2025​	39590​
16. marts 2025​	39813​
17. marts 2025​	44481​
18. marts 2025​	37341​
19. marts 2025​	35553​
20. marts 2025​	44810​
21. marts 2025​	59590​
22. marts 2025​	52474​
23. marts 2025​	47764​
24. marts 2025​	39821​
25. marts 2025​	48316​
26. marts 2025​	38094​
27. marts 2025​	32144​
28. marts 2025​	45016​
29. marts 2025​	47937​
30. marts 2025​	40601​
31. marts 2025​	30346​
1. april 2025​	55703​
2. april 2025​	38612​
3. april 2025​	32746​
4. april 2025​	34986​
5. april 2025​	47624​
6. april 2025​	56246​
7. april 2025​	34491​
8. april 2025​	44280​
9. april 2025​	30782​
10. april 2025​	44744​
11. april 2025​	47131​
12. april 2025​	43821​
13. april 2025​	52787​
14. april 2025​	46309​
15. april 2025​	52749​
16. april 2025​	48471​
17. april 2025​	38232​
18. april 2025​	39069​
19. april 2025​	30594​
20. april 2025​	32658​
21. april 2025​	58529​
22. april 2025​	57211​
23. april 2025​	47703​
24. april 2025​	43427​
25. april 2025​	58169​
26. april 2025​	58400​
27. april 2025​	48679​
28. april 2025​	56760​
29. april 2025​	30855​
30. april 2025​	32371​
1. maj 2025​	30795​
2. maj 2025​	52563​
3. maj 2025​	47378​
4. maj 2025​	38780​
5. maj 2025​	38352​
6. maj 2025​	30483​
7. maj 2025​	55622​
8. maj 2025​	53232​
9. maj 2025​	58846​
10. maj 2025​	59425​
11. maj 2025​	30046​
12. maj 2025​	49719​
13. maj 2025​	36875​
14. maj 2025​	59222​
15. maj 2025​	33361​
16. maj 2025​	49289​
17. maj 2025​	36837​
18. maj 2025​	42484​
19. maj 2025​	33155​
20. maj 2025​	39533​
21. maj 2025​	44528​
22. maj 2025​	37298​
23. maj 2025​	32797​
24. maj 2025​	56883​
25. maj 2025​	54123​
26. maj 2025​	56712​
27. maj 2025​	30645​
28. maj 2025​	37924​
29. maj 2025​	34516​
30. maj 2025​	57027​
31. maj 2025​	46925​
1. juni 2025​	37659​
2. juni 2025​	37697​
3. juni 2025​	41815​
4. juni 2025​	58508​
5. juni 2025​	48023​
6. juni 2025​	39029​
7. juni 2025​	35670​
8. juni 2025​	39515​
9. juni 2025​	47635​
10. juni 2025​	51307​
11. juni 2025​	31068​
12. juni 2025​	47976​
13. juni 2025​	35121​
14. juni 2025​	51439​
15. juni 2025​	33768​
16. juni 2025​	39094​
17. juni 2025​	30605​
18. juni 2025​	57778​
19. juni 2025​	49077​
20. juni 2025​	35419​
21. juni 2025​	43509​
22. juni 2025​	41928​
23. juni 2025​	38860​
24. juni 2025​	49681​
25. juni 2025​	38883​
26. juni 2025​	43364​
27. juni 2025​	40759​
28. juni 2025​	42303​
29. juni 2025​	34722​
30. juni 2025​	38578​
1. juli 2025​	47366​
2. juli 2025​	37135​
3. juli 2025​	50314​
4. juli 2025​	44111​
5. juli 2025​	54000​
6. juli 2025​	38704​
7. juli 2025​	30442​
8. juli 2025​	57696​
9. juli 2025​	30355​
10. juli 2025​	38072​
11. juli 2025​	46785​
12. juli 2025​	44865​
13. juli 2025​	52544​
14. juli 2025​	32834​
15. juli 2025​	50837​
16. juli 2025​	55275​
17. juli 2025​	56720​
18. juli 2025​	53823​
19. juli 2025​	39887​
20. juli 2025​	31205​
21. juli 2025​	55038​
22. juli 2025​	48084​
23. juli 2025​	46761​
24. juli 2025​	44334​
25. juli 2025​	57910​
26. juli 2025​	45417​
27. juli 2025​	52948​
28. juli 2025​	35518​
29. juli 2025​	40316​
30. juli 2025​	39349​
31. juli 2025​	38603​
1. august 2025​	31502​
2. august 2025​	46650​
3. august 2025​	52055​
4. august 2025​	48732​
5. august 2025​	48560​
6. august 2025​	51657​
7. august 2025​	51160​
8. august 2025​	40157​
9. august 2025​	41020​
10. august 2025​	55819​
11. august 2025​	49539​
12. august 2025​	34739​
13. august 2025​	43162​
14. august 2025​	44689​
15. august 2025​	38002​
16. august 2025​	40450​
17. august 2025​	45493​
18. august 2025​	34889​
19. august 2025​	57557​
20. august 2025​	56676​
21. august 2025​	41996​
22. august 2025​	46005​
23. august 2025​	36933​
24. august 2025​	39327​
25. august 2025​	39793​
26. august 2025​	55264​
27. august 2025​	58964​
28. august 2025​	33774​
29. august 2025​	58644​
30. august 2025​	51470​
31. august 2025​	31335​
1. september 2025​	40387​
2. september 2025​	45498​
3. september 2025​	38536​
4. september 2025​	54353​
5. september 2025​	40090​
6. september 2025​	45128​
7. september 2025​	57689​
8. september 2025​	47940​
9. september 2025​	41148​
10. september 2025​	37376​
11. september 2025​	34055​
12. september 2025​	47281​
13. september 2025​	55331​
14. september 2025​	45639​
15. september 2025​	57318​
16. september 2025​	45769​
17. september 2025​	47795​
18. september 2025​	36173​
19. september 2025​	32346​
20. september 2025​	56568​
21. september 2025​	58176​
22. september 2025​	39429​
23. september 2025​	46257​
24. september 2025​	34863​
25. september 2025​	48267​
26. september 2025​	35576​
27. september 2025​	44167​
28. september 2025​	51462​
29. september 2025​	42545​
30. september 2025​	45555​
1. oktober 2025​	59078​
2. oktober 2025​	38045​
3. oktober 2025​	35818​
4. oktober 2025​	31000​
5. oktober 2025​	31206​
6. oktober 2025​	36858​
7. oktober 2025​	43192​
8. oktober 2025​	30145​
9. oktober 2025​	38950​
10. oktober 2025​	38963​
11. oktober 2025​	33887​
12. oktober 2025​	37628​
13. oktober 2025​	31616​
14. oktober 2025​	51969​
15. oktober 2025​	58782​
16. oktober 2025​	45316​
17. oktober 2025​	45404​
18. oktober 2025​	50373​
19. oktober 2025​	39321​
20. oktober 2025​	49995​
21. oktober 2025​	40736​
22. oktober 2025​	44594​
23. oktober 2025​	32524​
24. oktober 2025​	47388​
25. oktober 2025​	58094​
26. oktober 2025​	55706​
27. oktober 2025​	54848​
28. oktober 2025​	37821​
29. oktober 2025​	56678​
30. oktober 2025​	42863​
31. oktober 2025​	49419​
1. november 2025​	32449​
2. november 2025​	46479​
3. november 2025​	34204​
4. november 2025​	56000​
5. november 2025​	39188​
6. november 2025​	54786​
7. november 2025​	35699​
8. november 2025​	56457​
9. november 2025​	55013​
10. november 2025​	45330​
11. november 2025​	42439​
12. november 2025​	42418​
13. november 2025​	39388​
14. november 2025​	56508​
15. november 2025​	50392​
16. november 2025​	34279​
17. november 2025​	57600​
18. november 2025​	59090​
19. november 2025​	48118​
20. november 2025​	50245​
21. november 2025​	43264​
22. november 2025​	32314​
23. november 2025​	53878​
24. november 2025​	41209​
25. november 2025​	40774​
26. november 2025​	31375​
27. november 2025​	57633​
28. november 2025​	57686​
29. november 2025​	36602​
30. november 2025​	45644​
1. december 2025​	38014​
2. december 2025​	56573​
3. december 2025​	53791​
4. december 2025​	56100​
5. december 2025​	52287​
6. december 2025​	42501​
7. december 2025​	52348​
8. december 2025​	30756​
9. december 2025​	44357​
10. december 2025​	44750​
11. december 2025​	57333​
12. december 2025​	51143​
13. december 2025​	38945​
14. december 2025​	40435​
15. december 2025​	43276​
16. december 2025​	55106​
17. december 2025​	43900​
18. december 2025​	33984​
19. december 2025​	43215​
20. december 2025​	59157​
21. december 2025​	58048​
22. december 2025​	52726​
23. december 2025​	39245​
24. december 2025​	40359​
25. december 2025​	59772​
26. december 2025​	48025​
27. december 2025​	41927​
28. december 2025​	42787​
29. december 2025​	55134​
30. december 2025​	46326​
31. december 2025​	59653​

 

[kvsrinivasamurthy]

Does the data shown in 1st column is in date format.
Data in Sheet1 and Formula in other sheet.
In C2

=VLOOKUP(A2,Sheet1!$A$2:$A$366,2,0)

 

[myall_blues]

Try this. Put the date/value data you have shown above into a new worksheet called 'Lookup', in the range A2:B366 (you can later hide it if you want).

Then put the code below into the Worksheet_Change event of sheet 'Soft'.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ReturnVal
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    On Error GoTo AppEnable
    ReturnVal = Application.VLookup(Target.Value, Worksheets("Lookup").Range("A2:B366"), 2, False)
    If IsError(ReturnVal) Then
        MsgBox ("Invalid date")
    Else
        Range("C2").Value = ReturnVal
    End If
AppEnable:
    Application.EnableEvents = True
End Sub

 

[KlausW]

Try this. Put the date/value data you have shown above into a new worksheet called 'Lookup', in the range A2:B366 (you can later hide it if you want).

Then put the code below into the Worksheet_Change event of sheet 'Soft'.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ReturnVal
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    On Error GoTo AppEnable
    ReturnVal = Application.VLookup(Target.Value, Worksheets("Lookup").Range("A2:B366"), 2, False)
    If IsError(ReturnVal) Then
        MsgBox ("Invalid date")
    Else
        Range("C2").Value = ReturnVal
    End If
AppEnable:
    Application.EnableEvents = True
End Sub

Hi myall_blues thank you very much as it should be. Regards Klaus Denmark

 

[myall_blues]

You’re welcome. I’m glad it worked for you.