Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel Far girare la macro

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel Far girare la macro

Postdi Statix » 08/04/09 22:28

Ciao a tutti,mi urge
dovrei far ripetere una macro tramite un tasto tante volte in base al valore di una cella.
esempio
se in una cella A2 ho un valore 15
la macro associata ad un tasto deve ripetersi 15 volte.
Grazie
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel Far girare la macro

Postdi pietrol » 08/04/09 22:47

Ciao statix
in B10 la cella col valore
Codice: Seleziona tutto
Sub RipetiMacro
     nRipetizioni = Range("B10")
     If Not IsNumeric(nRipetizioni) or nRipetizioni = 0 Then Exit Sub
     For X = 1 to nRipetizioni
            Call MacroDaRipetere
     Next
End Sub


ciao
pietrol
il lupo ululà, il castello ululì
pietrol
Utente Senior
 
Post: 270
Iscritto il: 07/01/09 14:34

Re: Excel Far girare la macro

Postdi Statix » 08/04/09 23:04

Ciao pietrol,
ho provato mi da errore di sub o function non definita
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Far girare la macro

Postdi Statix » 08/04/09 23:05

scusa tutto ok ,avevo digitato un carattere in meno nella call della macro
ti ringrazio.
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Far girare la macro

Postdi Statix » 17/04/09 22:55

Ciao a tutti
avrei un piccolo problema con questa macro,vorrei aggiungere un altro controllo
di un valore di una cella ,se il valore sheets livello P2 è minore di 9 then interrompi RipetiMacro
Codice: Seleziona tutto
Sub RipetiMacro
     nRipetizioni = Range("B10")
     If Not IsNumeric(nRipetizioni) or nRipetizioni = 0 Then Exit Sub
     For X = 1 to nRipetizioni
            Call MacroDaRipetere
     Next
End Sub
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Re: Excel Far girare la macro

Postdi ricky53 » 17/04/09 23:48

Ciao,
aggiungi un "If" nel ciclo for/next

Domanda:
sheets livello P2 < 9
tradotto sarebbe cella "P2" del foglio "livello" < 9 ???

Se è così scritta bene diventa:

Codice: Seleziona tutto
If  Sheets("livello").Range("P2") < 9 Then Exit For


Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Excel Far girare la macro":


Chi c’è in linea

Visitano il forum: Nessuno e 26 ospiti