Onay kutusuna bağlı açılan hücreler

[sally80]

Merhaba arkadaşlar;

Ekte bir form hazırladım ama aslında değişik bir şey yapmak istiyordum.

Şimdi mesela ekteki formun finansal detaylar kısmında “LEASİNG” için EVET / HAYIR seçenekleri var. Benim istediğim evet seçeneği tıklatıldığında hemen altında yer alan “Leasing Firması”, Leasing Yetkilisi” ve “Yetkili İletişim” seçeneklerinin açılması. Ama hayır tıklanırsa o seçenekler görülmeyecek / açılmayacak. Aynı şeyi birkaç yerde yapacağım. Eğer nasıl olduğunu anlatırsanız diğerlerine de uygularım. Örneğin makine stokta mı sorusunda evet derse stok no kısmı açılacak gibi.
Mantığı öğrenmem yeterli. Bir sürü yere sordum ama ne bir cevap alabildim ne de bir bilgiye ulaşabildim
Bu olay pekçok yerde işime yarayacak. Bir arkadaşım bu şekilde bir uygulama yapmıştı; ancak kendisi ile iritbatı kaybettiğimden öğrenemiyorum maalesef.
Zannederim bu işlemi onay kutusu seçimine bağlı olarak satırları gizleme / gösterme şeklinde yapacağız.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Module kopyalayarak onay kutularına atayınız.

Sub OnayKutusu47_Tıklat()
 
    If ActiveSheet.Shapes("Check Box 47").ControlFormat.Value = xlOn Then
        Rows("16:18").EntireRow.Hidden = False
    End If
 
End Sub
 
Sub OnayKutusu48_Tıklat()
 
    If ActiveSheet.Shapes("Check Box 48").ControlFormat.Value = xlOn Then
        Rows("16:18").EntireRow.Hidden = True
    End If
 
End Sub