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

[serdarinho43]

satır gizleyle ilgili yazıları okudum dosyaları indirdim fakat bir türlü istediğimi yapamadım elimde maaş bordrosu programı var istediğim şu eğer K15 hücresindeki değer (bu değer başka bir sayfadan formül aracılığıyla geliyor) 0 veya #değer! hatasını veriyorsa satırları 6. satırdan başlayarak 17. satıra kadar gizlesin eğer rakam 0 dan büyük bir rakam ise bu aralığı göstersin

sevgili arkadaşlar bunu yapabilirmiyiz???

 

[serdarinho43]

isteyen arkadaşlar için dosya ekte

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Calculate()
If [K15] = 0 Then
[a6:a17].EntireRow.Hidden = True
End If
If [K15] > 0 Then
[a6:a17].EntireRow.Hidden = 0
End If
End Sub

 

[serdarinho43]

bu kod olmadı :kafa: :kafa: :kafa: (bordro kod sayfasına yazdım)

 

[Levent Menteşoğlu]

Aşağıdaki kodu bir normal modüle kopyalayın ve Bordro sayfasında oluşturacağınız bir butona bağlayın.

Sub gizle()
For a = 15 To [k65536].End(3).Row Step 12
If IsError(Cells(a, "k")) = True Then Rows(a - 9 & ":" & a + 2).EntireRow.Hidden = True
Next
End Sub

 

[serdarinho43]

ama ben o dosyayı kapatıp sadece formlarla çalışacağım o zaman butona ulaşamam Ki

 

[serdarinho43]

ayrıca kodları her kısım için ayrı ayrı yapsak daha güzel olmaz mı? böylelikle sayfa aralarını daha rahat ayarlayabilirz.

 

[serdarinho43]

Bunu yapamaz mıyız???

 

[Orion1]

ama ben o dosyayı kapatıp sadece formlarla çalışacağım o zaman butona ulaşamam Ki

O zaman Userform'a bir buton koyun,kodları atayın.

 

[serdarinho43]

Diyelimki her gizle göster için 2 buton koydum örneğin bu kodda sayfayı belirtmemiş userformdaki butona "bordro" sayfasındaki satırları silmesini nasıl sağlayabilirim.

Private Sub Worksheet_Calculate()
If [K15] = 0 Then
[a6:a17].EntireRow.Hidden = True
End If
If [K15] > 0 Then
[a6:a17].EntireRow.Hidden = 0
End If
End Sub

 

[Orion1]

Bu kodlar hangi sayfa içinde yazıldıysa o sayfaya aittir.
Yani kodlar o sayfada çalışacaktır.
Başka bir sayfadada kullanmak istiyorsanız.Sayfa sekmesine sağ klik yapın Kod görüntüleyi seçin kodları yapıştırın.

 

[serdarinho43]

yok ben anlatamadım şimdi şöyle ben sadece formlarla çalışıyorum ya düğmeyi userforma ekliycem kodu da düğmeye eklediğim zaman kod o sayfada satırı gizlemez. eklediğim düğmeyle "bordro" sayfasındaki verileri gizletmek istiyorum

 

[Seyit Tiken]

Örnek kodu kendinize uygulayın.
Silmek İçin:

Private Sub CommandButton1_Click()
[bordro!a1:a20] = vbNullString
End Sub

Gizlemek İçin:

Private Sub CommandButton1_Click()
[bordro!a2:a20].EntireRow.Hidden = 1
End Sub

 

[serdarinho43]

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
[bordro!a1:a20] = vbNullString
End Sub

peki bu kodu bu kodu nereye yazmalıyım
Private Sub Worksheet_Calculate()
If [K15] = 0 Then
[a6:a17].EntireRow.Hidden = True
End If
If [K15] > 0 Then
[a6:a17].EntireRow.Hidden = 0
End If
End Sub

peki bu kodu bu kodu nereye yazmalıyım?

 

[serdarinho43]

Otomatik olarak açılan bir userfordaki onay kutusu işaretliyse "bordro" sayfasındaki A6 ile A17 satırları (A6 ve A17 dahil) arasındaki satırlar gizlensin. bunu nasıl yapabilirm

 

[serdarinho43]

nasıl yapabilirim???

 

[Seyit Tiken]

Private Sub CheckBox1_Click()
If Me.CheckBox1 Then
[bordro!a6:a17].EntireRow.Hidden = 1
Else
[bordro!a6:a17].EntireRow.Hidden = 0
End If
End Sub

 

[serdarinho43]

Arkadaşlar oluyor ama istesğim olmuyor dosyayı ekliyorum şifre serdar kullanıcı serdar

 

[serdarinho43]

istediğim :"personel kayıt formunu açıp herhangi personeli işaretlemediğimde sadece o personelin bordrosu gizlensin" daha sonra o personeli tekrar aradığımda checkbox u işaretlediğimde o kısım gözüksün. bu işlem her personel için olacak ve her personelin verisi kendi bordro satırlarını gizleyip göstersin

 

[serdarinho43]

arkadaşlar yok mu yardım edecek birisi???