Application.Wait Now + TimeValue("00:00:" & sitezaman)
If dogrula = 1 Then 'Kopyalama işlemi gerçeklşti ise yapıştır
Call SendKeys("^v")
End If
Application.Wait Now + TimeValue("00:00:" & enterle)
Call SendKeys("{ENTER}", True)
Application.Wait Now + TimeValue("00:00:" & dongu)
Call SendKeys("^{F4}")
' Gönderilme tamamlanınca hücreyi boya
Cells(i + 4, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Merhabalar excel üzerinden wp de otomatik mesaj gönderen bir uygulama yazıyorum ancak wp yi açıp mesajı giriyor fakat entera basmıyor ama herhangi bir hata almıyorum sebebi nedir