Bekleme süresini hücreden almak ve tekrar sayısı

[winstoncash]

Ekteki dosyada makroyu çalıştırdığımda A1 hücresine diğer sayfadaki verileri 1'er saniye aralıklarla değişecek şekilde yazdırıyorum. Fakat bu süreyi ana sayfada belirlediğim alana elle girip ordan ayarlamak istiyorum. Bir de tekrar sayısını ilgili hücreye yazıp çalıştırınca makronun o sayı kadar tekrar etmesini istiyorum. Loop örneklerini inceledim ama kafam basmadı açıkçası. Yardımcı olur musunuz?

Sub akor()

Dim i As Byte

For i = 1 To 10

Sheets("Sayfa1").Range("A1").Value = Sheets("Sayfa2").Range("A" & i)

Application.Wait (Now + TimeValue("00:00:01"))

Next i

End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Sub akor()

Dim i As Byte

For i = 1 To [H3]

Sheets("Sayfa1").Range("A1").Value = Sheets("Sayfa2").Range("A" & i)

Application.Wait (Now + TimeValue([E4] & ":" & [F4] & ":" & [G4]))

Next i

End Sub

 

[winstoncash]

Merhaba,

Deneyiniz.

Sub akor()

Dim i As Byte

For i = 1 To [H3]

Sheets("Sayfa1").Range("A1").Value = Sheets("Sayfa2").Range("A" & i)

Application.Wait (Now + TimeValue([E4] & ":" & [F4] & ":" & [G4]))

Next i

End Sub

hocam tekrar sayısı ile ekranda görünecek veri sayısı farklı. yani sheet2'deki 10 harf art arda 3 kez görünecek mesela (A-B-C-D-E.... - A-B-C-D-E.... gibi). sizin dediğiniz gibi yapınca tekrar sayısına yazdığım harf kadarı görünüyor.

 

[Korhan Ayhan]

Deneyiniz.

Sub akor()
    Dim i As Byte, Say As Byte
    
    Do
        For i = 1 To 10
            Sheets("Sayfa1").Range("A1").Value = Sheets("Sayfa2").Range("A" & i)
            Application.Wait (Now + TimeValue([E4] & ":" & [F4] & ":" & [G4]))
        Next
        Say = Say + 1
    Loop While Say < [H3]
End Sub

 

[winstoncash]

Deneyiniz.

Sub akor()
    Dim i As Byte, Say As Byte
   
    Do
        For i = 1 To 10
            Sheets("Sayfa1").Range("A1").Value = Sheets("Sayfa2").Range("A" & i)
            Application.Wait (Now + TimeValue([E4] & ":" & [F4] & ":" & [G4]))
        Next
        Say = Say + 1
    Loop While Say < [H3]
End Sub

Çok teşekkür ederim.