Enter tuşu ile Butona Basmak

[metin_0606]

Değerli forum üyeleri enter tuşu ile commond1 butonuna basmak mümkün mü acaba. Yardımlarınız için şimdiden teşekkürler

 

[Korhan Ayhan]

Bu buton nerede?

Ekteki dosyada excel sayfası üzerinde ki CommandButton için uygulama yapılmıştır.

 

[metin_0606]

Bu buton nerede?

Ekteki dosyada excel sayfası üzerinde ki CommandButton için uygulama yapılmıştır.

Buton userform1 üzerinde Korhan hocam

 

[Korhan Ayhan]

Form üzerinde ise form açılırken ilgili butona SetFocus yapmak yeterli olacaktır. Bu komutla buton aktif olacağı için ENTER tuşuna bastığınızda buton çalışmış olacaktır.

Aşağıdaki kod focuslanma işlemini yapacaktır.

Private Sub UserForm_Initialize()
    Me.CommandButton1.SetFocus
End Sub

 

[metin_0606]

Form üzerinde ise form açılırken ilgili butona SetFocus yapmak yeterli olacaktır. Bu komutla buton aktif olacağı için ENTER tuşuna bastığınızda buton çalışmış olacaktır.

Aşağıdaki kod focuslanma işlemini yapacaktır.

Private Sub UserForm_Initialize()
    Me.CommandButton1.SetFocus
End Sub

Korhan hocam verileri userform üzerindeki textboxlara girip kaydet butonuna mouse ile basarak kaydetme işlemini gerçekleştiriyorum. Bu işlemi mouse ile değilde enter tuşu ile gerçekleştirmek için sizin paylaşmış olduğunuz kod ile denedim(userformun instalize kısmına ekledim) ama olmadı.

 

[Korhan Ayhan]

Olmadı derken;

Ben örnek olmadığı için boş bir dosyada denediğimde olumlu sonuç aldım ve paylaştım.

Bu komut form açılışında butonu seçili hale getiriyor. Size sadece Enter tuşuna basmak kalıyor.

Net cevaplar almanız için örnek dosya ekleyerek yardım talebinde bulunmanız gereksiz zaman kaybını da önleyecektir. (Artık bunu yazmaktan elimizde tüy bitti.)

 

[Seyit Tiken]

Hücreden Enter ile kod çalıştırmak istiyorsanız bu şekilde yapabilirsiniz, söylediğiniz şekilde pek kullanışlı değil.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "Test"
End If
End Sub