Soru Uyarı Mesajı Hücre İçinde Görünmesi

[myefsane]

Merhaba

Sub Makro5()
'
' Makro5 Makro
'

'
    Range("A2:E2").Select
    Selection.Copy
    Sheets("Kayıt Formu Verile").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Kayıt Formu").Select
    ActiveCell.Offset(0, 5).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "KAYIT TAMAM"
    ActiveCell.Offset(0, -5).Range("A1:E1").Select
         ' Burada ekranda kayıt tamam yazdığında bekleme yapması gerekiyor 3-5 sn sonra yeni kayıt gir gelmesi lazım ama yapamadım
            Application.OnTime Now + TimeValue("00:00:05"), "NextMacro"
    Selection.ClearContents
    ActiveCell.Offset(0, 5).Range("A1").Select
    ActiveCell.FormulaR1C1 = "YENİ KAYIT GİR"
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

' Burada ekranda kayıt tamam yazdığında bekleme yapması gerekiyor 3-5 sn sonra yeni kayıt gir gelmesi lazım ama yapamadım

 

[askm]

Application.Wait (Now + TimeValue("0:00:05")) şeklinde deneyin.

 

[myefsane]

Teşekkür ederim oldu. Ama Bir sorum olacak yapmak istediğim yanıp sönen yani hücre içinde yanıp sönen yazı yapmak bunun için bir kod var mı?