Code Problem

[MarkAndrews]

I have a problem with the following code

I changed (On both Occurances)

ChDir "'\\hqnas01p\cac$\Management\Customer Relations\Complaint Log"

from

ChDir "'Z:\Management\Customer Relations\Complaint Log"

So I could dial straight into the server, over using a filepath & this wont work now, I could change it back - but it has all sorts of complications with certain people not having certain drives mapped to their profile

Any idea's Guys?

TIA

Sub Open_Complaint_Log()

'Script which opens the complaint log from its network location
'Link changed to CAC S: MA

Application.ScreenUpdating = False
ChDir "'\\hqnas01p\cac$\Management\Customer Relations\Complaint Log"
    Workbooks.Open Filename:= _
        "'\\hqnas01p\cac$\Management\Customer Relations\Complaint Log\Complaint Log 2006.xls"
Application.ScreenUpdating = True

End Sub

 

[Richard Schollar]

Mark

Preceded Date with VBA.:

.Cells(1, 3) = Format(VBA.Date, "mmmm")

For the other, are you absolutely certain you have your UNC path name correct?

Richard

 

[MarkAndrews]

The following has a single quote at the beginning of the file&Pathname:

Workbooks.Open Filename:= _ 
        "'\\hqnas01p\cac$\Management\Customer Relations\Complaint Log\Complaint Log 2006.xls"

Richard

Thanks Richard , this worked 2nd time around - Strange

removed '

 

[MarkAndrews]

Mark

Preceded Date with VBA.:

.Cells(1, 3) = Format(VBA.Date, "mmmm")

For the other, are you absolutely certain you have your UNC path name correct?

Richard

Thanks Richard, I just restored the file back to when this code was working - although nothing has changed in the code

Thanks as ever

 

[MarkAndrews]

Mark

Preceded Date with VBA.:

.Cells(1, 3) = Format(VBA.Date, "mmmm")

For the other, are you absolutely certain you have your UNC path name correct?

Richard

This still brings back the same Error Richard?

Puzzling

 

[Richard Schollar]

Oh I'm an idiot:

.Cells(1, 3) = VBA.Format(Date, "mmmm")

Richard

 

[MarkAndrews]

I'll give it a try, thanks

 

[MarkAndrews]

Oh I'm an idiot:

.Cells(1, 3) = VBA.Format(Date, "mmmm")

Richard

Still got an error Richard?

 

[MarkAndrews]

Private Sub workbook_open() 

Application.ScreenUpdating = False 
Application.StatusBar = "Development & Design by Mark Andrews" 
Sheets("Criteria Selection & Pivots").Select 
MsgBox "Welcome " & Application.UserName 
MsgBox ("To recalculate this document, please change the dates in cells A2 & B2, then click 'Refresh Entire Document'") 
Range("A2").Select 
With Sheets("Productivity") 
    .Cells(1, 3) = VBA.Format(Date, "mmmm")     
    .Cells(1, 4) = "=DAY(DATE(YEAR(TODAY()),MONTH(TODAY())+1,0))" 
    .Cells(1, 4) = Evaluate("=DAY(DATE(YEAR(TODAY()),MONTH(TODAY())+1,0))") 
    End With 
Application.ScreenUpdating = True 

End Sub

 

[Norie]

Mark

Check under Tools>References... in the VBA Editor.

Anything marked MISSING?

 

[MarkAndrews]

Mark

Check under Tools>References... in the VBA Editor.

Anything marked MISSING?

Norie - The references part is 'greyed' out