Hücrede Sıralı Zamanlı Liste Akışı

[Nadir46]

Ustalar Saygılar,
Soru:
A sütununda 100 satırlık bir liste olsun
B sütununda 100 satırlık bir liste olsun

C1 hücresine A sütunundaki verilerin, sırayla, 100. satıra kadar, 5 saniye aralıkla görünüp bir sonraki satırdakine geçmesi sağlayan ve aynı zamanda b sütunundaki verinin da eş zamanlı olarak C2 hücresinde yine 5 saniye aralıkla görünüp bir sonraki satırdakine geçmesini sağlayan bir makro mümkün müdür?

Teşekkürler

 

[EmrExcel16]

Aşağıdaki kodu boş bir module ekleyiniz

Sub Emr()
e = [B65536].End(3).Row
For i = e To 1 Step -1
Cells(5, 5).Value = Cells(i, 2).Value
Cells(6, 5).Value = Cells(i, 3).Value
Application.Wait (Now + TimeValue("0:00:05"))
Next i

End Sub

 

[NBATMAN]

Merhaba,
aşağıdaki kodları Sayfa1 e bir commandbutton ekleyerek dosyanızdaki sayfa1 kod sayfasına yapıştırınız. Ben office2003 de denedim oldu.


Private Sub CommandButton1_Click()
Dim son As Integer
Dim i As Integer
son = Range("A65536").End(3).Row

For i = 1 To son
Cells(5, "e").Value = Cells(i, "b").Value
Cells(6, "e").Value = Cells(i, "c").Value
Pause (5) 'parantez içindeki sayı saniye cinsinden bekleme süresini belirler. Yani 2 kelime grubu rasındaki değişim süresidir. Brayı değiştirerek zamanı ayarlaya bilirsiniz.
If i = son Then
MsgBox ("İşlem tamamlanmıştır."), vbInformation, "Uyarı"
Cells(5, "e").Value = ""
Cells(6, "e").Value = ""
End If
Next
End Sub

Public Sub Pause(BeklemeZamani As Currency) 'Bekleme zamanı için yapılmış fonksiyon
Dim BASLA As Currency
BASLA = Timer
Do While Timer < (BASLA + BeklemeZamani)
DoEvents
Loop
End Sub

 

[Nadir46]

Arkadaşlar, harikasınız ellerinize sağlık. Çok işime yarayacak.