i have text or number in B:F with dates in col A, i got this code and i cant seem to find why its not working. this is done on a userform. when i put a date in the first text box i want all rows relating to that date displayed in textbox2. so if i put in 13 July 2013 it will show me all records relating to that date in textbox2
Private Sub CommandButton1_Click() row_number = 0 Do DoEvents row_number = row_number + 1 item_in_review = Sheets("Progress Schedule").Range("A" & row_number) If item_in_review = TextBox1.Text Then TextBox2.Text = Sheets("Progress Schedule").Range("B:F" & row_number) End If Loop Until item_in_review = "" End Sub
Bookmarks