For Each döngsü

[airborne]

Sub gonder()

ActiveWindow.WindowState = xlMinimized

For Each gonder In Range("E3:E12")

Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("N", True)
Application.Wait (Now + TimeValue("00:00:03"))

Call SendKeys(gonder, True)
Application.Wait (Now + TimeValue("00:00:03"))

Call SendKeys("^+~", True)
Application.Wait (Now + TimeValue("00:00:05"))


Next

MsgBox "İşlem Tamam", Title:="airborne"

End Sub

s.a.

Sayfa de e3 ile e12 arasındaki verileri açık olan web sayfasındaki mesaj kutusuna ekleyip göndermek istiyorum ama bir türlü beceremedim. for each döngüsünde hata alıyorum. sebebini bir türlü çözemedim.

Yardımlarınız için teşekkür ederim.

Selametle.................................

 

[askm]

A.S

Sub kod ismi ile for each icerisindeki isim aynı olduğu için hata veriyor sanırım.
Aşağıdaki şekilde deneyin.

Sub gonder()
Dim gonderi
ActiveWindow.WindowState = xlMinimized

For Each gonderi In Range("E3:E12")

Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("N", True)
Application.Wait (Now + TimeValue("00:00:03"))

Call SendKeys(gonderi, True)
Application.Wait (Now + TimeValue("00:00:03"))

Call SendKeys("^+~", True)
Application.Wait (Now + TimeValue("00:00:05"))


Next

MsgBox "İşlem Tamam", Title:="airborne"

End Sub

 

[airborne]

A.S

Sub kod ismi ile for each icerisindeki isim aynı olduğu için hata veriyor sanırım.
Aşağıdaki şekilde deneyin.

Sub gonder()
Dim gonderi
ActiveWindow.WindowState = xlMinimized

For Each gonderi In Range("E3:E12")

Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("N", True)
Application.Wait (Now + TimeValue("00:00:03"))

Call SendKeys(gonderi, True)
Application.Wait (Now + TimeValue("00:00:03"))

Call SendKeys("^+~", True)
Application.Wait (Now + TimeValue("00:00:05"))


Next

MsgBox "İşlem Tamam", Title:="airborne"

End Sub

Teşekkür ederim Üstad