Pasif UserForm

[Seyit Tiken]

Herkese Selamlar,
UserForm üzerinden, herhangi bir hücreyi seçili yaptığımızda, manuel olarak hücreye veri yazılamıyor. Ta ki, mausla ilgili hücreyi tıklayıp seçili hale getirene kadar. Meseleyi daha iyi anlamak için : UserForm üzerine bir buton yerleştirilip A1 hücresini referans gösterilip yani butonun tıklamasıyla imleç A1 hücresine gitsin. Hemen akabinde manuel olarak herhangi bir veri yazılsın. Verinin yazılmadığı görülecektir. Çünkü UserForm aktiftir. İşte SORU burda başlıyor. Butonun tıklamasıyla imleç A1 hücresine gidecek ve UserForm açıkken, ilgili hücreye manuel olarak veri girişi sağlansın(mausla tıklama yapılmaksızın). Böyle bir KOD var mı? İlgilenen herkese şimdiden teşekkür ediyorum.

Not : UserForm'un ShowModal durumu FALSE'dir. Yukarıda anlatılanlar Form'un ShowModal ile bir ilgisi yoktur.

 

[Levent Menteşoğlu]

Ben bir yol buldum da bunun belki hazır bir komutu vardır, eğer cevap gelmezse bulduğum yöntemi veririm.

 

[Korhan Ayhan]

Selamlar,

Sn. leventm bilmiyorum aynı çözümümü bulduk ama aşağıdaki şekilde denedim ve hücreye bilgi girebildim. Umarım faydası olur.

Private Sub CommandButton1_Click()
    Application.WindowState = xlMinimized
    [A1].Select
    Application.WindowState = xlNormal
End Sub

 

[Levent Menteşoğlu]

Sn. leventm bilmiyorum aynı çözümümü bulduk ama aşağıdaki şekilde denedim ve hücreye bilgi girebildim.

Sn COST_CONTROL

Tebrik ediyorum bende aynı çözümü bulmuştum. Yalnız ben maximize özelliğini kullanmıştım.

Private Sub CommandButton1_Click()
[a1].Select
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
End Sub

 

[Zeki Gürsoy]

Bu arada şimdi aklıma gelen fikrimi açıklamak isterim.

Private Sub CommandButton1_Click()
me.hide
End Sub

İlgili sayfanın "Change" olayına da,

 me.show

 

[Seyit Tiken]

Teşekkür ediyorum. Sayın Levent, Sayın COST_CONTROL ve Sayın anemos.
Güzel bir mantık. Kodları bilmek kadar, MANTIKLI kodlar dizmek de önemli bence.

 

[alpi]

Tebrikler ben bulamamıştım