vba to find a date in a range to upload the userform data into that row

[bigbertha98]

I am having a bit of a headache and I've found this forum very useful in the past however I can't find a clear answer for this one anywhere. Apologies I am a novice at this so please bear with me.
I have put together a userform and a spreadsheet for it to be uploaded into. The problem I have is I want the data in the userform to look at the date in a textbox and find the corresponding row where that date occurs. Then I want it to upload the data into that row and for this all to be done on the click of a command button.

The spreadsheet has a list of dates in column A between A3 and A370 going from 01/04/18 to 31/03/19 (one date per day)
The code needs to look in this range, find the date and upload the data held in the userform into that specific row.

Unfortunately due to admin restrictions I am unable to upload an screenshots which would make it much easier
Here is the Sub I’m working with and I can’t join the search and upload elements

Sub Dataentry()

Dim Found As Range
Set Found = Sheets("CST Productivity").Range("A3:A370").Find(What:=Me.TextBox17.Value, _
                                                        LookIn:=xlValues, _
                                                        LookAt:=xlByRows, _
                                                        SearchOrder:=xlByRows, _
                                                        SearchDirection:=xlNext, _
                                                        MatchCase:=False)

    

               
        
            If Found Is Nothing Then
            MsgBox "Date Not Present on Tracker"
            'Exit Sub
            Else: Found.Select
            End If

''Dim wb As Workbook
''Set wb = ThisWorkbook
''Dim ws As Worksheet
''Dim NextRow As Long
''Set ws = wb.Sheets("CST Productivity")
''NextRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1
'With Sheets("CST Productivity")
'NextRow = .Range("B" & Rows.Count).End(xlUp).Row + 1
'
'
''CST1:
'.Range("B" & NextRow) = 7.4
'.Range("B" & NextRow).Offset(0, 1).Value = UserForm1.TextBox98.Value
'.Range("B" & NextRow).Offset(0, 2).Value = UserForm1.TextBox147.Value
'.Range("B" & NextRow).Offset(0, 3).Value = UserForm1.TextBox146.Value
'.Range("B" & NextRow).Offset(0, 4).Value = UserForm1.TextBox148.Value
'.Range("B" & NextRow).Offset(0, 5).Value = UserForm1.TextBox114.Value
'.Range("B" & NextRow).Offset(0, 6).Value = UserForm1.TextBox66.Value
'.Range("B" & NextRow).Offset(0, 7).Value = UserForm1.TextBox82.Value
'.Range("B" & NextRow).Offset(0, 8).Value = UserForm1.ComboBox95.Text
'.Range("B" & NextRow).Offset(0, 9).Value = UserForm1.ComboBox1.Text
'.Range("B" & NextRow).Offset(0, 10).Value = UserForm1.ComboBox18.Text
'.Range("B" & NextRow).Offset(0, 11).Value = UserForm1.TextBox130.Text
'.Range("B" & NextRow).Offset(0, 12).Value = UserForm1.ComboBox33.Text
'.Range("B" & NextRow).Offset(0, 13).Value = UserForm1.ComboBox79.Text
'.Range("B" & NextRow).Offset(0, 14).Value = UserForm1.TextBox269.Text

 

[Fluff]

Hi & welcome to MrExcel.
Try

.Find(CDate(Me.TextBox1.Value)

 

[bigbertha98]

Hi & welcome to MrExcel.
Try

.Find(CDate(Me.TextBox1.Value)

Thanks for the welcome and the quick response. The findelement of the code appears to be working correctly (probably as it uses thecode you suggested) however the bit im struggling with is when the code findsthe date and the row it sits in, I cant get it to move the data from theuserform to the found row. I’ve copied an extract from the table to explain thisbetter which will hopefully come through.

Book1
	A	B
1	Look for the date in Range A3:A367
2	1/4/2018
3	2/4/2018
4	3/4/2018
5	4/4/2018
6	5/4/2018
7	6/4/2018
8	7/4/2018
9	8/4/2018
10	9/4/2018
11	10/4/2018
12	11/4/2018
13	12/4/2018
14	13/4/2018
15	14/4/2018
16	15/4/2018
17	16/4/2018
18	17/4/2018
19	18/4/2018
20	19/4/2018
21	20/4/2018
22	21/4/2018
23	22/4/2018
24	23/4/2018
25	24/4/2018	When the date is found say for example "23/04/2018", move the data from e userform into ow 25 next to the found date
26	25/4/2018
27	26/4/2018
28	27/4/2018
29	28/4/2018
30	29/4/2018
Sheet1

 

[Norie]

Change this code to use the row of Found.

''CST1:
'.Range("B" & NextRow) = 7.4
'.Range("B" & NextRow).Offset(0, 1).Value = UserForm1.TextBox98.Value
'.Range("B" & NextRow).Offset(0, 2).Value = UserForm1.TextBox147.Value
'.Range("B" & NextRow).Offset(0, 3).Value = UserForm1.TextBox146.Value
'.Range("B" & NextRow).Offset(0, 4).Value = UserForm1.TextBox148.Value
'.Range("B" & NextRow).Offset(0, 5).Value = UserForm1.TextBox114.Value
'.Range("B" & NextRow).Offset(0, 6).Value = UserForm1.TextBox66.Value
'.Range("B" & NextRow).Offset(0, 7).Value = UserForm1.TextBox82.Value
'.Range("B" & NextRow).Offset(0, 8).Value = UserForm1.ComboBox95.Text
'.Range("B" & NextRow).Offset(0, 9).Value = UserForm1.ComboBox1.Text
'.Range("B" & NextRow).Offset(0, 10).Value = UserForm1.ComboBox18.Text
'.Range("B" & NextRow).Offset(0, 11).Value = UserForm1.TextBox130.Text
'.Range("B" & NextRow).Offset(0, 12).Value = UserForm1.ComboBox33.Text
'.Range("B" & NextRow).Offset(0, 13).Value = UserForm1.ComboBox79.Text
'.Range("B" & NextRow).Offset(0, 14).Value = UserForm1.TextBox269.Text

For example.

.Range("B" & Found.Row).Offset(0, 1).Value = UserForm1.TextBox98.Value