Moderatori: Anthony47, Flash30005
Private WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Wb.Name = "MULTI_B51202.xlsm" Then '*** Vedi Testo
Wb.Activate
Call TuaMacro
End If
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub
If Wb.Name Like "Cartel*" Then
Wb.Activate
Grande Anthony, . . .
La macro tuttavia funziona solo se il file è salvato da qualche parte, ovvero: nel momento in cui apro un nuovo file cartel1.xlsx la macro NON parte; se salvo il Cartel1.xlsx e lo riapro la macro si attiva, ma solo la prima volta.
Private WithEvents App As Application
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Left(Wb.Name, 5) = "MULTI" Then
Wb.Activate
Call TuaMacro
End If
Foglio1.Cells(10000, 1).End(xlUp).Offset(1, 0) = Workbooks.Count
Foglio1.Cells(10000, 1).End(xlUp).Offset(0, 1) = Wb.Name
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub
Sub TuaMacro()
MsgBox ("Tua Macro")
End Sub
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 14 ospiti