Return multiple data from excel sheet using vba

[De Bruce]

Good day all,
Please, I have a slight problem. I created a userform with 40 textboxes that submits its contents to sheet1. The userform generates a time stamp in a label (label2) using Format(Now(), "H:MM"). When I click the submit button upon filling the form, each filled textbox is submitted to Column 1 sheet1 alongside the time stamp in Column 2 sheet1. See code below
Dim Emptyrow As Long
Emptyrow = Worksheetfunction.CountA(Range(A:A)) + 1

Cell(Emptyrow, 1) = textbox1.Value
Cell(Emptyrow, 2) = label2.Value

Cell(Emptyrow + 1, 1) = textbox2.Value
Cell(Emptyrow + 1, 2) = label2.Value

Cell(Emptyrow + 2, 1) = textbox3.Value
Cell(Emptyrow + 2, 2) = label2.Value

Cell(Emptyrow + 3, 1) = textbox4.Value
Cell(Emptyrow + 3, 2) = label2.Value

Cell(Emptyrow + 4, 1) = textbox5.Value
Cell(Emptyrow + 4, 2) = label2.Value
.
.
.
.
Cell(Empty row + 39, 1) = textbox40.Value
Cell(Empty row + 39, 2) = label2.Value

All filled textboxes submitted at an instance will have the same time stamp in Column 2.
Please, I want a situation where I can recall all contents submitted to sheet1 back to the textboxes using the time stamp as my filter.
I would like to achieve this by placing a recall textbox at the top of the userform and then filling the desired time stamp as my search criteria to recall contents from Column 1 sheet1.
I know this is possible, but I don't know how to go about it. Thanks in advance.

 

[My Aswer Is This]

Here is how I would write your original code

Private Sub CommandButton1_Click()
'Modified  8/5/2019  11:06:57 AM  EDT
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To 40
        Cells(Lastrow + i, 1).Value = Controls("TextBox" & i).Value
        Cells(Lastrow + i, 2).Value = Label2.Caption
    Next
End Sub
[LEFT][COLOR=#222222][FONT=Verdana]

[/FONT][/COLOR][/LEFT]
And here is how I would write the new code you want to reload values back into UserForm Text Boxes

Assuming you have a Text Box named Recall

Private Sub CommandButton3_Click()
'Recall
Dim x As Long
x = 1
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To Lastrow
    If Cells(i, 2).Text = Recall.Text Then
        Me.Controls("TextBox" & x).Value = Cells(i, 1).Value
        x = x + 1
    End If
    Next
    
End Sub

 

[De Bruce]

Here is how I would write your original code

Private Sub CommandButton1_Click()
'Modified  8/5/2019  11:06:57 AM  EDT
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To 40
        Cells(Lastrow + i, 1).Value = Controls("TextBox" & i).Value
        Cells(Lastrow + i, 2).Value = Label2.Caption
    Next
End Sub
[LEFT][COLOR=#222222][FONT=Verdana]

[/FONT][/COLOR][/LEFT]
And here is how I would write the new code you want to reload values back into UserForm Text Boxes

Assuming you have a Text Box named Recall

Private Sub CommandButton3_Click()
'Recall
Dim x As Long
x = 1
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To Lastrow
    If Cells(i, 2).Text = Recall.Text Then
        Me.Controls("TextBox" & x).Value = Cells(i, 1).Value
        x = x + 1
    End If
    Next
    
End Sub

Thanks alot, I tried yours and it worked. You're a genius bro. Thanks once again

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks alot, I tried yours and it worked. You're a genius bro. Thanks once again