User Form entry in a second sheet - need help with VBA code

[Atlantis764]

Hi all,

I'm trying to use a form to add data to 2 sheets (Database and Database1).
In the first sheet (Database) each entry is added as a new line and everything is working fine.
The problem is when I try to add the data in the second sheet because I have to to match 3 criteria (name, project and task) and I don't know how to write the exact code for that.
I have used a code from a previous version of that form where only 2 criteria were matched (name and project).
In the Database1 sheet I filled with colors the cells where the values from the Database sheet must be entered.
I am attaching the work file.
Thanks in advance! Any help would be appreciated!

Work_file.xlsm
	G
17
Database

Work_file.xlsm
	E
30
Database1

Sub Submit_Data()

Dim sh As Worksheet
Dim sh1 As Worksheet
Dim iRow As Long, colno As Integer, iCol As Long, rowno As Integer
Dim iRow1 As Long, colno1 As Integer, iCol1 As Integer, reqdRow As Integer
Set sh = ThisWorkbook.Sheets("Database")
Set sh1 = ThisWorkbook.Sheets("Database1")
iRow = [Counta(Database!A:A)] + 1
iCol = Sheets("Database").Cells(1, Columns.Count).End(xlToLeft).Column - 1
iRow1 = [Counta(Database1!A:A)] + 1
iCol1 = Sheets("Database1").Cells(1, Columns.Count).End(xlToLeft).Column - 1

Application.ScreenUpdating = False
With sh
.Cells(iRow, 1) = iRow - 1
.Cells(iRow, 2) = UserFormTest.CmbYear.Value
.Cells(iRow, 3) = UserFormTest.CmbMonth.Value
.Cells(iRow, 4) = UserFormTest.CmbName.Value
.Cells(iRow, 5) = UserFormTest.CmbProject.Value
.Cells(iRow, 6) = UserFormTest.CmbTask.Value
.Cells(iRow, 7) = UserFormTest.TxtAmount.Value
.Cells(iRow, 8) = Application.UserName
End With

With sh1
For rowno = 1026 To iRow1
If .Cells(rowno, 1) = UserFormTest.CmbName.Value And .Cells(rowno, 2) = UserFormTest.CmbProject.Value Then
reqdRow = rowno
Exit For
End If
Next
For colno = 4 To iCol1
If UserFormTest.CmbMonth.Value = Format(.Cells(1, colno), "MMMM") And _
UserFormTest.CmbYear.Value = Format(.Cells(1, colno), "YYYY") Then
.Cells(reqdRow, colno) = UserFormTest.TxtAmount.Value
End If
Next
.Cells(iRow, iCol1 + 3) = Application.UserName
End With

Call Reset

Application.ScreenUpdating = True
MsgBox "Date incarcate cu succes!"

End Sub

 

[Atlantis764]

This are the files

Work_file.xlsm
	A	B	C	D	E	F	G	H
1	S.No.	Year	Month	Name	Project	Task	Amount	Submitted By
2	1	2022	January	bbb	Project2	Task2	100	Liviu Popescu
3	2	2022	February	ccc	Project5	Task1	200	Liviu Popescu
4	3	2022	March	aaa	Project3	Task2	500	Liviu Popescu
Database

Work_file.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB
1	Name	Project	Task	01/22	02/22	03/22	04/22	05/22	06/22	07/22	08/22	09/22	10/22	11/22	12/22	01/23	02/23	03/23	04/23	05/23	06/23	07/23	08/23	09/23	10/23	11/23	12/23	Submitted By
2	aaa	Project1	Task1
3	aaa	Project1	Task2
4	aaa	Project2	Task1
5	aaa	Project2	Task2
6	aaa	Project3	Task1
7	aaa	Project3	Task2
8	aaa	Project4	Task1
9	aaa	Project4	Task2
10	aaa	Project5	Task1
11	aaa	Project5	Task2
12	bbb	Project1	Task1
13	bbb	Project1	Task2
14	bbb	Project2	Task1
15	bbb	Project2	Task2
16	bbb	Project3	Task1
17	bbb	Project3	Task2
18	bbb	Project4	Task1
19	bbb	Project4	Task2
20	bbb	Project5	Task1
21	bbb	Project5	Task2
22	ccc	Project1	Task1
23	ccc	Project1	Task2
24	ccc	Project2	Task1
25	ccc	Project2	Task2
26	ccc	Project3	Task1
27	ccc	Project3	Task2
28	ccc	Project4	Task1
29	ccc	Project4	Task2
30	ccc	Project5	Task1
31	ccc	Project5	Task2
32	ddd	Project1	Task1
33	ddd	Project1	Task2
34	ddd	Project2	Task1
35	ddd	Project2	Task2
36	ddd	Project3	Task1
37	ddd	Project3	Task2
38	ddd	Project4	Task1
39	ddd	Project4	Task2
40	ddd	Project5	Task1
41	ddd	Project5	Task2
42	eee	Project1	Task1
43	eee	Project1	Task2
44	eee	Project2	Task1
45	eee	Project2	Task2
46	eee	Project3	Task1
47	eee	Project3	Task2
48	eee	Project4	Task1
49	eee	Project4	Task2
50	eee	Project5	Task1
51	eee	Project5	Task2
Database1

 

[Atlantis764]

Any help with the above VBA code?
Thanks!