Makro kodlaması içerisine tarih eklemek.

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Merhaba ,
Elimde ekteki gibi kullanmış olduğum bir makrom mevcut ,

MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)

Kodlamanın içindeki bu işlemden sonra bugünün tarihi + 3 gün sonraki tarihi yazdırmak istiyorum koda ilave edebilmemiz mümkün müdür ?

Sonuç 19/11/2013 + 3 = 22/11/2018 =BUGÜN()+2




Kod:
#include <OutlookEX.au3>


Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc

Local $var = WinList()
For $i = 1 To $var[0][0]
      If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
        ;MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
        Local $sirasi = StringInStr($var[$i][0], "@ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications") ;açık kalmasını istediğin sayafa
        Local $soldan = StringLeft($var[$i][0],20 )   ;soldan sayılacak boşluk sayısı dikkat et boşluklara göre
        if $sirasi>0 then
            if $soldan<>"Satis Teklifi - Y200" then

                 WinClose($var[$i][0])
            EndIf
        EndIf
    EndIf
Next


Func IsVisible($handle)
    If BitAND(WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc



;BURDAN SONRA ÇALIŞIYOR EMAİL EKLEME
Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Satis Teklifi -","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)


sleep(2000)

MouseClick($MOUSE_CLICK_LEFT,102 , 427, 1)


send("{f5}")
sleep(1000)
send("{TAB 2}")
sleep(1000)

send("{f12}")

sleep(3000)
Send("{ENTER}")

sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)
sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1279 , 423, 1)

sleep(1000)
   Send("^C")


sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)


MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)

sleep(2000)

MouseClick($MOUSE_CLICK_LEFT,103 , 427, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_RIGHT,103 ,427 , 1)



;İLK BURDAN KALDIK



send("{TAB 7}")
Send("{ENTER}")



sleep(3000)
MouseClick($MOUSE_CLICK_LEFT,441 , 550, 1)



send("{f5}")
sleep(1000)


send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")


sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")
send("{0}")

send("{TAB }")
sleep(1000)

send("{f12}")

sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1254 , 325, 1)

sleep(1000)






sleep(1000)

MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 2)

Send("^+{HOME}")

Send("^C")


;~ ;     ctrl alt home yap  111111111111111111

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)



sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 2)

Send("^+{HOME}")



  sleep(1000)



MouseClick($MOUSE_CLICK_LEFT,1414 , 427, 1)

  sleep(1000)

send("{BACKSPACE 20}")



sleep(1000)


Send("^V")
sleep(1000)
send("{f12}")





; burdayız 27 09




sleep(2000)


MouseClick($MOUSE_CLICK_LEFT,978 , 320, 1)

MouseClick($MOUSE_CLICK_RIGHT,978 , 320, 1)
sleep(1000)


send("{TAB 7}")
  Send("{ENTER}")
sleep(2000)
;TEKLİF YAYINLA

sleep(2000)
  _WinWaitActivate("IFS Uygulamaları","")

sleep(1000)

  Send("{ENTER}")
sleep(3000)

MouseClick($MOUSE_CLICK_LEFT,978 , 320, 1)

MouseClick($MOUSE_CLICK_RIGHT,978 , 320, 1)
sleep(1000)
send("{TAB 13}")
  Send("{ENTER}")
sleep(3000)

_WinWaitActivate("Tekliften Satis Siparisi Yarat","")




Send("TYD")
send("{TAB 1}")
sleep(1000)



;teslimat günü ayarlanacak bugün

MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)


sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,900 , 485, 1)
sleep(3000)
send("{TAB 1}")
  sleep(1000)
   Send("01")
     sleep(1000)
  send("{TAB 2}")

  Send("{ENTER}")
sleep(1000)
;TEKLİFTEN SİPARİŞ YARATILIYOR BURDA KALDIK

_WinWaitActivate("IFS Uygulamaları","")
  sleep(1000)
  send("{TAB 2}")
sleep(2000)
   Send("{ENTER}")


sleep(5000)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)


sleep(1000)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)



MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)


sleep(500)




MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)







