istediğim satırı gizle/göster Sorunu

[serdarinho43]

peki arkadaşlar şöyle bi seçenekde olabilir;

"VERİ" sayfasının [AD2] hücresinde "YANLIŞ" yazıyorsa "BORDRO" sayfasında [A6:A17] gizlesin. eğer "DOĞRU" yazıyorsa gizlenen satırları göstersin.

ben "BORDRO" sayfasının kod bölümüne;

Private Sub Worksheet_Calculate()
If [veri!AD2] = "YANLIŞ" Then
[bordro!a6:a17].EntireRow.Hidden = True
End If
If [veri!AD2] = "DOĞRU" Then
[bordro!a6:a17].EntireRow.Hidden = 0
End If
End Sub

bu kodu yazdım olmadı. Hangi kodla istediğimi sağlayabilirim.

 

[serdarinho43]

arkadaşlar 146 defa görüntülenmiş dosyalar toplamda 19 kere indirilmiş ama hala başladığım yerdeyim :agla:

 

[aliakgul]

If Me.CheckBox4 Then
[bordro!a6:a17].EntireRow.Hidden = 1
Else
[bordro!a6:a17].EntireRow.Hidden = 0
End If
Onay kutusu işaretli iken satır gizleme olayı:
Bu kodları onay kutusu(CheckBox) altına uygularsan olur...(Sayın Seyit Tiken'in kodlarını senin çalışmana uyarlamış olacaksın.Örnek kodlardaki CheckBox'ın nosu 1 iken, senin çalışmandaki CheckBox'ın nosu 4.)

 

[Seyit Tiken]

Bence siz olasılıklarla hareket ettiğiniz için sonuca ulaşmıyorsunuz. Ne yapacağınızı tasarlayarak adım atınız.

 

[serdarinho43]

If Me.CheckBox4 Then
[bordro!a6:a17].EntireRow.Hidden = 1
Else
[bordro!a6:a17].EntireRow.Hidden = 0
End If
Onay kutusu işaretli iken satır gizleme olayı:
Bu kodları onay kutusu(CheckBox) altına uygularsan olur...(Sayın Seyit Tiken'in kodlarını senin çalışmana uyarlamış olacaksın.Örnek kodlardaki CheckBox'ın nosu 1 iken, senin çalışmandaki CheckBox'ın nosu 4.)

syn aliakgul sayfadaki bir butonla gizleme göstermede bir sorun yok ama ben sadece userformlar arası çalışacağım personel kayıta yaptığım checkbox ile bunu sağlamak istiyorum.

 

[serdarinho43]

Bence siz olasılıklarla hareket ettiğiniz için sonuca ulaşmıyorsunuz. Ne yapacağınızı tasarlayarak adım atınız.

olasılıklarla hareket etmekden çok istediğimi anlatamıyorum demek daha uygun olacak sanırım

 

[serdarinho43]

arkadaşlar şuPrivate Sub Worksheet_Activate()
If [veri!AE15] = 0 Then
[s!A1:A10].EntireRow.Hidden = True
End If
If [veri!AE15] = 1 Then
[s!A1:A10].EntireRow.Hidden = 0
End If
End Sub

kod ile "veri" sayfasındaki AE hücresi = 0 ise gizleyebiliyorum fakat AE =1 olduğunda tekrar göstermiyor.

 

[Levent Menteşoğlu]

kod ile "veri" sayfasındaki AE hücresi = 0 ise gizleyebiliyorum fakat AE =1 olduğunda tekrar göstermiyor.

Kodu activate olayı yerine change olayına yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If [veri!AE15] = 0 Then
[s!A1:A10].EntireRow.Hidden = True
End If
If [veri!AE15] = 1 Then
[s!A1:A10].EntireRow.Hidden = 0
End If
End Sub