• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım sendkeys sorunu

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
Arkadaşlar bu şekilde kullandığım bir komutum var ancak hızından dolayı komutlar çoğunlukla karıştığından dolayı farklı alanlara farklı verileri aktarabiliyor. Kodda mümkünse bazı değişiklikler yapabilme imkanınız varmıdır? Teşekkürler..


'Private Sub CommandButton1_Click()

Sub YILLIKizin1()
AppActivate "Kullanılan İzinler", True
For d = 414 To 416
SendKeys "{f4}", True
'Sleep (1200)
newHour = Hour(Now()) '5 sn bekleme yaptırıyor
newMinute = Minute(Now())
newSecond = Second(Now()) + 2 'süre miktari saniye olarak
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

SendKeys "{f9}", True
'Sleep (2200)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 4
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
SendKeys Sheets("YILLIKİZİN1").Cells(d, 1), True
'Sleep (1500)
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
SendKeys "{ENTER}", True
Sleep (1000)
SendKeys "{f9}", True
Sleep (1000)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 5), True
Sleep (600)
SendKeys "{ENTER}", True
Sleep (600)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 3), True
Sleep (600)
SendKeys "{ENTER}", True
Sleep (600)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 4), True
Sleep (300)
SendKeys "{ENTER}", True
Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
SendKeys "{f2}", True
Sleep (1000)
Next
End Sub
 

Ekli dosyalar

  • soru.jpg
    soru.jpg
    175.7 KB · Görüntüleme: 2

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
arkadaşlar 1 çözüm yokmudur?
 
Üst Alt