Fabrx ha scritto:Anthony47 ha scritto:MAMMA MIA CHE LEGGEREZZA!
La leggerezza e' stata di averti proposto una macro che (bastava rileggerla prima di pubblicarla) sarebbe entrata certamente in loop...
Se Macro2 non parte mai allora l' ipotesi piu' probabile e' che in B1 non ci sia esattamente "N"; prova questa variante:
- Codice: Seleziona tutto
If Trim(Ucase(Range("B1").Value)) = "N" Then
Mi dovresti anche confermare che tutta la macro e' inserita nel "Modulo di codice" del foglio in di cui esamini A1 e B1.
Fai sapere...
Grazie mille! Funziona!
- Codice: Seleziona tutto
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("E1").Value = "G" Then
Call Macro1
End If
If Trim(UCase(Range("E3").Value)) = "N" Then
Call Macro2
End If
Application.EnableEvents = True
End Sub
Ora provo ad aggiungere anche altre 2 celle e ti faccio sapere perchè tanto già so che scriverò nefandezze
e non funzionerà
!
A senso (più che altro, in francese antico, a culo!) ho completato così
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("E1").Value = "G" Then
Call Macro1
End If
If Trim(UCase(Range("E3").Value)) = "N" Then
Call Macro2
End If
If Trim(UCase(Range("F1").Value)) = "U" Then
Call Macro3
End If
If Trim(UCase(Range("F3").Value)) = "O" Then
Call Macro4
End If
Application.EnableEvents = True
End Sub
e funziona!!!!
Per non rimanere nella mia barbara ignoranza o quanto meno leggermente al di sopra dell'ignoranza profonda, se non ti è troppo di disturbo, potresti spiegarmi (terra terra) come mai con
If Trim(UCase(Range("Yz").Value)) = "X" Then
il codice funziona? Cosa vuol dire questa stringa di comando?
E invece cosa vuol dire e perchè servono:
- Codice: Seleziona tutto
Application.EnableEvents = False
e
Application.EnableEvents = True
??? Comunque grazie davvero!
Registrazione
