Status Barda Geri Sayma

[mustafaine1]

Excelin status barinda islem yapan birkod arkadaslar, geri sayim yapiyor kendinize gore editleyip baska islemler yapabilirsiniz..

Sub Geri_Sayim()

   Dim sayim As Integer

   Dim bln As Boolean

   bln = Application.DisplayStatusBar

   Application.DisplayStatusBar = True

   For sayim = 10 To 1 Step -1

      Application.StatusBar = sayim & " Saniye..."

      Application.Wait Now + TimeSerial(0, 0, 1)

   Next sayim

   Application.StatusBar = False

   Application.DisplayStatusBar = bln

End Sub