- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
merhaba, status bar da, kayan yazılara, sayfadan veri eklemek istedim fakat olmadı hatamı düzeltebilirmisiniz.teşekkürler.syg.
Sub basla()
On Error Resume Next
Sheets("sheet1").Select
10 If c > 1 Then c = 0
Start = Timer * 16
Do
DoEvents
finish = Timer * 16
deg = Format(finish - Start, "0")
If c < 1 Then
Application.StatusBar = Mid(Sheets("sheet1").Range("a1:a10"), 29 - deg, deg)
End If
If c > 0 Then
bos = 30 - Len(Mid(Sheets("sheet1").Range("a1:a10"), 1, 29 - deg))
For a = 1 To bos
bosluk = bosluk & " "
Next
Application.StatusBar = bosluk & Mid(Sheets("sheet1").Range("a1:a10"), 1, 29 - deg)
End If
bosluk = ""
Loop While finish - Start <= 28
c = c + 1
GoTo 10
End Sub
Sub basla()
On Error Resume Next
Sheets("sheet1").Select
10 If c > 1 Then c = 0
Start = Timer * 16
Do
DoEvents
finish = Timer * 16
deg = Format(finish - Start, "0")
If c < 1 Then
Application.StatusBar = Mid(Sheets("sheet1").Range("a1:a10"), 29 - deg, deg)
End If
If c > 0 Then
bos = 30 - Len(Mid(Sheets("sheet1").Range("a1:a10"), 1, 29 - deg))
For a = 1 To bos
bosluk = bosluk & " "
Next
Application.StatusBar = bosluk & Mid(Sheets("sheet1").Range("a1:a10"), 1, 29 - deg)
End If
bosluk = ""
Loop While finish - Start <= 28
c = c + 1
GoTo 10
End Sub