Is this the way to run a automarco??

[Drumaster]

Hi all,

If the file AlarmLog.xls is opent i wanna run a marco

I try this .... but nothing

Private Sub Workbook_Activate()
  If ActiveWorkbook.Name = "AlarmLog.xls" Then
  expression.RunAutoMacros (Alarms_barChart)
  End If
End Sub

 

[GlennUK]

Where have you put that macro exactly?

 

[Drumaster]

Where have you put that macro exactly?

In the personal work map before the marco Alarms_barChart

Private Sub Workbook_Activate()  
If ActiveWorkbook.Name = "AlarmLog.xls" Then  
expression.RunAutoMacros (Alarms_barChart)  
End If
End Sub
 
Sub Alarms_barChart()
' Alarms_barChart Macro
' only use with DBF file
' Sneltoets: Ctrl+ J
    '**** Create folder if not  ****
Dim Map
Dim fol  As String
fol = "D:\Colpitt machine data" ' change to match the folder path
Set Map = CreateObject("Scripting.FileSystemObject")
If Not Map.FolderExists(fol) Then
    Map.CreateFolder (fol)
End If
 
    Range("K2").Select
    Range("K2,K:K").FormulaR1C1 = "=IF(RC[-3]-RC[-4]<=0,,RC[-3]-RC[-4])"
    Range("K:K").NumberFormat = "h:mm:ss;@"
.......
...
....
......
 End Sub

 

[GlennUK]

Er, I don't understand this ... "In the personal work map"?!?!?

 

[Drumaster]

Er, I don't understand this ... "In the personal work map"?!?!?

you have the choice between to save your marco in your workbook or personalbook.

if I save it in that workbook I can only use the marco in that workbook.
Personalbook i can use it in every excel book i open

(i'm still a noob with this maybe i have it wrong )

 

[GlennUK]

But you have a test for the workbook name being a specific workbook ... so it is not going to work for every workbook, even if it did fire during an activate event ( which it won't, the way you have things now ).