• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücrede Yazan Rakamı Başka Bir Arayüze Yazdırmak

Katılım
17 Haziran 2021
Mesajlar
7
Excel Vers. ve Dili
Microsoft office profesyonel plus 2010
Merhabalar stok sayımı yaptık, bu sayımdaki rakamları excele elle girdim. fakat bir de barkod basması için barkod arayuzune bu sayıları girmek gerekiyor. Yapmak istediğim klavyeden tuşa bastırmak. Yani a2 hücresinde 8 yazıyor çalıştırdığımda bu 8'i ana ekranımda açık olan stok programımın barkod kısmına yazacak.
Yani a2 hücresinden baslayacak a2'yi yazacak klavyenin alt ok tuşuna basacak a3 yazacak sonra yine klavye aşağı ok tuşu basıp a4'u yazacak. Bunu excelle yapmamın bir yolu var mı?
Program arayuzum; https://www.resimupload.org/r/w1cTE


Adet

Parça No

8

12141703221

4

13527797906

6

17137639023

7

21521159045

11

22116756406

2

26111229360

4

26117503159

3

26117522027

6

26117527392

5

26117572664

3

26117610061

1

26121226723

1

31120305612

16

31121126254
 
Merhaba,

Forumda SendKeys ve AppActivate ifadelerini araştırınız.
 
Korhan bey

Sub sendData()

Dim point As Range

Set point = Application.InputBox(prompt:="Select starting point", Type:=8)

Dim j As Object

point.Select

Range(ActiveCell, ActiveCell.End(xlDown)).Select


For Each j In Selection

AppActivate "Not Defteri"

Call SendKeys(j.Value, True)

Call SendKeys("{DOWN}")



Next j

End Sub

Bu şekilde yaptım not defterine aktarım yapıyor fakat stok programıma yaptıramıyorum. appactivate "EBS Stok Depo 1.0.3" yazıyorum o ekrana geçiş yapıyor ama verileri girmiyor. Sebebi ne olabilir?
 
Ekrana geçiş yaptıktan sonra belki TAB tuşuna ya da ENTER tuşuna basmanız gerekebilir.

Deneyerek tecrübe edebilirsiniz.

Bir de @Asri beyin forumda paylaştığı AUTOIT adında bir yazılım var. Dilerseniz onu da araştırabilirsiniz. (Sanırım kurulum gerektiriyor.)
 
O zaman araştırmaya devam...
 
Bu konuyu da inceleyebilirsiniz.
Kod açık olduğu için istenilen şekilde uyarlanabilir.

 
Çok teşekkürler @Asri
 
Geri
Üst