MouseClick($MOUSE_CLICK_LEFT,156 , 427, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,43 , 548, 1)
sleep(4000)



    Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Satis Siparisi -","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)


sleep(2000)




MouseClick($MOUSE_CLICK_LEFT,171 , 167, 2)
sleep(1000)
   ;1 veri kopyalanıyor ,1. copy to the subject okkkkk...
   Send("^C")
   sleep(1000)



;Now please help to copy the data to the email subject section,şimdi email konu kısmına veri kopyalama işlemi için lütfen yardım ,


Global $oOutlook, $oInspector, $oItem
; Open connection to Outlook
$oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

; Access the currently displayed mail item
$oInspector = $oOutlook.ActiveInspector
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error accessing ActiveInspector. @error = " & @error & ", @extended = " & @extended)
$oItem = $oInspector.CurrentItem
$sSubject = ClipGet()
_OL_ItemModify($oOutlook, $oItem, Default, "Subject=" & $sSubject)


If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error accessing current item. @error = " & @error & ", @extended = " & @extended)
If $oItem.Class <> $olMail Then Exit MsgBox(16, "OutlookEX UDF", "Current item isn't a mail item. @error = " & @error & ", @extended = " & @extended)

; Add a PDF file
$sAttachment  ="C:\Users\mdogru\Desktop\IFS ÇIKTILARI\"&"TL_EUR_USD_HESAPLARIMIZ.pdf"
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

; Change <Test.pdf> to the name of your PDF file - or change the whole path if the fil is stored in a different directory.





If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error adding attachment to mail item. @error = " & @error & ", @extended = " & @extended)



; Display item
$oItem.Display
 
Son düzenleme:

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba
Aşağıdaki satır ile yapılabilir.
MsgBox DateAdd("d", 3, Date)
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
[A2] = date + 3

ifadesi A2 hücresine bugün+3'ün sonucunu yazar. Sorunuzda bu işlemin nereye yapılacağını belirtmediğiniz için A2 olarak örnek verdim.
 

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Merhaba ,
ilginiz için teşekkür ederim ,
Bu işlemi autoıt scrıptınde kullanacağım dolayısı ile program ile çalışan bir excel dosyası bulunmuyor .

yazılım
MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)

Şu koordinata gelip çift tıkladığında bu işlemi yaptıra bilmek mümkün müdür ?
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
"Basic" diline benzese de, "AutoIt Script" bu forumun ilgi alanında olan bir konu değil....... bu konuyla ilgili bir forum bulup oradan destek almanız gerekir.

Hatırladığım kadarıyla bu forumda @asri bey, kişisel olarak bu konuyla ilgileniyor. Kendisinden destek alabilirsiniz.

.
 

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Haluk bey ,

Haklısınız asri üstaddan yardım alsam iyi olacak ,
O bulaştırdı sağolsun bu autoscripte ...
İşyerim deki işlerin %50 i ni bu programla yapar oldum sanırım bağımlısı oldum :love::love::love:
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Autoit benim de çok beğendiğim bir script programı.
Bir diğer güzelliği derlenmiş script yazabilmeniz.

Autoit in forumundan aldığım bu örnek işinizi görecektir.
@MDAY+5 güne eklenen 5 günü belirtir.
%02u/%02u/ gün ve ay ın tarih formatı 19.2.2019 yerine 19.02.2019 gibi yazmak için kullanılıyor.

Kod:
Local $hDate = StringFormat("%02u/%02u/", @MDAY+5,@MON) & StringRight(@Year, 4)
MsgBox($MB_SYSTEMMODAL, "", "Today + 5 days: " & $hDate)
 
Son düzenleme:

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Üstad desteğin için teşekkürler mesajbox ta görünüyor script ekleme yaptığımız da.
Lakin çok uğraştım ama bir türlü aşağıdaki satıra geldiğinde kullandığım programa yazıdıramadım .


gün + 5 için işlev yapacağı kordinata geldiğinde yazacağı yer .kodlama alanında aşağıdaki gibi ayırdım ,yardımcı olabilir misiniz.


