Geoff,
Thanks very much for your help. Your solution works as well. I am including a section of the code to share with others your fix.
Worksheets("Charts & Graphs").Activate
startDate = Range("C33")
If startDate = "" Then End
startDate = Format(startDate...
Finally something that works on all platforms attempted!
Set fCell = Selection.Find(What:=DateValue(startDate), _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
startColumn = fCell.Column
I found this solution at...
Here is the latest sub with changes made to reflect suggestions here. That last thing I did was to add the format lines for the start and stop dates. Again it works fine with the exception of Excel97 on WinNT. Other platforms tested are Excel2000 on Win2000 and Excel97 on Win98.
Private Sub...
Still no go.
Near as I can tell all the requirements listed above are satisfied.
Frustrating because it runs on all platforms except the one used by most of the users on this intranet(NT & Ecxcel97).
Perhaps there is a better way of doing what I am attempting. I have a dynamic range of...
I spoke too soon. This still does not work in Excel 97 running on WinNT. Other platforms are fine.
Private Sub CommandButton1_Click()
On Error GoTo errorHandler
Dim startDate As String
Dim stopDate As String
Dim startColumn As Integer
Dim stopColumn As Integer
Dim StartCol As String
Dim StopCol...
startColumn = Selection.Find(What:=startDate, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Column
Sorry, I should have included this in the initial post.
Private Sub CommandButton1_Click()
On Error GoTo errorHandler
Dim startDate As String
Dim stopDate As String
Dim startColumn As Integer
Dim stopColumn As Integer
Dim StartCol As String
Dim StopCol As String
MsgBox Application.Version
Worksheets("Charts & Graphs").Activate
startDate...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.