userformdaki checkbox isaretiyle satır saklama ?

[cems]

Bu saatte kafa durdu ..

Ustadlar belki de cok basit ama ekteki dosyamda bir sayfadaki satırları
userforma yerlestirilmis (satırlardaki degisken adları capture ederek ceken isim alan )checkboxların birini ya da herhangi birkacını isaretleyip kapat'a basarak saklamak icin

Private Sub saklayici()

If UserForm1.Controls("CheckBox1" & X).Value = True Then
Sayfa1.Rows("32:32").Select
Selection.EntireRow.Hidden = True
End If

If UserForm1.Controls("CheckBox1" & X).Value = False Then
Sayfa1.Rows("32:32").Select
Selection.EntireRow.Hidden = False
End Sub

seklinde bir makro yapmaya calıstım ama nerde hata yapıyorsam runtime9 dan bi turlu sıyrılıp , ozetle "satır saklatamadım.Saklatamadıgım icin de sayfadan cıkarken hepsini tekrar actırmak icin makroya da egilemedim.Sayfadaki isimler ,baska sayfaların durumlarına gore degisiyor, sabit degil. Bu birinci problem oldu .İkincisi , aynı sekilde
sutun saklatıp yine sayfadan cıkarken actırmak da gerekiyor.
Sayfadan cıkaran commandbutton sayfanın uzerinde , satır sutun saklanarak yeniden sekillenerek basım aldıktan sonra bu cıkıs anında duzenin yine basa donmesi icin ne duzeltmem gerekiyor.

Eger onemli bi ayrıntı ise, checkbox adları uzerine attıgım labeller sayfadaki isimleri capture ediyor.

 

[isakarakus]

Sayfa1.Rows("32:32").Select

bu kullanım yanlış

Sheets("Sayfa1").Rows("32:32").Select

şeklinde kullanılmalı

 

[Seyit Tiken]

Bu şekilde bir kodu deneyin.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox1.Caption = "Satır Gizlendi"
[A15].Rows.Hidden = 1
Else
CheckBox1.Caption = "Satır Gösterildi"
[A15].Rows.Hidden = 0
End If
End Sub

 

[cems]

userformda checkbox isareti ile sayfada satır saklatma

Sayın Seyit Tiken

İkazlarınızla ortalık duzeldi ve ortaya istedigim gibi hareket eden bir userform islevi cıktı. Ornekte ;sayfa2 den sayfa1e kopya olarak gelen verilerden işe "baskı alırken"yaramayacakları cıkarmak icin bir userform ustunde checkboxlar var ve isaretli olup olmamasına gore de alt tuslar vasıtasıyla satır saklıyor. Sutun saklama da benzer sekilde duzenlenebilir ama bu formda sutun saklama yok .

Hem size tesekkur etmek istedim hem de biten calısmayı alta baglayıp isteyen arkadasın kullanımına acmak.

Cok sagolun