textboxların özelliği...

Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
herkese merhaba...
benim elimde 2 adet textbox ve 1 adet combobox var.Bunlar textbox9 ve 10
Şimdi comboda iki seçenek var.Bunlar "TAHSİLAT MAKBUZU" ve "TEDİYE MAKBUZU".Yapmak istediğim şu ;

Eğer Comboda "TAHSİLAT MAKBUZU" seçili ise textbox 9 a veri girişine izin versin,ama 10 a veri girilemesin.Tersi durumda ise textboxlara veri giriş özelliği ters olsun.Yani ;

comboda "tediye makbuzu" seçili ise textbox 10 a veri girişi yapılabilsin, ama 9 a veri girişi yapılamasın.

İlgi ve alakanıza şimdiden teşekkürederim.Saygılarımla...
 
Katılım
3 Nisan 2005
Mesajlar
347
Excel Vers. ve Dili
office xp tr
Private Sub TextBox10_Change()
If ComboBox1 = "TAHSİLAT MAKBUZU" Then
TextBox10 = ""
End If
End Sub

Private Sub TextBox9_Change()
If ComboBox1 = "TEDİYE MAKBUZU" Then
TextBox9 = ""
End If
End Sub

Private Sub UserForm_Activate()
With UserForm1.ComboBox1
.AddItem "TAHSİLAT MAKBUZU"
.AddItem "TEDİYE MAKBUZU"
End With
End Sub
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
Bu veri girişi olsun ya da olmasın özelliğini True ve False olarak yapabilirmiyiz...
Çünkü kullanıcı textbox9 yada 10 veri girdikten sonra comboya dönüp veriyi değiştirirse ( tediye ya da tahsilat makbuzu ) girilen veri yanlış hücreye girilmiş oluyor.Halbuki veri girildikten sonra eğer combo kullanılırsa ve tahsilat tediye olarak değiştirilirse textboxlardaki veri yeniden silinsin.Sanırım bunun için exit olayını kullanmak lazım ama yapamadım...
Yardımcı olursanız çok sevinirim...
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,898
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Private Sub ComboBox1_Change()
If ComboBox1.Value = "TEDİYE MAKBUZU" Then TextBox9.Locked = True Else TextBox9.Locked = False
If ComboBox1.Value = "TAHSİLAT MAKBUZU" Then TextBox10.Locked = True Else TextBox10.Locked = False
End Sub

Private Sub TextBox9_Change()
TextBox10.Value = ""
End Sub
Private Sub TextBox10_Change()
TextBox9.Value = ""
End Sub
Private Sub UserForm_Activate()
With UserForm1.ComboBox1
.AddItem "TAHSİLAT MAKBUZU"
.AddItem "TEDİYE MAKBUZU"
End With
End Sub
 
Üst