[excel] ripetizione macro

[bibbolo]

Ho una bellissima macro come questa, che mi permette di avanzare k (grazie all'aiuto di ieri), copiare il risulato ottenuto da una f(k) nella cella che ho selezionato e poi andare a capo

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+a

Range("K26").Value = Range("K26").Value + 1
'ActiveCell.Value = Range("J25").Value
ActiveCell.Offset(1, 0).Range("A1").Select

End Sub


Esiste un modo per dirgli di ripetere questo procedimento, diciamo per mille volte senza dover eseguire la mcro mille volte?

Grazie

[bibbolo]

La macro è ovviamente senza quell'asterisco nella seconda riga:


Range("K26").Value = Range("K26").Value + 1
ActiveCell.Value = Range("J25").Value
ActiveCell.Offset(1, 0).Range("A1").Select

[Anthony47]

Esiste un modo per dirgli di ripetere questo procedimento, diciamo per mille volte senza dover eseguire la mcro mille volte?

La risposta alla domanda puntuale e': usa il ciclo For/Next; quindi:

Codice: Seleziona tutto

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+a

For I = 1 To 1000
Range("K26").Value = Range("K26").Value + 1
ActiveCell.Value = Range("J25").Value
ActiveCell.Offset(1, 0).Select
Next I
End Sub

TUTTAVIA, se la macro da ripetere e' quella di sopra, credo che questa faccia la stessa cosa:

Codice: Seleziona tutto

Sub Bibbo3()
Range("K26").Value = Range("K26").Value + 1000
ActiveCell.Range("A1:A1000").Value = Range("J25").Value
End Sub

Ciao,

[bibbolo]

usa il ciclo For/Next

non sapevo che esistesse il ciclo for anche in excel Grazie mille