• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Vba If koşulu ile Textbox'a veri atama

  • Konbuyu başlatan Konbuyu başlatan nihatra
  • Başlangıç tarihi Başlangıç tarihi
Katılım
31 Ekim 2007
Mesajlar
134
Excel Vers. ve Dili
türkçe
Merhaba

Private Sub ComboBox2_Change()
If ComboBox2.Text = "İKİLİ EĞİTİM" And ComboBox3.Text = "Müdür" Then
TextBox53.Text = 2
Else
TextBox53.Text = ""
End If
End Sub

Yukarıdaki kodda Müdür'ü seçtiğim zaman TextBox53.Text=2 yazıyor.sadece Müdür de TextBox53.Text =2 yazması gerkiyor. Müdür'ün dışında başka bir şey seçtiğimde TextBox53.Text= "" olması gerekiyor.

Ama sürekli olarak TextBox53.Text =2 yazılı kalıyor.
Nerede hata yapıyorum.
 
kodları kopyalarken kod etiketlerinin kullanalım. # butonu bu iş içindir.

önce Combobox3'ten sonra Combobox2'den seçim yapıldığını var sayıyorum.

Kod:
Private Sub ComboBox2_Change()
    TextBox53.Text = ""
    If ComboBox2.Text = "İKİLİ EĞİTİM" And ComboBox3.Text = "Müdür" Then TextBox53.Text = 2
End Sub
 
Geri
Üst