SendKeys komutunun kullanımı hakkında.

[hamitcan]

Aşağıdaki kod yardımıyla, bir hücre içerisine girip, Ctrl+Shift+Enter tuşlarına basmak isitiyorum ama kodu çalıştırdığımda Object Browser çıkıyor ve devamında da hata mesajı veriyor.

Sub Makro1()
SendKeys "{F2}"
SendKeys "^+{ENTER}"
End Sub

Bu kodu sayfa olayında kullandığımda hata vermiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SendKeys "{F2}"
SendKeys "^+{ENTER}"
End Sub

Nerede hata yapıyorum anlamadım.

 

[mancubus]

hocam VBE'de iken F2'ye basıyor zannediyorum.
normal sayfada çalıştığında problem olmaması lazım.

 

[hamitcan]

Evet haklısınız, peki bunu nasıl aşarız ?

 

[Korhan Ayhan]

Selamlar,

Sn. hamitcan,

Bu tarz kodları kod editörü penceresinde çalıştırırsanız buradaki kısayolları aktif etmiş olursunuz.

Makronuzu excel sayfası üzerinde çalıştırırsanız sorun ortadan kalkar.

 

[hamitcan]

Teşekkürler Korhan bey, galiba ben de sayfa olayları ile halledeceğim.

 

[HASAN40]

Merhaba,

İletişim kutusundaki yanıta sendkeys ile enter tuşunu nasıl gönderebiliriz?

Örneğin; bir çalışma kitabı sayfası silmek istediğimizde ekrana "silmek istenen sayfada veri olabilir yinede silmek istiyormusunuz?
Sil - İptal "
şeklinde uyarı geliyor. Bu uyarıda sil tuşuna bastırmak istiyorum?

Teşekkürler...

 

[Merhum İdris SERDAR]

Aşağıdaki kod yardımıyla, bir hücre içerisine girip, Ctrl+Shift+Enter tuşlarına basmak isitiyorum ama kodu çalıştırdığımda Object Browser çıkıyor ve devamında da hata mesajı veriyor.

Sub Makro1()
SendKeys "{F2}"
SendKeys "^+{ENTER}"
End Sub

Bu kodu sayfa olayında kullandığımda hata vermiyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SendKeys "{F2}"
SendKeys "^+{ENTER}"
End Sub

Nerede hata yapıyorum anlamadım.

.

Sayın hamitcan.

Merhaba.

FormulaArray kullanabilirsiniz.

Örnek:

Sub test()
For Each hcr In Selection
hcr.FormulaArray = hcr.Formula
Next hcr
End Sub

.

 

[hamitcan]

.

Sayın hamitcan.

Merhaba.

FormulaArray kullanabilirsiniz.

Örnek:

Sub test()
For Each hcr In Selection
hcr.FormulaArray = hcr.Formula
Next hcr
End Sub

.

Sayın yurttas, cevabınız için teşekkürler. Şunu belirtmek isterim; soruyu nasıl hallettiğimi inanın hatırlamıyorum ama cevabınızı saklayacağım.

 

[hamitcan]

Merhaba,

İletişim kutusundaki yanıta sendkeys ile enter tuşunu nasıl gönderebiliriz?

Örneğin; bir çalışma kitabı sayfası silmek istediğimizde ekrana "silmek istenen sayfada veri olabilir yinede silmek istiyormusunuz?
Sil - İptal "
şeklinde uyarı geliyor. Bu uyarıda sil tuşuna bastırmak istiyorum?

Teşekkürler...

Sorunuzu kod yardımıyla yapabiliriz diye düşünüyorum ama bu arada farklı çözümler de çıkabilir, biraz daha bekleyin derim.

 

[Merhum İdris SERDAR]

Sorunuzu kod yardımıyla yapabiliriz diye düşünüyorum ama bu arada farklı çözümler de çıkabilir, biraz daha bekleyin derim.

.

http://www.excel.web.tr/f48/leti-im-kutusuna-sendkeys-gondermek-t123950.html

Cevap burada...

.

 

[HASAN40]

.

http://www.excel.web.tr/f48/leti-im-kutusuna-sendkeys-gondermek-t123950.html

Cevap burada...

.

Sorunuzu kod yardımıyla yapabiliriz diye düşünüyorum ama bu arada farklı çözümler de çıkabilir, biraz daha bekleyin derim.

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