combobox verisine göre göster gizle

  • Konuyu başlatan Konuyu başlatan berkbaba
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Kod:
Private Sub ComboBox1_Change()
If ComboBox1.Value = "A GRUBU" Then
   Frame1.Visible = True
   Frame2.Visible = False
   Frame3.Visible = False
 
End If
If ComboBox1.Value = "B GRUBU" Then
   Frame1.Visible = False
   Frame2.Visible = True
   Frame3.Visible = False
   End If
If ComboBox1.Value = "C GRUBU" Then
   Frame1.Visible = False
   Frame2.Visible = False
   Frame3.Visible = True
End If

End Sub

Bu kodu kullandığım zamanda debug hatası veriyor
 
Merhaba.
VBA ekranında Properties menüsü görünür değilse,
VIEW menüsünden Properties_Window'u fareyle tıklayarak ilgili alanın görünmesini sağlayın.
Ardından C GRUBU frame'inin adını Frame3 olarak değiştirin (mevcut durumda adı Frame4).
İster kendinizin verdiği kodu kulanın isterseniz mevcut kodu aşağıdakiyle değiştirin,
VBA:
Private Sub ComboBox1_Change()
[B]Frame[SIZE=18px]1[/SIZE][/B].Visible = False: [B]Frame[SIZE=18px]2[/SIZE][/B].Visible = False: [B]Frame[SIZE=18px][COLOR=rgb(132, 53, 52)]3[/COLOR][/SIZE][/B].Visible = False
Me.Controls("Frame" & ComboBox1.ListIndex + 1).Visible = True
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst