sayfa1 deki isimlerin sayfa 2de a1 hücresine her 5 saniyede değişme

[gokhanbek]

günaydın;

sayfa1 deki isimlerin sayfa 2de a1 hücresine her 5 saniyede değişme

 

[hımmmmmmmm]

Dim DURDUR As Boolean '
Dim X As Integer
Dim S As Integer

Public Sub BASLA() '
X = Sheets("SAYFA1").Cells(Rows.Count, 1).End(3).Row
S = 0
DURDUR = False
Saat
End Sub
'----------------------------------------------------------------
Public Sub Saat()
'On Error Resume Next
If DURDUR = True Then Exit Sub

If S >= X Then S = 0
S = S + 1
Sheets("Sayfa2").Cells(1, 1).Value = Sheets("Sayfa1").Cells(S, 1).Value
Sheets("Sayfa2").Cells(2, 1).Value = Time
Sheets("Sayfa2").Cells(3, 1).Value = S

Application.OnTime (Now + TimeSerial(0, 0, 5)), "Saat"
End Sub
'-------------------------------------------------------------
Public Sub DUR() '
Sheets("Sayfa2").Cells(1, 1).Value = ""
Sheets("Sayfa2").Cells(2, 1).Value = ""
Sheets("Sayfa2").Cells(3, 1).Value = ""
DURDUR = True
End Sub

Çalışma Ekde

 

[gokhanbek]

Teşekkürler
eline sağlık

 

[hımmmmmmmm]

eyvallah...........