I'm trying to activate the hyperlinks based on a specified date range
Excel 2010
here is a code i'm trying to even get to work, and it's not working
(copying rows based on date range)
Excel Workbook | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|
A | B | C | D | E | F | G | H | I | J | |||
12 | June 14, 2011 | 7417 | Mike | supplier | Dan | $ 507.15 | ||||||
13 | June 14, 2011 | 7418 | Mike | supplier | Dan | $ 745.20 | ||||||
14 | June 16, 2011 | 7419 | Mike | supplier | Dan | $ 282.90 | ||||||
15 | June 16, 2011 | 7419 | Mike | supplier | Dan | $ 3,179.75 | ||||||
16 | June 16, 2011 | 7420 | Mike | supplier | Dan | $ 2.30 | ||||||
17 | June 16, 2011 | 7421 | Mike | supplier | Dan | $ 2.30 | ||||||
18 | June 16, 2011 | 7422 | Mike | supplier | Dan | $ 2.30 | ||||||
19 | June 16, 2011 | 7423 | Mike | supplier | Dan | $ 2.30 | ||||||
20 | June 16, 2011 | 7424 | Mike | supplier | Dan | $ 2.30 | ||||||
Sheet2 |
here is a code i'm trying to even get to work, and it's not working
(copying rows based on date range)
Code:
Dim startDate As String
Dim stopDate As String
Dim startRow As Integer
Dim stopRow As Integer
startDate = TextBox1.Value
If startDate = "" Then End
stopDate = TextBox2.Value
If stopDate = "" Then End
startDate = Format(startDate, "mm/dd/yy")
stopDate = Format(stopDate, "mm/dd/yy")
startRow = Worksheets("sheet2").Columns("A").Find(startDate, LookIn:=xlValues, LookAt:=xlWhole).Row
stopRow = Worksheets("sheet2").Columns("A").Find(stopDate, LookIn:=xlValues, LookAt:=xlWhole).Row
Worksheets("Data").Range("A" & startRow & ":BP" & stopRow).Copy _
Destination:=Worksheets("sheet3").Range("A3")
Last edited: