BoŞ Satir Gİzle GÖster

[Ercan_ÇELİKOĞLU]

Ekteki örnek dosyamda
yolluk sayfasındaki boş satırları yani B8 ile B24 arasında içeriği boş olan satırları 2 buton atayarak göstermek ve gizlemek istiyorum forumda arama yaptım ancak konular içerisinde bana uyan makroyu bulamadım yardımcı olursanız sevinirim not sayfalar korumasızdır. saygılarımla

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

 

[Ercan_ÇELİKOĞLU]

Galİba YanliŞ AnlaŞildi

Merhaba.
Ekli dosyayı inceleyiniz.

Sayın sezar verdiğiniz örnekte tüm satırı siliyor oysaki ben sadece içeriği boş olan hücreler gizlensin ve gösterilsin istiyorum yani yolluk sayfasında B8 ile b24 arasında sadece boş olanlar gizlenecek ve gösterilecek saygılarımla

 

[Orion1]

Merhaba.
Ters bir durum var.
O şekilde düzenleme yaptım.Fakat içersinde formül olan boş hücreleride İçinde bir değer varmış gibi algılıyor.
Ayrıca J8 den J24 'e kadar yazmış olduğunuz topla formülü sonucu hücreler boş olduğunda 0 değerini vermesi gerekiyorken hücre içersinde boşluk gözüküyor.
Yeni düzenlediğim gizleme aşağıdaki kodlarda olduğu gibidir.

Sub gizle()
Dim sat As Byte, sut As Byte
Sheets("Yolluk").Select
For sat = 8 To 24
    sayac = 0
    For sut = 2 To 12
        If Cells(sat, sut).Value <> "" Then
            sayac = 1
            Exit For
            Else
            sayac = 0
        End If
    Next
    If sayac = 0 Then
        Rows(sat).Hidden = True
    End If
Next
End Sub

Gösterme kodları aşaığıdaki gibidir.

Sub goster()
Dim sat As Byte
Sheets("Yolluk").Select
    For sat = 8 To 24
        Rows(sat).Hidden = False
    Next
End Sub

 

[Ercan_ÇELİKOĞLU]

Olmuyor üstadım çalışmıyor

verdiğiniz örnek makrolar çalışmıyor

 

[Orion1]

Merhaba.

Ters bir durum var.
O şekilde düzenleme yaptım.Fakat içersinde formül olan boş hücreleride İçinde bir değer varmış gibi algılıyor

.
Yukarıdaki önceki mesajımda söylediğim nedenle çalışmıyor.

 

[Ercan_ÇELİKOĞLU]

bunun bir çözümü yokmu?

çözümü yokmu üstadım

 

[Seyit Tiken]

Bu şekilde deneyin.

Sub Gizle()
[B:B].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
End Sub

Sub Göster()
[B:B].Rows.Hidden = 0
End Sub

 

[Ercan_ÇELİKOĞLU]

olmuyor

Bu şekilde deneyin.

Sub Gizle()
[B:B].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
End Sub

Sub Göster()
[B:B].Rows.Hidden = 0
End Sub

bu da olmadı İmdaaaaaaaaaaaaaaaat.

 

[Seyit Tiken]

Yolluk Bildirimdeki boş satırları gizlemek için değil mi? Kodu kendinize uyarlarsaydınız olurdu bence. Aşağıdaki gibi deneyin.

Sub Gizle()
[B8:B24].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
End Sub

Sub Göster()
[B8:B24].Rows.Hidden = 0
End Sub
__________________

 

[Ercan_ÇELİKOĞLU]

Çok teşekkürler

Yolluk Bildirimdeki boş satırları gizlemek için değil mi? Kodu kendinize uyarlarsaydınız olurdu bence. Aşağıdaki gibi deneyin.

Sub Gizle()
[B8:B24].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
End Sub

Sub Göster()
[B8:B24].Rows.Hidden = 0
End Sub
__________________

Çok ama çok teşekkürler oldu hemde çok iyi oldu ilgi ve alaka gösteren tüm üyelere teşekkürler.

 

[Ercan_ÇELİKOĞLU]

Bana sevinmek haram

Sayfayı korumaya alınca kod çalışmıyor
Sub Gizle()
[B8:B22].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
End Sub

Sub Göster()
[B8:B22].Rows.Hidden = 0
End Sub

Bu kodları uyguluyorum sayfa korumasızken çalışıyor sayfayı korumaya aldığımda
Microsoft Visual Basic X

X 400
tamam yardım
şeklinde bir kutu çıkıyor

valla bana sevinmek haram

 

[Seyit Tiken]

Kodlarınızın başına şu kodu yazın : ActiveSheet.Unprotect
Sonda da : ActiveSheet.Protect

Örnek :
Sub Göster()
ActiveSheet.Unprotect
Kodlarınız
ActiveSheet.Protect
End Sub

 

[excelman]

Sub Gizle()
ActiveSheet.UnProtect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
[B8:B22].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
ActiveSheet.Protect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
End Sub

Sub Göster()
ActiveSheet.UnProtect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
[B8:B22].Rows.Hidden = 0
ActiveSheet.Protect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
End Sub

 

[Ercan_ÇELİKOĞLU]

saygılar oldu

Sub Gizle()
ActiveSheet.UnProtect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
[B8:B22].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
ActiveSheet.Protect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
End Sub

Sub Göster()
ActiveSheet.UnProtect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
[B8:B22].Rows.Hidden = 0
ActiveSheet.Protect ("BURAYA SAYFA ŞİFRENİZİ YAZINIZ")
End Sub

evet bu sefer oldu saygılarımla.

 

[yasso38]

Merhaba

Sub Gizle()
[j1:j7].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
[b11:b13].SpecialCells(xlCellTypeBlanks).Rows.Hidden = 1
End Sub

Sub Göster()
[j1:j7].Rows.Hidden = 0
[b11:b13].Rows.Hidden = 0
End Sub

Yukarıdaki kodları çalışma sayfama uyguladım. Yukarıdaki belirttiğim hücreler içinde formüller var ( =EĞER(J1;"TA";" "), =J2 vb.) neticede sonuçları sıfır veya değer yok. Bu formülleri nasıl göz ardı ettiririz, satırın gizlenmesi açısından.

Kolay gelsin.

 

[asi_kartal]

ilkönce böyle bir paylaşım yaptığınız için teşekkür ederim. bu kod mod işinde yeniyim. yukarda paylaştığınız kodu gereken yerlere yapıştırdım. çalıştırdım sorunsuz çalışıyor sayfayı kapatıp açınca kod mod kalmıyor ne yapmalıyım.