;****************************************************
;teslimat günü ayarlanacak bugünden 5 gün sonraya

MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)

;******************************************************






Kod:
#include <OutlookEX.au3>


Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc

Local $var = WinList()
For $i = 1 To $var[0][0]
      If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
        ;MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
        Local $sirasi = StringInStr($var[$i][0], "@ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications") ;açık kalmasını istediğin sayafa
        Local $soldan = StringLeft($var[$i][0],20 )   ;soldan sayılacak boşluk sayısı dikkat et boşluklara göre
        if $sirasi>0 then
            if $soldan<>"Satis Teklifi - Y200" then

                 WinClose($var[$i][0])
            EndIf
        EndIf
    EndIf
Next


Func IsVisible($handle)
    If BitAND(WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc



;BURDAN SONRA ÇALIŞIYOR EMAİL EKLEME
Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Satis Teklifi -","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)


sleep(2000)

MouseClick($MOUSE_CLICK_LEFT,102 , 427, 1)


send("{f5}")
sleep(1000)
send("{TAB 2}")
sleep(1000)

send("{f12}")

sleep(3000)
Send("{ENTER}")

sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)
sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1279 , 423, 1)

sleep(1000)
   Send("^C")


sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)


MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)

sleep(2000)

MouseClick($MOUSE_CLICK_LEFT,103 , 427, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_RIGHT,103 ,427 , 1)



;İLK BURDAN KALDIK



send("{TAB 7}")
Send("{ENTER}")



sleep(3000)
MouseClick($MOUSE_CLICK_LEFT,441 , 550, 1)



send("{f5}")
sleep(1000)


send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")


sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")
send("{0}")

send("{TAB }")
sleep(1000)

send("{f12}")

sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1254 , 325, 1)

sleep(1000)






sleep(1000)

MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 2)

Send("^+{HOME}")

Send("^C")


;~ ;     ctrl alt home yap  111111111111111111

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)



sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 2)

Send("^+{HOME}")



  sleep(1000)



MouseClick($MOUSE_CLICK_LEFT,1414 , 427, 1)

  sleep(1000)

send("{BACKSPACE 20}")



sleep(1000)


Send("^V")
sleep(1000)
send("{f12}")





; burdayız 27 09




sleep(2000)


MouseClick($MOUSE_CLICK_LEFT,978 , 320, 1)

MouseClick($MOUSE_CLICK_RIGHT,978 , 320, 1)
sleep(1000)


send("{TAB 7}")
  Send("{ENTER}")
sleep(2000)
;TEKLİF YAYINLA

sleep(2000)
  _WinWaitActivate("IFS Uygulamaları","")

sleep(1000)

  Send("{ENTER}")
sleep(3000)

MouseClick($MOUSE_CLICK_LEFT,978 , 320, 1)

MouseClick($MOUSE_CLICK_RIGHT,978 , 320, 1)
sleep(1000)
send("{TAB 13}")
  Send("{ENTER}")
sleep(3000)

_WinWaitActivate("Tekliften Satis Siparisi Yarat","")




Send("TYD")
send("{TAB 1}")
sleep(1000)


;****************************************************
;teslimat günü ayarlanacak bugünden 5 gün sonraya

MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)

;******************************************************
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,900 , 485, 1)
sleep(3000)
send("{TAB 1}")
  sleep(1000)
   Send("01")
     sleep(1000)
  send("{TAB 2}")

  Send("{ENTER}")
sleep(1000)
;TEKLİFTEN SİPARİŞ YARATILIYOR BURDA KALDIK

_WinWaitActivate("IFS Uygulamaları","")
  sleep(1000)
  send("{TAB 2}")
sleep(2000)
   Send("{ENTER}")


sleep(5000)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)


sleep(1000)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)



MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)


sleep(500)




MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)

MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)


MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)

sleep(500)







MouseClick($MOUSE_CLICK_LEFT,156 , 427, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,43 , 548, 1)
sleep(4000)



    Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Satis Siparisi -","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)


sleep(2000)




