Boş olan hücrenin bulunduğu satır ve sütunu gizleme

[buggsbunny]

Resimdeki tabloya ait verileri kaynağı pivot tablo olan yerden formülle bu tabloya formülle çekiyorum. istediğim şey toplam satırında boş olan hücrelerin olduğu sütunların ve 18 ocak-19 ocak...31 ocağa kadar olan satırların değer yoksa otomatik gizlemesini istiyorum nasıl yapabilirim?

http://s6.dosya.tc/server5/u5kysd/excel.xlsx.html dosya bu adreste

 

[sametozyavuz]

böyle basit bir makro var elimde
belki size fikir verebilir.

Sub Makro1()
If Range("a1").Value = "" And Range("a2").Value = "" And Range("a3").Value = "" Then
    Rows("1:3").EntireRow.Hidden = True
    Else
    Exit Sub
    End If
End Sub

gizlenmiş satırları göstermek için de

Sub Makro2()
Rows("1:65536").EntireRow.Hidden = False
End Sub

 

[Ömer BARAN]

Resimdeki tabloya ait verileri kaynağı pivot tablo olan yerden formülle bu tabloya formülle çekiyorum. istediğim şey toplam satırında boş olan hücrelerin olduğu sütunların ve 18 ocak-19 ocak...31 ocağa kadar olan satırların değer yoksa otomatik gizlemesini istiyorum nasıl yapabilirim?

Merhaba.
TOPLAM satırı derken kast ettiğiniz satırın 101'inci satır, gizleme/gösterme işlemine tabi tutulacak sütunlarının ise F-AZ sütun aralığı olduğunu sanıyorum.
Aşağıdaki kod'u ilgili sayfanın kod bölümüne yapıştırın.
(Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki boş alana)
Kod'u sayfaya ekleyeceğiniz bir şekil/düğme/metin kutusuyla ilişkilendirip, bu şekil/düğme/metin kutusuna fareyle tıklayın.

[B]Sub GİZLE_GÖSTER_BRN()[/B]
Columns("6:47").EntireColumn.Hidden = False
For sütun = [COLOR="blue"][B]6[/B][/COLOR] To [B][COLOR="blue"]47[/COLOR][/B]
If Cells([B][COLOR="Red"]101[/COLOR][/B], sütun) <> "" Then GoTo 10
    Columns(sütun).EntireColumn.Hidden = True
10: Next
[B]End Sub[/B]

 

[buggsbunny]

Merhaba.
TOPLAM satırı derken kast ettiğiniz satırın 101'inci satır, gizleme/gösterme işlemine tabi tutulacak sütunlarının ise F-AZ sütun aralığı olduğunu sanıyorum.
Aşağıdaki kod'u ilgili sayfanın kod bölümüne yapıştırın.
(Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki boş alana)
Kod'u sayfaya ekleyeceğiniz bir şekil/düğme/metin kutusuyla ilişkilendirip, bu şekil/düğme/metin kutusuna fareyle tıklayın.

[B]Sub GİZLE_GÖSTER_BRN()[/B]
Columns("6:47").EntireColumn.Hidden = False
For sütun = [COLOR="blue"][B]6[/B][/COLOR] To [B][COLOR="blue"]47[/COLOR][/B]
If Cells([B][COLOR="Red"]101[/COLOR][/B], sütun) <> "" Then GoTo 10
    Columns(sütun).EntireColumn.Hidden = True
10: Next
[B]End Sub[/B]

Öncelikle ilginize teşekkürler. bunu denedim ancak olmadı hata veriyor. 101. satırda boş olan hücrelerde sıfır yazıyor ancak ben onları gizledim bu yüzden olabilir mi? birde f-ax arasındaki 101.satırdaki değerler sıfırsa o sütunların gizlenmesini istiyorum ayrıca 5-97 satır arasında c sütununda 3 lü grupların 3 ü birden sıfırsa onlarında gizlenmesini istiyorum. ama önceliğim ilk bahsettiğim konu

 

[buggsbunny]

böyle basit bir makro var elimde
belki size fikir verebilir.

Sub Makro1()
If Range("a1").Value = "" And Range("a2").Value = "" And Range("a3").Value = "" Then
    Rows("1:3").EntireRow.Hidden = True
    Else
    Exit Sub
    End If
End Sub

gizlenmiş satırları göstermek için de

Sub Makro2()
Rows("1:65536").EntireRow.Hidden = False
End Sub

