İstediğim textboxa DblClick yapınca

[snskutlu]

Merhaba arkadaşlar
Öncelikle geçmiş bayramınızı kutlar, sağlıklı başarılı günler dilerim.

Çalıştığım programda sıralı bir şekilde çok sayıda (textbox1,textbox2,..) textbox lar var.

Bunlardan herhangi birisinin üzerinde çift tıklattığımda sayfa1.[A1] hücresine tıklama yaptığım textboxdaki text in aktarılmasını istiyorum. Bunu ayrı ayrı DblClick olayına kod yazarak yapmak istemiyorum. Çok uzun oluyor.

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

 

[snskutlu]

Merhaba arkadaşlar
Öncelikle geçmiş bayramınızı kutlar, sağlıklı başarılı günler dilerim.

Çalıştığım programda sıralı bir şekilde çok sayıda (textbox1,textbox2,..) textbox lar var.

Bunlardan herhangi birisinin üzerinde çift tıklattığımda sayfa1.[A1] hücresine tıklama yaptığım textboxdaki text in aktarılmasını istiyorum. Bunu ayrı ayrı DblClick olayına kod yazarak yapmak istemiyorum. Çok uzun oluyor.

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

 

[veyselemre]

Örneği inceleyin.

 

[Haluk]

Bu işi yapmak için:

1) VBE kısmında bir Class Modül ekleyin ve adını ClassTxtBox yapın. (Properties penceresinde Name özelliği)

2) Bu Class modüle aşağıdakileri yapıştırın;

Public WithEvents MyTxtBox As MSForms.TextBox
'
Private Sub MyTxtBox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets("Sayfa1").Range("A1") = MyTxtBox.Text
End Sub

3) Şimdi UserForm kod modulünün en üstüne aşağıdakileri yapıştırın;

Dim Txts() As New ClassTxtBox ' Bu satır General - Declarations bölümünde olacak
'
Private Sub UserForm_Initialize()
    Dim MyCtrl As Control
    Dim i As Byte
    i = 1
    For Each MyCtrl In Me.Controls
        If TypeName(MyCtrl) = "TextBox" Then
            i = i + 1
                ReDim Preserve Txts(i)
            Set Txts(i).MyTxtBox = MyCtrl
        End If
    Next
End Sub

4) Şimdi UserForm'u çalıştırın. TextBox'lara veri girdikten sonra çift tıkladığınızda, istediğiniz gerçekleşecektir.

 

[Levent Menteşoğlu]

Bu istediğinizi class module kullanarak yapmak kodlarda çok ciddi kısalmaya neden olur. Kesin çözüm için dosyanızı eklermisiniz.

 

[Haluk]

Mükerrer mesaj ...

http://www.excel.web.tr/showthread.php?p=207604

 

[AS3434]

Sayın snskutlu

Lütfen aynı soruyu farklı başlıklar altında sormayın.