Soru ComboBox İle Koşula Göre Yazdırmak

Katılım
29 Aralık 2012
Mesajlar
30
Excel Vers. ve Dili
Microsoft 365
Merhaba Arkadaşlar,
Aşağıda yer alan örnekteki gibi 3 adet ComboBox değeri için "Evet" ise Label içerisindeki yazan değerlerin görünür olmasını sağlayabiliyorum. Peki değer "Evet" ise sırasıyla Label1, Label2 ve Label3 değerlerini Sayfa 1 içerisinde alt alta nasıl yazdırabilirim?

Kod:
Private Sub ComboBox1_Change()

    If ComboBox1.Value = "Evet" Then
    
        Label1.Visible = True
        
        Else
        
        Label1.Visible = False
        
    End If
    
End Sub

Private Sub ComboBox2_Change()

    If ComboBox2.Value = "Evet" Then
    
        Label2.Visible = True
        
        Else
        
        Label2.Visible = False
        
    End If
    
End Sub

Private Sub ComboBox3_Change()

    If ComboBox3.Value = "Evet" Then
    
        Label3.Visible = True
        
        Else
        
        Label3.Visible = False
        
    End If
    
End Sub
 

tamer42

Destek Ekibi
Destek Ekibi
Katılım
11 Mart 2005
Mesajlar
3,198
Excel Vers. ve Dili
Office 2013 İngilizce
Merhaba Arkadaşlar,
Aşağıda yer alan örnekteki gibi 3 adet ComboBox değeri için "Evet" ise Label içerisindeki yazan değerlerin görünür olmasını sağlayabiliyorum. Peki değer "Evet" ise sırasıyla Label1, Label2 ve Label3 değerlerini Sayfa 1 içerisinde alt alta nasıl yazdırabilirim?

Kod:
Private Sub ComboBox1_Change()

    If ComboBox1.Value = "Evet" Then
   
        Label1.Visible = True
       
        Else
       
        Label1.Visible = False
       
    End If
   
End Sub

Private Sub ComboBox2_Change()

    If ComboBox2.Value = "Evet" Then
   
        Label2.Visible = True
       
        Else
       
        Label2.Visible = False
       
    End If
   
End Sub

Private Sub ComboBox3_Change()

    If ComboBox3.Value = "Evet" Then
   
        Label3.Visible = True
       
        Else
       
        Label3.Visible = False
       
    End If
   
End Sub
Ekli dosyayı inceler misiniz, bu şekilde mi bir çözüm istiyordunuz?

iyi akşamlar.
 

Ekli dosyalar

Katılım
29 Aralık 2012
Mesajlar
30
Excel Vers. ve Dili
Microsoft 365
Merhaba Tamer Bey,
Yardımınız için çok teşekkür ediyorum ancak ekteki dosyayı görme yetkim yok sanırım.
 
Katılım
29 Aralık 2012
Mesajlar
30
Excel Vers. ve Dili
Microsoft 365
Tamer Bey,
Yardımlarınız için çok teşekkür ediyorum. Tam olarak bu değildi aslında ama sanıyorum mantığını anladım. Biraz daha üzerinde çalışayım :)
 
Üst