MouseClick($MOUSE_CLICK_LEFT,171 , 167, 2)
sleep(1000)
   ;1 veri kopyalanıyor ,1. copy to the subject okkkkk...
   Send("^C")
   sleep(1000)



;Now please help to copy the data to the email subject section,şimdi email konu kısmına veri kopyalama işlemi için lütfen yardım ,


Global $oOutlook, $oInspector, $oItem
; Open connection to Outlook
$oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

; Access the currently displayed mail item
$oInspector = $oOutlook.ActiveInspector
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error accessing ActiveInspector. @error = " & @error & ", @extended = " & @extended)
$oItem = $oInspector.CurrentItem
$sSubject = ClipGet()
_OL_ItemModify($oOutlook, $oItem, Default, "Subject=" & $sSubject)


If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error accessing current item. @error = " & @error & ", @extended = " & @extended)
If $oItem.Class <> $olMail Then Exit MsgBox(16, "OutlookEX UDF", "Current item isn't a mail item. @error = " & @error & ", @extended = " & @extended)

; Add a PDF file
$sAttachment  ="C:\Users\mdogru\Desktop\IFS ÇIKTILARI\"&"TL_EUR_USD_HESAPLARIMIZ.pdf"
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

; Change <Test.pdf> to the name of your PDF file - or change the whole path if the fil is stored in a different directory.





If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error adding attachment to mail item. @error = " & @error & ", @extended = " & @extended)



; Display item
$oItem.Display
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Üstad desteğin için teşekkürler mesajbox ta görünüyor script ekleme yaptığımız da.
Lakin çok uğraştım ama bir türlü aşağıdaki satıra geldiğinde kullandığım programa yazıdıramadım .


gün + 5 için işlev yapacağı kordinata geldiğinde yazacağı yer .kodlama alanında aşağıdaki gibi ayırdım ,yardımcı olabilir misiniz.


;****************************************************
;teslimat günü ayarlanacak bugünden 5 gün sonraya

MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)

;******************************************************

Bu şekilde dener misiniz?

Local $hDate = StringFormat("%02u/%02u/", @MDAY+5,@MON) & StringRight(@Year, 4)
MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)
sleep(500)
send($hDate)
 

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Üstad Merhaba ,

Benim bir problemim var autoıt de özelde video ekledim müşteri ismi olduğu için şöyleki indirim yapmam gerekiyor satırlara lakin 2 türlü düşündüm 2 düşüncede sorunlu

1 . örnek kordinata giderek seçtirip sonra indirim yapmak .
bur da sorun bazı teklifte 1 satır bazı teklif de 100 satır olabiliyor ve indirim tutarı da her zaman aynı değil .sanırım bu bana uygun olan ama eksiklerım var yazılımda .
(son satır belirsiz olduğu için her işlem için kodlama yazmam gerekiyor ve son dolu satırı nasıl algılatabiliriz )
2 . koda göre sorgulatıp bu şekilde indirim yaptırmak .
Burda da malzeme noları excele alıp tekrar yükleyip işlem yaptırıyorum buda epey zaman alıyor ve mükerrer malzeme no olduğunda aynı satıra 2 kere işlem yapıyor .

bir akıl verebilmeniz mümkün müdür iyice yordu bu konu beni .
Kod:
#include <AutoItConstants.au3>



Func _WinWaitActivate($title,$text,$timeout=0)
        WinWait($title,$text,$timeout)
        If Not WinActive($title,$text) Then WinActivate($title,$text)
        WinWaitActive($title,$text,$timeout)

EndFunc



   Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
  _WinWaitActivate("Satis Teklifi -","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)



sleep(2000)

MouseClick($MOUSE_CLICK_LEFT,214 , 162, 1)
sleep(2000)

send("{TAB 14}")
sleep(2000)


MouseClick($MOUSE_CLICK_RIGHT,160 ,424 , 1)
sleep(1000)

send("{TAB 8}")

send("{ENTER}")
sleep(1000)

For $i = 1 To 1

send("{F5}")


send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")


sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")
send("{0}")

send("{TAB }")
sleep(1000)

send("{f12}")

sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1435 , 338, 1)

sleep(1000)

