Macro all'avvio

[solari]

Ciao ,volevo sapere se era possibile far partire
all'avvio di un file excel una macro in automatico.Vale a
dire se era possibile che all'apertura di un file excel
si poteva avviare al verificarsi di una determinata
condizione presente su una specifica cella,l'avvio o meno
di una macro.Nel particolare nella cella ci dovrebbe
essere la funz. "oggi()" che quindi varia ogni giorno e
se questa risponde a detrminate condizioni debba partire
o meno una macro.Spero di essere stato chiaro
Grazie

[cucchiaino]

Post by solari
Ciao ,volevo sapere se era possibile far partire
all'avvio di un file excel una macro in automatico.Vale a
dire se era possibile che all'apertura di un file excel
si poteva avviare al verificarsi di una determinata
condizione presente su una specifica cella,l'avvio o meno
di una macro.Nel particolare nella cella ci dovrebbe
essere la funz. "oggi()" che quindi varia ogni giorno e
se questa risponde a detrminate condizioni debba partire
o meno una macro.

Ciao s.

Questo è un esempio:


Private Sub Workbook_Open()

With Sheets("Foglio1")
If IsDate(.Range("B5")) Then
If Day(.Range("B5")) = 1 Then
tuamacro
End If
End If

End Sub


All'apertura del foglio di Excel questa macro si
avvia da sola, controlla che in B5 di Foglio1 ci
sia una data e se il giorno di questa data è il
primo del mese avvia una macro di nome "tuamacro".

[Solari]

Private Sub Workbook_Open()

With Sheets("Foglio1")
If IsDate(.Range("B5")) Then
If Day(.Range("B5")) = 18 Then
Macro1
End If
End If
End With
End Sub

Sub Macro1()

Range("D11").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("A1").Select
End Sub

Nella cella B5 ho inserito la funzione =oggi()
Ho provato con questa macro che dovrebbe colorare la
cella D11 di giallo se si verifica la condizione che il
giorno è il 18. Se eseguo la macro dopo aver avviato il
foglio va benissimo ma in automatico all'apertura del
file non va.

-----Messaggio originale---

Post by solari
Ciao ,volevo sapere se era possibile far partire
all'avvio di un file excel una macro in

automatico.Vale a

Post by solari
dire se era possibile che all'apertura di un file

excel

Post by solari
si poteva avviare al verificarsi di una determinata
condizione presente su una specifica cella,l'avvio o

meno

Post by solari
di una macro.Nel particolare nella cella ci dovrebbe
essere la funz. "oggi()" che quindi varia ogni giorno

e

Post by solari
se questa risponde a detrminate condizioni debba

partire

Post by solari
o meno una macro.

Ciao s.
Private Sub Workbook_Open()
With Sheets("Foglio1")
If IsDate(.Range("B5")) Then
If Day(.Range("B5")) = 1 Then
tuamacro
End If
End If
End Sub
All'apertura del foglio di Excel questa macro si
avvia da sola, controlla che in B5 di Foglio1 ci
sia una data e se il giorno di questa data è il
primo del mese avvia una macro di nome "tuamacro".
--
( )---cucchiaino
.

[cucchiaino]

Post by cucchiaino
Private Sub Workbook_Open()
With Sheets("Foglio1")
If IsDate(.Range("B5")) Then
If Day(.Range("B5")) = 18 Then
Macro1
End If
End If
End With
End Sub
Sub Macro1()
Range("D11").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("A1").Select
End Sub
Nella cella B5 ho inserito la funzione =oggi()
Ho provato con questa macro che dovrebbe colorare la
cella D11 di giallo se si verifica la condizione che il
giorno è il 18. Se eseguo la macro dopo aver avviato il
foglio va benissimo ma in automatico all'apertura del
file non va.

Alt-f11
Nel quadrante sinistro, dove vedi la scritta "ThisWorkbook" fai
doppio click.

Nel quadrante destro, in alto, dove vedi la scritta "generale",
seleziona "Workbook".

Dove lampeggia il cursore incolla le tue righe

Post by cucchiaino
With Sheets("Foglio1")
If IsDate(.Range("B5")) Then
If Day(.Range("B5")) = 18 Then
Macro1
End If
End If
End With

[Solari]

Perfetto grazie mille

-----Messaggio originale---

Post by cucchiaino
Private Sub Workbook_Open()
With Sheets("Foglio1")
If IsDate(.Range("B5")) Then
If Day(.Range("B5")) = 18 Then
Macro1
End If
End If
End With
End Sub
Sub Macro1()
Range("D11").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("A1").Select
End Sub
Nella cella B5 ho inserito la funzione =oggi()
Ho provato con questa macro che dovrebbe colorare la
cella D11 di giallo se si verifica la condizione che

il

Post by cucchiaino
giorno è il 18. Se eseguo la macro dopo aver avviato

il

Post by cucchiaino
foglio va benissimo ma in automatico all'apertura del
file non va.

Alt-f11
Nel quadrante sinistro, dove vedi la

scritta "ThisWorkbook" fai

doppio click.
Nel quadrante destro, in alto, dove vedi la

scritta "generale",

seleziona "Workbook".
Dove lampeggia il cursore incolla le tue righe

Post by cucchiaino
With Sheets("Foglio1")
If IsDate(.Range("B5")) Then
If Day(.Range("B5")) = 18 Then
Macro1
End If
End If
End With

--
( )---cucchiaino
.