Textbox pasif

[aydogankemal]

Textbox a tıkladığımda hücredeki formülü kullanıp değeri gösteriyorum. ancak textbox tan çıktıktan sonra pasif olup tekrar seçilememesini istiyorum.
Yardım eder misiniz.

Private Sub TextBox3_Enter()
ActiveCell.Offset(1, 0).Select
TextBox3 = ""
TextBox3 = ActiveCell

 

[TEGCreative]

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Locked = True
End Sub

Merhaba ; Textbox3'ün çıkışına kilit koyarsanız tekrar düzenleme yapamazsınız

 

[aydogankemal]

Merhaba,

Gönderdiğiniz kodu denedim, ama olmuyor, benim üstte yazdığım Offset komutu yine devam ediyor TextBox a tıklayınca

 

[TEGCreative]

Offset değeri ile değil de Range ile veriyi almanızda bir sakınca var mı ? Hep aynı hücredeki değeri mi alsın istiyorsunuz ?

 

[aydogankemal]

Range ile denemedim. Ama offset kullanmamın sebebi gideceği hücredeki formülü textbox a almam gerekiyor. Ve zaten o hücre her seferinde değişiyor. Yani sabit bir hücre değil

Peki şu yolla yapabilir miyiz. Command button a atayacağımız kodlar önce sırasıyla Textbox3 sonra 4 sonra 5 i aktif yapıp onların kodunu çalıştırsa. exit komutuyla da enable. false yapsak olmaz mı. Bu şekilde anlatabiliyorum ama kodunu yazamadım bir türlü

 

[Korhan Ayhan]

İşinizi görebilir. Deneyiniz.

Private Sub CommandButton1_Click()
    TextBox1.SetFocus
    TextBox1.Locked = True
    TextBox2.SetFocus
    TextBox2.Locked = True
    TextBox3.SetFocus
    TextBox3.Locked = True
End Sub