VBA code compare date and copy cell

[Jd1uth]

Hallo I need some help with a vba code or formula
i need code that compare date on sheet2 a1 with date in collom A on sheet planning
when date (30-9-2024) is the same it copy collomn L1 (text A) to sheet2 C12
When date (7-10-2024) match date on sheet2 1A in copy (text B) collomn L6 to sheet2 F 12
etc.


sheet Planning

Forum.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1	30-9-2024											A
2
3
4
5
6	7-10-2024											B
7
8
9
10
11	14-10-2024											C
12
13
14
15
16	21-10-2024											D
17
18
19
20
21	28-10-2024											E
22
23
24
25
26	4-11-2024											F
27
28
29
planning

Cell Formulas
Range	Formula
A6,A26,A21,A16,A11	A6	=A1+7

Sheet 2

Forum.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T
1	30-9-2024
2		Date that change
3
4
5
6
7
8
9
10
11
12			A			B			C			D				E			F
13
14
15
16
17
18
19
20
Sheet2

 

[Jd1uth]

Nobody who can help me with this??

 

[Jd1uth]

I found this code Made by DanteAmor that does A part of that what I want but I dont now how to modify it so it will work for me

Sub findAndCopy()
  Dim foundCell As Range, sh1, sh2 As Worksheet
 
  'Set sheets
  Set sh1 = Sheets("Planning")
  Set sh2 = Sheets("Sheet2")
 
  'Find string in column C of Sheet2
  Set foundCell = sh2.Range("A1").Find(sh1.Range("A:A").Value, , xlValues, xlWhole)
  If Not foundCell Is Nothing Then 'If match cell is found
    sh1.Range("L:L").Copy
    foundCell.PasteSpecial xlPasteValues
    foundCell.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
  Else
    Call MsgBox("Not found the match cell!", vbExclamation, "Finding String")
  End If
End Sub