Merhaba
' Burada ekranda kayıt tamam yazdığında bekleme yapması gerekiyor 3-5 sn sonra yeni kayıt gir gelmesi lazım ama yapamadım
Kod:
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