MouseClick($MOUSE_CLICK_RIGHT,160 ,450 , 1)
sleep(1000)
;2 satırı seçiyor
send("{TAB 8}")

send("{ENTER}")
sleep(1000)
send("{F5}")


send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")


sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")
send("{0}")

send("{TAB }")
sleep(1000)

send("{f12}")

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1435 , 338, 1)

sleep(1000)
;3 satır seçiliyor
sleep(1000)

MouseClick($MOUSE_CLICK_RIGHT,160 ,470 , 1)
sleep(1000)
;2 satırı seçiyor
send("{TAB 8}")

send("{ENTER}")
sleep(1000)
send("{F5}")


send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")


sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")
send("{0}")

send("{TAB }")
sleep(1000)

send("{f12}")

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1435 , 338, 1)

sleep(1000)

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1435 , 338, 1)

sleep(1000)
;3 satır seçiliyor
sleep(1000)

MouseClick($MOUSE_CLICK_RIGHT,160 ,470 , 1)
sleep(1000)
;2 satırı seçiyor
send("{TAB 8}")

send("{ENTER}")
sleep(1000)
send("{F5}")


send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")


sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")
send("{0}")

send("{TAB }")
sleep(1000)

send("{f12}")

sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1435 , 490, 1)

sleep(1000)


Next
Kod:
#include <AutoItConstants.au3>
Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc


; İLK VERİİLİ


$oExcel = ObjCreate("Excel.Application")
$oExcel.Workbooks.Open (@ScriptDir & "\teklif.xlsx").Sheets (1).Select ()
$oExcel.Visible = True
;Excel dosyası açıldıktan 10 sn sonra bilgi girişine başlanacaktır.
Sleep(5000)
Local $satir=0

;5 kayıt için 5 daha fazlası için bu rakam arttırılabilir
For $i = 1 To 10000
   ;Açılan excel dosyasından 1,3,4 kolonlarından veriler okunuyor.
   Local $stok=$oExcel.Sheets("Sayfa1").cells($i, 1).value

   ;Okunan veri boş ise döngü bitiriliyor.
   if $stok="" then ExitLoop


sleep(3000)

   Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Satis Siparisi -","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)




sleep(2000)

 MouseClick($MOUSE_CLICK_LEFT,264 , 455, 1)

 sleep(2000)
 MouseClick($MOUSE_CLICK_RIGHT,264 , 455, 1)


 sleep(2000)
      send("{TAB 33}")
      send("{ENTER}")





   ;Stokkodu gönderiliyor
   Sleep(1000)
   send($stok)

   ;entere basılıyor
   send("{ENTER}")
   Sleep(3000)

   ;buraya ekledik hata olursa yan sutuna 2 yazdıracak
   If winexists('IFS Uygulamaları', '') Then
      $oExcel.Sheets("Sayfa1").cells($i, 5).value="hata"
      ClipPut("")
      sleep(2000)
      send("{TAB}")
      send("{ENTER}")
      sleep(2000)
   Endif




 sleep(2000)
 MouseClick($MOUSE_CLICK_RIGHT,264 , 455, 1)


sleep(2000)
      send("{TAB 4}")
        sleep(3000)
              Send("+{RIGHT}")


              sleep(2000)
      send("{TAB 10}")
      send("{ENTER}")

sleep(2000)
send("{F5}")


send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")


sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")


send("{TAB }")
sleep(1000)

send("{f12}")

sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,1409 , 348, 1)

sleep(1000)



 sleep(3000)
 MouseClick($MOUSE_CLICK_RIGHT,264 , 455, 1)



;~ ;burda kaldık enson burda bitiyor **************************************************************





 ;$oExcel.Workbooks.close


 Next

 ;$oExcel.Workbooks.close
 
Son düzenleme:
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
İndirim onarını yada rakamını neye göre belirliyorsunuz.
Sabit mi?
 

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Üstad sabit değil her müşteriye ve duruma göre değişken . 0 ile 100 arası .
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
"indirim tutarı da her zaman aynı değil . " bu durumda bulunduğunu satırın içeriğini tespit edemediğiniz için satıra göre indirim uygulamanız zor.