ilginiz için teşekkürler fikir verse bile kodlardan çok anlamıyorum hazır kodun üzerinde biraz oynamalar yapabiliyorum

 

[Ömer BARAN]

Merhabalar.
Örnek belgeniz olmadan konu açtığınızda; destek verecek üyeden aslında sorunuzla ilgili destek istemiş olmuyorsunuz.
Konuyla ilgilenen kişi önce benzer özelliklerde bir belge hazırlamak ve ardından çözüm olayıyla ilgilenmek durumunda.
Böyle olunca da insanın konuya bakma isteğinde ister istemez azalma oluyor.
Neticede formül veya kod ezberden yazılmıyor ve test etmeden de cevap yazılmayacağı için destek verecek kişiden fazla şey istenmiş oluyor.
Altta, gönderdiğim cevap metninin altındaki uyarıları okuyup ona göre bir örnek belge hazırlarsanız tekrar bakayım.

 

[Ömer BARAN]

Tekrar merhaba.
Bir de aşağıdaki kod ile dener misiniz?

[B]Sub GİZLE_GÖSTER_BRN()[/B]
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Rows("5:97").EntireRow.Hidden = False '***SATIRLAR
For brnsat = 5 To 97 Step 3
    If WorksheetFunction.Sum(Range(Cells(brnsat, 3), Cells(brnsat + 2, 5))) > 0 Then GoTo 10
        Rows(brnsat & ":" & brnsat + 2).EntireRow.Hidden = True
10: Next
Columns([B][COLOR="Red"]"F:AX"[/COLOR][/B]).EntireColumn.Hidden = False '***SÜTUNLAR
For brnsut = 6 To 47
    If Cells(101, brnsut) > 0 Then GoTo 20
        Columns(brnsut).EntireColumn.Hidden = True
20: Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
[B]End Sub[/B]

 

[buggsbunny]

Merhabalar.
Örnek belgeniz olmadan konu açtığınızda; destek verecek üyeden aslında sorunuzla ilgili destek istemiş olmuyorsunuz.
Konuyla ilgilenen kişi önce benzer özelliklerde bir belge hazırlamak ve ardından çözüm olayıyla ilgilenmek durumunda.
Böyle olunca da insanın konuya bakma isteğinde ister istemez azalma oluyor.
Neticede formül veya kod ezberden yazılmıyor ve test etmeden de cevap yazılmayacağı için destek verecek kişiden fazla şey istenmiş oluyor.
Altta, gönderdiğim cevap metninin altındaki uyarıları okuyup ona göre bir örnek belge hazırlarsanız tekrar bakayım.

teşekkür ederim tekrardan. konunun başına şimdi ekledim dosyayı. yazdığınız kodu denedim yine hata verdi

 

[Ömer BARAN]

Bir önceki cevabımda yar alan KOD'da kırmızı olarak renklendirdiğim kısım değişti.
Şu anki haliyle sorun yok.

 

[buggsbunny]

Bir önceki cevabımda yar alan KOD'da kırmızı olarak renklendirdiğim kısım değişti.
Şu anki haliyle sorun yok.

Öncelikle çok teşekkürler kod çalışıyor, ancak şöle bir sıkıntı var. deneme amaçlı veritabanıma 20 ocak tarihli veri giriyorum. kapatıp açıyorum excel dosyasını yeniden kod çalıştır demezsem 20 ocak kısmı açılmıyor.

 

[Ömer BARAN]

Otomatik çalışmasını istiyorsunuz anlaşılan.
Belgede elle veri yazılan bir satır/sütun/hücre varsa o alana birşey yazıldığında otomatik çalıştırılabilir
ya da sayfa aktif olduğunda otomatik çalışması sağlanabilir.
Gerçek belgenizin çalışma biçimi TAM OLARAK nasıl ise otomatik çalışma işlemini ona göre düşünmek lazım.

 

[buggsbunny]

Otomatik çalışmasını istiyorsunuz anlaşılan.
Belgede elle veri yazılan bir satır/sütun/hücre varsa o alana birşey yazıldığında otomatik çalıştırılabilir
ya da sayfa aktif olduğunda otomatik çalışması sağlanabilir.
Gerçek belgenizin çalışma biçimi TAM OLARAK nasıl ise otomatik çalışma işlemini ona göre düşünmek lazım.

peki otomatik yerine bu kodu butona atayamaz mıyız? butona attım bunu olmadı

 

[Ömer BARAN]

Merhaba.
Dosyanız ekte.