CheckBox İle Satır Gizle ve Göster

[ormann]

Günaydınlar;
Ekteki örnek dosyada veri sayfasında g11:g41 hücrelerinde veri yoksa CheckBox 'u seçtiğimizde A sayfasında (b12:b42) ve B sayfasında (g12:g42) hücreleri arasında boş olan satırları gizleyebilir miyiz?.CheckBox 'un seçimini kaldırdığımızda ise gizlenen satırları gösterebilir miyiz?

 

[ormann]

Arkadaşlar rica etsem yardımcı olabilirmisiniz?

 

[ormann]

Arkadaşlar yardımcı olabilirmisiniz?

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
[G2:G30].SpecialCells(4).EntireRow.Hidden _
= [G2:G30].SpecialCells(4).EntireRow.Hidden = 0
End Sub

 

[ormann]

Seyit Bey benim demek istediğim veri sayfsındaki boş satırlar değil.A ve b sayfasındaki boş satırların gizlenmesidir.

 

[Seyit Tiken]

Onu siz yaparsınız diye düşünmüştüm.

Yeni farkettim, boşluklarda formül var.

 

[ormann]

Size zahmet olmazsa yapabilirmisiniz?

 

[piqueteros]

Merhabalar. Benzer bir problemle bende karşı karşıyayım. Ama benim problemim daha çok şu şekilde. Çeşitli sutunları temsilen checkboxlar yarattım. Bir form açılıyor. Ve açılan formlarda . Uretici Kodu Goster, İskonto Oranını göster" şeklinde checkboxlar var. Bu checkboxları işaretleyip bir button ile onayladıktan sonra. satırları gizleyecem.

Problem: Aynı Userformu aktive etiğimde en son seçili checkboxları aynı şekilde görmek istiyorum.Fakat ne zaman userformu aktive etsem tüm checkboxlar unchecked olarak duruyor. oysa bir önceki durumda olduğu gibi görünmesini istiyorum. Bunu nasıl sağlayabilirim. İlgili kodlarım aşağıdaki gibidir.


ThisWorkbook'da tanımlı Global değişkenler.

Dim vSatinAlma As Boolean
Dim vMontajSure As Boolean
Dim vEkipmanKazanci As Boolean
Dim vEkIskontoKazanci As Boolean
Dim vUreticiKod As Boolean
Dim vIskontoGrubu As Boolean
Dim vListeFiyati As Boolean
Dim vDovizCinsi As Boolean
Dim vIskontoOrani As Boolean
Dim vBirimMalzemeIsciligi As Boolean
Dim vBirimMiktar As Boolean
Dim vMarka As Boolean

Private Sub Workbook_Open()
'CALL sheets("MALZEMELER").
''if activecell
vUreticiKod = True
vUreticiKod = False
vIskontoGrubu = False
vListeFiyati = False
vDovizCinsi = False
vIskontoOrani = False
vBirimMalzemeIsciligi = False
vBirimMiktar = False
vMarka = False
UserForm3.Show
End Sub

Userform3 aktive olduğunda

Private Sub UserForm_Activate()
If vUreticiKod = True Then
UserForm3.CheckBoxUrtcK.Value = 1
Else
UserForm3.CheckBoxUrtcK.Value = 0
End If

If vUreticiKod = True Then
UserForm3.CheckBoxIskG.Value = 1
Else
UserForm3.CheckBoxIskG.Value = 0
End If

If vListeFiyati = True Then
UserForm3.CheckBoxLstF.Value = True
Else
UserForm3.CheckBoxLstF.Value = False
End If

If vDovizCinsi = True Then
UserForm3.CheckBoxFytDC.Value = True
Else
UserForm3.CheckBoxFytDC.Value = False
End If

If vIskontoOrani = True Then
UserForm3.CheckBoxIskO.Value = True
Else
UserForm3.CheckBoxIskO.Value = False
End If

If vBirimMalzemeIsciligi = True Then
UserForm3.CheckBoxBrmMI.Value = True
Else
UserForm3.CheckBoxBrmMI.Value = False
End If

If vBirimMalzemeIsciligi = True Then
UserForm3.CheckBoxBrmMI.Value = True
Else
UserForm3.CheckBoxBrmMI.Value = False
End If

If vBirimMiktar = True Then
UserForm3.CheckBoxBrmM.Value = True
Else
UserForm3.CheckBoxBrmM.Value = False
End If

If vMarka = True Then
UserForm3.CheckBoxMrk.Value = True
Else
UserForm3.CheckBoxMrk.Value = False
End If

End Sub

Userform3 deki düğmeyle checkbox değerlerini global değişkenlere atıyorum

Private Sub CommandButton1_Click()

vUreticiKod = UserForm3.CheckBoxUrtcK.Value
vIskontoGrubu = UserForm3.CheckBoxIskG.Value
vListeFiyati = UserForm3.CheckBoxLstF.Value
vDovizCinsi = UserForm3.CheckBoxFytDC.Value
vIskontoOrani = UserForm3.CheckBoxIskO.Value
vBirimMalzemeIsciligi = UserForm3.CheckBoxBrmMI.Value
vBirimMiktar = UserForm3.CheckBoxBrmM.Value
vMarka = UserForm3.CheckBoxMrk.Value

Sheet7.Range("h2").Value = vUreticiKod
Sheet7.Range("h3").Value = vIskontoGrubu
Sheet7.Range("h4").Value = vListeFiyati
Sheet7.Range("h5").Value = vDovizCinsi
Sheet7.Range("h6").Value = vIskontoOrani
Sheet7.Range("h7").Value = vBirimMalzemeIsciligi
Sheet7.Range("h8").Value = vBirimMiktar
Sheet7.Range("h9").Value = vMarka


Unload Me

End Sub

Userform3 ü yeniden aktive ettiğimde en son seçili kalan checkboxlar seçili durmuyor. Nedeni nedir?