2. seçenek daha sağlıklı geliyor.
Excel koda göre indirim belirleyip ona göre ekrana çağırıp indirim yapmak daha mantıklı.
Mükerrer kayıtlar excel de kolay bir şekilde elenebilir.
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Autoit içinden excel den bilgi okuma excel e yazma ile ilgili bir örnek.
Mikro programında, depo sevk düzenleme içim yazmıştım.

Kod:
#include <AutoItConstants.au3>
;Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com

Func _WinWaitActivate($title,$text,$timeout=0)
        WinWait($title,$text,$timeout)
        If Not WinActive($title,$text) Then WinActivate($title,$text)
        WinWaitActive($title,$text,$timeout)
EndFunc


$oExcel = ObjCreate("Excel.Application")
$oExcel.Workbooks.Open (@ScriptDir & "\fisstoklistesi.xls").Sheets (1).Select ()
$oExcel.Visible = True

;Excel dosyası açıldıktan 10 sn sonra bilgi girişine başlanacaktır.
Sleep(10000)

For $i = 2 To 10000

   ;Açılan excel dosyasından 1,3,4 kolonlarından veriler okunuyor.
   Local $seri=$oExcel.activesheet.cells($i, 1).value
   Local $sira=$oExcel.activesheet.cells($i, 2).value
   Local $tamam=$oExcel.activesheet.cells($i, 3).value

   ;Okunan veri boş ise döngü bitiriliyor.
   if $sira="" then ExitLoop
   if $tamam="" then

   Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Depolar arası sevk","")

   send($seri)
   send("{TAB}")
   Sleep(2000)
   send($sira)
   send("{TAB}")
   Sleep(3000)
   ;Sakla Tıkla8
   Send("!S")
   Sleep(2000)
   ;Evet Kaydet
   Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Onay","")
   send("{ENTER}")
   Sleep(3000)

   send("{ENTER}")
   Sleep(3000)
   $oExcel.activesheet.cells($i, 3).value="Tamam"
   EndIf

Next

$oExcel.Workbooks.close
 

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Üstad haklısınız #15 no lu mesajınızı kullanıyorum bundan sonra .varda zor geliyor excele al programı çalıştır işlemi :)

Bir sorum daha olacak müsaitseniz veri almam gerekiyor sistemden lakin son dolu hücreye kadar işlem yapsın dolu hücrede işlem bitince diğer müşteri bilgisi ekranına yollamak istiyorum .

Lakin bur da şöyle bir sorun var son dolu hücre değişken bazı müşteride 6 bazılarında 20 satır bunu tanımlata bilmenin bir yolu mevcut mudur.



http://www.dosya.tc/server17/ikutth/alan_seci.gif.html


Kod:
#include <AutoItConstants.au3>
Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc


; İLK VERİİLİ


$oExcel = ObjCreate("Excel.Application")
$oExcel.Workbooks.Open (@ScriptDir & "\teklif.xlsx").Sheets (1).Select ()
$oExcel.Visible = True
;Excel dosyası açıldıktan 10 sn sonra bilgi girişine başlanacaktır.
Sleep(5000)
Local $satir=0

sleep(2000)
 Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Müşteri - ","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)


;MÜŞTERİ NO ALINIYOR
sleep(2000)

 MouseClick($MOUSE_CLICK_LEFT,332 , 160, 1)

 sleep(2000)
   ;ilk veri kopyalanıyor


; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 3).value=ClipGet()
   ClipPut("")


   ;MÜŞTERİ NO ALINIYOR
sleep(2000)

;BURDAN AL
 MouseClick($MOUSE_CLICK_LEFT,642 , 164, 1)

 sleep(2000)
   ;2 veri kopyalanıyor


; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 4).value=ClipGet()
   ClipPut("")




;5 kayıt için 5 daha fazlası için bu rakam arttırılabilir
For $i = 1 To 10000
   ;Açılan excel dosyasından 1,3,4 kolonlarından veriler okunuyor.
   Local $stok=$oExcel.Sheets("Sayfa1").cells($i, 1).value

   ;Okunan veri boş ise döngü bitiriliyor.
   if $stok="" then ExitLoop

   Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Müşteri - ","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)



