I want to select a column based on the date in a userform

[MRinin]

I have a schedule for keeping track of hours worked with a list of employees. I have the Userform that pulls up and shows the current date. Along the top of my excel sheet I have the dates. I want to populate the hours worked in the column of the date shown in the textbox of the userform.

So I have:

Private Sub UserForm_Initialize()
Me.TextBox11.Value = Format(Date, "mm/dd/yy")
End Sub

'This populates the date in my text box'

My form looks like this:

My sheet looks like this:

Help please.

 

[BalloutMoe]

You can try .Find(CDate(Me.TextBox11.Value) with sheet

 

[MRinin]

How would I code that? (Pardon my ignorance, but I am self google taught in the world of VBA)

 

[BalloutMoe]

is that table named or how is the range specified ?

 

[MRinin]

There is no name to the table and the range is just selected by the headings. I want to be able to send the data to the column that has the same date as the form.

 

[BalloutMoe]

Disclaimer: I am google taught as well and had pieced this together honestly as a bit of a challenge. Maybe not the best way or fastest but try it and adapt to your needs. let me know if it does help.

Dim findDate As Date
findDate = TextBox1.Value
Dim R As Range, C As Range, WS As Worksheet
Dim LastCol As Integer, i As Integer, rng As Range

Set WS = Worksheets("Sheet1") 'Change this to your sheet name
LastCol = WS.Cells(2, WS.Columns.Count).End(xlToLeft).Column 'Finds all columns in Row 2
  Debug.Print LastCol 'check this to make sure all is working
    For i = 1 To LastCol
        Set R = Cells(2, i)

For Each C In R
    If C.Value2 = CDbl(findDate) Then
    MsgBox findDate & "found in " & C.Address    ' or use C.Offset(1, 0).Address to select parts of the column or continue from here
    End If
    Next
    Next
End Sub

You can use for example C.Offset(5,0).Value = TextboxHoliday.value "Just random example" instead of the MsgBox