gizli satırları göster makrosu

[Emir Hüseyin Çoban]

merhaba arkadaşlar,
excelde 2 çalışma sayfası arasında ="hücre" formülü ile sayfa1 den 2 ye veri gönderiyorum.
ancak sayfa 2 de satırlar gizli olmalı, benim sayfa 1 de "tutar" sütununa sıfırdan büyük veri girdiğimde sayfa2 de ilgili satırlar açılmalı

örnek bir dosya konuya ekledim
yardım ve fikirlerinizi bekliyorum.

 

[hamitcan]

Sayfa2'nin kod kısmına ekleyin.

Private Sub Worksheet_Activate()
    Rows("6:25").Hidden = True
    For i = 52 To 71
        If Sayfa1.Cells(i, "j") <> 0 Then
            Rows(i - 46).Hidden = False
        End If
    Next
End Sub

 

[Emir Hüseyin Çoban]

            Rows(i - 46).Hidden = False

kodunun burdaki anlamı nedir?

 

[hamitcan]

Döngü değerine göre iki sayfanın satırlarını eşitleyerek satırları açma.

 

[Emir Hüseyin Çoban]

tşkler hamitcan, kendi tabloma uyguluyorum

 

[Emir Hüseyin Çoban]

sayfa2 ye tekrar gitmeden işlemi gerçekleştirmiyor.
sayfa1 de işlemi yaptığımız anda sayfa2de de işlemi gerçekleştirmesini sağlayabilirmiyiz veya bir buton ekleyip sayfa2yi güncelleme işlemi yaptırabilirmiyiz

 

[hamitcan]

Bir buton yardımıyla...

Private Sub CommandButton1_Click()
 Rows("6:25").Hidden = True
    For i = 52 To 71
        If Sayfa1.Cells(i, "j") <> 0 Then
            Rows(i - 46).Hidden = False
        End If
    Next
End Sub

 

[Emir Hüseyin Çoban]

kodu OptionButton2 ye eklemem ve butonu işaretlediğimde güncelleme yapması mümkün mü,

tablonun çalışma sisteminde 3 tane OptionButton var, 2. butonu işaretleyip yazdır butonunu tıklayınca listeyi yazdırıyor, 2. OptionButton u işaretlediğimde güncelleştirme yaptırmalı

 

[hamitcan]

Private Sub OptionButton1_Click()
If OptionButton1 Then
Rows("6:25").Hidden = True
    For i = 52 To 71
        If Sayfa1.Cells(i, "j") <> 0 Then
            Rows(i - 46).Hidden = False
        End If
    Next
End If
End Sub

 

[Emir Hüseyin Çoban]

tabloma uygutlamaya çalıştım ancak yapamadım galiba,
tabloyu konuya ekliyorum bi bakmanız mümkün mü

 

[hamitcan]

Sub SatirlariGizle()
    Sayfa4.Rows("11:30").Hidden = True
    For i = 52 To 71
        If Sayfa2.Cells(i, "l") <> 0 Then
           Sayfa4.Rows(i - 41).Hidden = False
        End If
    Next
End Sub

 

[Emir Hüseyin Çoban]

OK. butonuna worde aktar makrosu tanımlı, satır gizle makrosunu OptionButton2 butonuna tanımlayabilirmiyiz veya OK. butonuna birden fazla makro tanımlayabilmemiz münkün mü

 

[hamitcan]

Sub SatirlariGizle()
If Sayfa2.OptionButton2 Then
    Sayfa4.Rows("11:30").Hidden = True
    For i = 52 To 71
        If Sayfa2.Cells(i, "l") <> 0 Then
           Sayfa4.Rows(i - 41).Hidden = False
        End If
    Next
End If
End Sub

şeklinde deneyin.

 

[Emir Hüseyin Çoban]

tşkler syn hamitcan, sorunsuz olarak çalışıyor.