;MÜŞTERİ NO ALINIYOR
sleep(2000)




 MouseClick($MOUSE_CLICK_LEFT,362 , 283, 1)

 sleep(2000)
   ;3 veri kopyalanıyor
 MouseClick($MOUSE_CLICK_LEFT,362 , 283, 2)

; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 5).value=ClipGet()
   ClipPut("")


   ;BURDAN AL


 sleep(2000)
   ;2 veri kopyalanıyor
 send("{TAB}")

; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 6).value=ClipGet()
   ClipPut("")


;BURDAN AL

sleep(2000)
   ;2 veri kopyalanıyor
 send("{TAB}")

; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 7).value=ClipGet()
   ClipPut("")

sleep(2000)
   ;2 veri kopyalanıyor
 send("{TAB}")

; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 8).value=ClipGet()
   ClipPut("")

;BURDA KALDIK.




 sleep(2000)
   ;2 veri kopyalanıyor
 send("{TAB}")

; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 7).value=ClipGet()
   ClipPut("")

;BURDA KALDIM








 ;$oExcel.Workbooks.close


 Next

 ;$oExcel.Workbooks.close
 
Katılım
24 Nisan 2005
Mesajlar
3,652
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Son dolu hücreden sonra renk tespiti yapılabilir.
Ekranda koordinattaki renk görününce sonraki aşamaya geçilebilir.
 

mustilem23

Altın Üye
Katılım
29 Ekim 2010
Mesajlar
365
Excel Vers. ve Dili
Microsoft Office 365 ProPlus 64 bit
Üstad ,

Epey çaba sarf ettim lakin kodlamanın içerisine ekleyip çalıştırmayı bir türlü başaramadım .en şöyle bir kodlama ile yola çıktım yardımcı olabilir misiniz.



Kod:
; Find a pure red pixel in the range 0,0-20,300
Local $aCoord = PixelSearch(0, 0, 20, 300, 0xFF0000)
If Not @error Then
    MsgBox($MB_SYSTEMMODAL, "", "X and Y are: " & $aCoord[0] & "," & $aCoord[1])
EndIf

; Find a pure red pixel or a red pixel within 10 shades variations of pure red
$aCoord = PixelSearch(0, 0, 20, 300, 0xFF0000, 10)
If Not @error Then
    MsgBox($MB_SYSTEMMODAL, "", "X and Y are: " & $aCoord[0] & "," & $aCoord[1])
EndIf


benim yazılımın içerdiği kodlar , ve video görseli özelden ilettim şirkete özel olduğu için .


Kod:
#include <AutoItConstants.au3>
Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc


; İLK VERİİLİ


$oExcel = ObjCreate("Excel.Application")
$oExcel.Workbooks.Open (@ScriptDir & "\teklif.xlsx").Sheets (1).Select ()
$oExcel.Visible = True
;Excel dosyası açıldıktan 10 sn sonra bilgi girişine başlanacaktır.
Sleep(5000)
Local $satir=0







;5 kayıt için 5 daha fazlası için bu rakam arttırılabilir
For $i = 1 To 10000
   ;Açılan excel dosyasından 1,3,4 kolonlarından veriler okunuyor.
   Local $stok=$oExcel.Sheets("Sayfa1").cells($i, 1).value

   ;Okunan veri boş ise döngü bitiriliyor.
   if $stok="" then ExitLoop

   Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Müşteri - ","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)


   ;Açılan excel dosyasından 1,3,4 kolonları45015    4ndan veriler okunuyor.
   Local $stok=$oExcel.activesheet.cells($i, 1).value

  ;+ ya basılıyor
   send("{F3}")
   Sleep(1000)
   send($stok)
 Sleep(1000)

   send("{TAB 6}")
   ;1 sn bekleniyor
   Sleep(1000)
   send("{ENTER}")
   Sleep(2000)




MouseClick($MOUSE_CLICK_LEFT,332 , 160, 1)

 sleep(1000)
   ;ilk veri kopyalanıyor


; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(1000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 3).value=ClipGet()
   ClipPut("")


   ;MÜŞTERİ NO ALINIYOR
sleep(1000)

;BURDAN AL
 MouseClick($MOUSE_CLICK_LEFT,642 , 164, 1)

 sleep(1000)
   ;2 veri kopyalanıyor


; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(1000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 4).value=ClipGet()
   ClipPut("")


;MÜŞTERİ firma ismine bağlı ad alınıyor
sleep(1000)




 MouseClick($MOUSE_CLICK_LEFT,455 , 285, 1)
 MouseClick($MOUSE_CLICK_LEFT,455 , 285, 2)


   ; CTRL SHIFT HOME İŞARETLİ ALANI SEÇER .
  Send("^+{HOME}")

   Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(1000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 7).value=ClipGet()
   ClipPut("")
sleep(2000)
 ;Müşteri açıklama sutunu alınıyor
  send("{TAB}")
   sleep(1000)

      Send("^+{LEFT 8 }")
         sleep(1000)
  Send("^+{RIGHT 8 }")
       Send("^C")



   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(1000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 8).value=ClipGet()
   ClipPut("")


;Müşteri açıklama iletişim metedu

 sleep(2000)
   ;2 veri kopyalanıyor
 send("{TAB 2}")
   sleep(1000)

      Send("^+{LEFT 8 }")
         sleep(1000)
  Send("^+{RIGHT 8 }")
       Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(1000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 9).value=ClipGet()
   ClipPut("")

 sleep(1000)
 send("{TAB 3}")

;burdan sonra yeşil olur ise satır ***************************************************************************************************************************


       ;MÜŞTERİ firma ismine bağlı ad alınıyor 2
sleep(2000)

Send("^+{LEFT 8 }")
         sleep(1000)
  Send("^+{RIGHT 8 }")
       Send("^C")



   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 3).value=ClipGet()
   ClipPut("")


   ;MÜŞTERİ NO ALINIYOR


 sleep(1000)
 send("{TAB 3}")


 Send("^+{LEFT 8 }")
         sleep(1000)
  Send("^+{RIGHT 8 }")
       Send("^C")

   ;2 veri kopyalanıyor MÜTERİ DEĞER SUTUNU



   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(1000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 4).value=ClipGet()
   ClipPut("")


;MÜŞTERİ firma ismine bağlı ad alınıyor
sleep(2000)

send("{TAB 3 }")
Send("^+{LEFT 8 }")
         sleep(1000)
         Send("^+{RIGHT 8 }")
       Send("^C")


   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 7).value=ClipGet()
   ClipPut("")
sleep(2000)
 ;Müşteri açıklama sutunu alınıyor
  send("{TAB}")
   sleep(1000)

      Send("^+{LEFT 8 }")
         sleep(1000)
  Send("^+{RIGHT 8 }")
       Send("^C")
;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(2000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 8).value=ClipGet()
   ClipPut("")
;Müşteri açıklama iletişim metedu
sleep(2000)
   ;2 veri kopyalanıyor
 send("{TAB 2}")
   sleep(1000)
Send("^+{LEFT 8 }")
         sleep(1000)
  Send("^+{RIGHT 8 }")
       Send("^C")

   ;Hafızaya alınmış kopyalanan değer Sayfa2 deki satir ve sutuna yapıştırılır.
   ;Değerler excel de sağa doğru yapıştırılacak ise $satir, 1 deki değer 2,3,4 olarak değiştirilir.
   sleep(1000)
   $satir=$satir+1
   $oExcel.Sheets("Sayfa2").cells($satir, 9).value=ClipGet()
   ClipPut("")

 sleep(1000)
 send("{TAB 3}")



    Sleep(1000)




;burdan sonra yeşil olur ise satır ***************************************************************************************************************************


;MÜŞTERİ firma ismine bağlı ad alınıyor 2
sleep(1000)










 ;$oExcel.Workbooks.close

Next


 ;$oExcel.Workbooks.close
 
Son düzenleme:
Üst