Makro hatası

[AKREP1]

Sevgili arkadaşlar ekte gönderdiğim dosyada saat ve tarih makrosunda bir hata var.Saat ve tarih makrosu çalıştığı zaman yazı efekti duruyor.Sayfada herhangi bir yere tıklanınca saat ve tarih çalışmıyor.Düzeltebilirseniz memnun olurum.Saygılarımla.

 

[AKREP1]

Arkadaşlar yok mu bana yardım edecek biri arkadaş

 

[Skorpiyon]

Sayın AKREP1,

Dosyanızdaki Modül 2'yi kaldırın ve Ana sayfanızdaki kodları aşağıdaki şekilde düzeltin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
Range("a9") = Format(Now(), "dd mm yyyy")
Range("a10") = Format(Now(), "hh:mm:ss")
DoEvents
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Loop
End Sub

Kolay gelsin.

Saygılarımla...

 

[AKREP1]

Çok teşekkür ederim deneyeceğim.Emeğinize sağlık