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

Katılım
19 Mart 2010
Mesajlar
144
Excel Vers. ve Dili
Office 365 İngilizce
Altın Üyelik Bitiş Tarihi
20-01-2024
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?

Kod:
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
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Deneyiniz.
Kod:
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
 
Katılım
19 Mart 2010
Mesajlar
144
Excel Vers. ve Dili
Office 365 İngilizce
Altın Üyelik Bitiş Tarihi
20-01-2024
Merhaba,

Deneyiniz.
Kod:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,257
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
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
 
Katılım
19 Mart 2010
Mesajlar
144
Excel Vers. ve Dili
Office 365 İngilizce
Altın Üyelik Bitiş Tarihi
20-01-2024
Deneyiniz.

C++:
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.
 
Üst