TextBox ve ComboBox gizleme

[ahmett46]

Slm Arkadaşlar ve Üstadlar
UserForm üzerindeki TextBox veya ComboBox şartlı olarak gizlenebilirmi? Mesela ekteki UserForm2 üzerindeki listbox tan teknoloji ve tasarım dersini seçtiğimizde not bölümündeki textbox lardan ilk dördünün açık olmasını diğerlerinin gizlenmesini istiyorum mümkün mü?

 

[Mahmut Bayram]

Listbox1 e ekleyiniz.

If ListBox1.Value = "TEKNOLOJİ VE TASARIM" Then
Dim pir
For pir = 10 To 20
UserForm2.Controls("TextBox" & pir).Visible = False
Next pir
End If

 

[ahmett46]

Sayın Partner öncelikle ilginize teşekkür ediyorum. Teknoloji ve Tasarım Dersini seçtiğimizde TextBox lar gizleniyor ama ondan sonraki dersi seçtiğimiz zamanda gizlenmeler devam ediyor. Ayrıca bunu iki veya daha fazla koşula bağlayabilirmiyiz? Tekrar teşekkürler

 

[Mahmut Bayram]

If ListBox1.Value = "TEKNOLOJİ VE TASARIM" Then
Dim pir
For pir = 10 To 20
UserForm2.Controls("TextBox" & pir).Visible = False
Next pir
Else 'listbox1.value TEKNOLOJİ VE TASARIM değilse 
' buraya kodlar
'
'
End If

Ayrıca 2 koşul demişsiniz biraz açar mısınız. Neleri koşula bağlamak istiyorsunuz.

 

[ahmett46]

Slm Öncelikle ilginize teşekkür ediyorum iki veya daha fazla koşuldan kastım teknoloji ve tasarımda ilk 4 textbox açık kalacak diğerleri gizlenecek görsel sanatlar veya bir başka derste ilk 5 veya istediğim textboxları gizlemek tekrar teşekkürler
ayrıca aşağıdaki;
Else 'listbox1.value TEKNOLOJİ VE TASARIM değilse
' buraya kodlar
bölümünü olduğu gibi mi yazıyoruz yoksa ayrı bir kod mu eklememiz gerekiyor?

 

[ahmett46]

Arkadaşlar :yardim:

 

[ocamsul]

Sn: ripek in verdiği son örneği kendinize uyarlamanız lazım yani alt alt kriterleri uyarlayarak uygulamanız lazım.

 

[ahmett46]

denedim ama olmadı kardeş

 

[Mahmut Bayram]

ilk textbox isimleriniz 6,7,8,9,10 olacağından 11.ve sonrakiler gizleneceğinden

' buraya kodlar bölümüne tekrar şu kodları yazmalılınız.

For pir = 11 To 20 '11den 20 ye kadar olan textboxlar için
UserForm2.Controls("TextBox" & pir).Visible = False 'gizleme
Next pir

 

[ahmett46]

Slm Hocam aşağıdaki gibi düzenledim sonraki dersleri seçtiğimde tekrar diğer textbox lar açılıyor yapmak istediğim bu dersin yanında mesela görsel sanatlar dersin de de 15 ile 20 arasındaki textbox ları gizlemek istiyorum. Son mesajınızdaki kodu ekledim yine tüm dersler de gizliyor. Ayrıca
b = 4 + (TextBox5.Value * 15)
kodunda bu aralığı sadece bu dersler için değiştirmemiz mümkün mü? Teşekkür ediyorum
Private Sub ListBox1_Click()
If ListBox1.Value = "TEKNOLOJİ VE TASARIM" Then
Dim pir
For pir = 10 To 20
UserForm2.Controls("TextBox" & pir).Visible = False
Next pir
Else
For pir = 10 To 20
UserForm2.Controls("TextBox" & pir).Visible = True
Next pir
End If
End If
TextBox5.Value = ListBox1.ListIndex
TextBox4.Value = ListBox1.Value

Dim derssec
derssec = TextBox5.Value
If ListBox1.ListIndex = -1 Then
MsgBox "Ders seçiniz!", vbInformation
Exit Sub
End If


If derssec = 0 Then
b = 4
Else
b = 4 + (TextBox5.Value * 15)
End If
TextBox6.Value = Cells(Int(TextBox21.Value), b).Value
TextBox7.Value = Cells(Int(TextBox21.Value), b + 1).Value
TextBox8.Value = Cells(Int(TextBox21.Value), b + 2).Value
TextBox9.Value = Cells(Int(TextBox21.Value), b + 3).Value
TextBox10.Value = Cells(Int(TextBox21.Value), b + 4).Value
TextBox11.Value = Cells(Int(TextBox21.Value), b + 5).Value
TextBox12.Value = Cells(Int(TextBox21.Value), b + 6).Value
TextBox13.Value = Cells(Int(TextBox21.Value), b + 7).Value
End Sub

 

[ahmett46]

Acil :yardim:

 

[ahmett46]

Hocam Yardım!!!!!!!!!!