Ritardo - pausa con macro

[Antonio]

Una aiuto per una macro, purtroppo uso solo il registratore e vedo che ci
sono molti limiti, in pratica vorrei che mandando in esecuzione una macro
tipo la seguente

Sub Macro1()

Range("B2").Select
ActiveCell.FormulaR1C1 = "C"
Range("C2").Select
ActiveCell.FormulaR1C1 = "i"
Range("D2").Select
ActiveCell.FormulaR1C1 = "a"
Range("E2").Select
ActiveCell.FormulaR1C1 = "o"
Range("G2").Select
ActiveCell.FormulaR1C1 = "c"
Range("H2").Select
ActiveCell.FormulaR1C1 = "o"
Range("I2").Select
ActiveCell.FormulaR1C1 = "m"
Range("J2").Select
ActiveCell.FormulaR1C1 = "e"
Range("L2").Select
ActiveCell.FormulaR1C1 = "s"
Range("M2").Select
ActiveCell.FormulaR1C1 = "t"
Range("N2").Select
ActiveCell.FormulaR1C1 = "a"
Range("O2").Select
ActiveCell.FormulaR1C1 = "i"
Range("P2").Select
ActiveCell.FormulaR1C1 = "?"

End Sub

dove scrivo una frase (una lettera per ogni cella) avere un ritardo (pausa)
fra una lettera e l'altra per ottenere l'effetto di battitura di una macchina
da scrivere, si può fare? Spero di essere stato chiaro e di non aver chiesto
l'impossibile, un saluto a tutti e grazie.

Ciao
Antonio

[Mauro Gamberini]

> Una aiuto per una macro, purtroppo uso solo il registratore e vedo che ci
> sono molti limiti, in pratica vorrei che mandando in esecuzione una macro
> tipo la seguente
>

<cut>

Metodo Wait nella guida del vba di Excel.

Public Sub m()
With Worksheets("Foglio9")
.Range("A1").Value = "C"
Application.Wait (Now + TimeValue("00:00:01"))
.Range("A2").Value = "i"
Application.Wait (Now + TimeValue("00:00:01"))
.Range("A3").Value = "a"
Application.Wait (Now + TimeValue("00:00:01"))
.Range("A4").Value = "o"
Application.Wait (Now + TimeValue("00:00:01"))
.Range("A4").Select
End With
End Sub

--
---------------------------
Mauro Gamberini
http://www.riolab.org/

[Antonio]

"Mauro Gamberini" ha scritto:

>
> Metodo Wait nella guida del vba di Excel.
>
> Public Sub m()
> With Worksheets("Foglio9")
> .Range("A1").Value = "C"
> Application.Wait (Now + TimeValue("00:00:01"))
> .Range("A2").Value = "i"
> Application.Wait (Now + TimeValue("00:00:01"))
> .Range("A3").Value = "a"
> Application.Wait (Now + TimeValue("00:00:01"))
> .Range("A4").Value = "o"
> Application.Wait (Now + TimeValue("00:00:01"))
> .Range("A4").Select
> End With
> End Sub
>
>
> --
> ---------------------------
> Mauro Gamberini
> http://www.riolab.org/
>

Ti ringrazio dell'aiuto Mauro, davvero grande.

Ciao
Antonio