merhaba
bir kitaptan makro öğrenmeye çalışıyorum."sendkeys" işlevini öğretirken şöyle bir örnek vermiş.örnekte 1 den 10 kadar olan sayıları hesap makinesinde toplatıp,A1 hücresine yazdırması gerekiyor ama makroyu çalıştırdığımda
"invalid prosedure or argument" hatası veriyor.Nedenini anlamadım.Hocalarımızdan yardım rica ediyorum.
Sub SendKeysCalc()
Dim ac As Long
Dim int1 As Integer
ac = Shell("calc.exe", 1)
AppActivate ac
For int1 = 1 To 10
SendKeys int1 & "{+}", True
Next int1
SendKeys String:="=", Wait:=True
SendKeys String:="^c", Wait:=1
SendKeys String:="%{f4},wait:=1"
Range("a1").PasteSpecial
End Sub
bir kitaptan makro öğrenmeye çalışıyorum."sendkeys" işlevini öğretirken şöyle bir örnek vermiş.örnekte 1 den 10 kadar olan sayıları hesap makinesinde toplatıp,A1 hücresine yazdırması gerekiyor ama makroyu çalıştırdığımda
"invalid prosedure or argument" hatası veriyor.Nedenini anlamadım.Hocalarımızdan yardım rica ediyorum.
Sub SendKeysCalc()
Dim ac As Long
Dim int1 As Integer
ac = Shell("calc.exe", 1)
AppActivate ac
For int1 = 1 To 10
SendKeys int1 & "{+}", True
Next int1
SendKeys String:="=", Wait:=True
SendKeys String:="^c", Wait:=1
SendKeys String:="%{f4},wait:=1"
Range("a1").PasteSpecial
End Sub