[Yardım]  Otomatik Satır Gizleme ve gösterme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Otomatik Satır Gizleme ve gösterme

İleti#1)  sametguler » 10 Şub 2019 14:51

Aşağıda belirtilen kodlar sayfada A1 - A20 arasında herhangi bir hücre temizlenirse, temizlenen o hücreye ait satır otomatik olarak gizlenmektedir.

Fakat içinde formül olanda var, formül olmayanda var. Formül olan hücreler sonucu 0 (sıfır) yada "" verince satır gizlenmiyor. Dolu olarak algılıyor.

Ayrıca hücrelerde formül olduğu için hücre değeri değişince yani <>"" or >0 otomatik satırı göstermesi gerekiyor.
Bu duruma göre nasıl bir düzenleme yapmalıyız.


Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160913
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
         
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
sametguler
Yeni Başlamış
 
Adı Soyadı:SAMET GÜLER
Kayıt: 19 Nis 2012 08:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#2)  sametguler » 10 Şub 2019 15:05

Yukarıda yazılı olan şartlara bağlı olarak [TESEKKÜR] butona bağlı olarak farklı kod yapabilirmiyiz?
Kullanıcı avatarı
sametguler
Yeni Başlamış
 
Adı Soyadı:SAMET GÜLER
Kayıt: 19 Nis 2012 08:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#3)  şahin » 10 Şub 2019 16:00

Ekte

Kitap1.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 29
İleti: 532
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#4)  sametguler » 10 Şub 2019 20:52

Aşağıdaki kod VERİ sayfasının Private Sub Worksheet_Change(ByVal Target As Range)
olayına yazılacaktır.

Başka sayfalar VERİ sayfasından veri çekiyor. VERİ sayfasına girilen verilere göre, diğer sayfalarda satır gizlemesi yapacak.
Bu kodu nasıl düzenleyebiliriz. Ayrıca birden fazla Sayfada satır gizlemesi için ( her sayfada farklı satır aralıkları gizlenecek ) uyarlamam gerekiyor.
Sizden ricam PUANTAJ, TOPLUBORDROMAAŞ, TOPLUBORDROTEDİYE sayfalarına uygulanacak. Yardımcı olacak hocam sayfalardaki satır aralıklarını rastgele yazabilir.
Ben kendi çalışmama uyarlarım. Dosya boyutu büyük olduğu için eklemek istemedim. Saygılarımla. Şimdiden teşekkür ederim.


Kod: Tümünü seç
Sub YuvarlatılmışDikdörtgen1_Tıklat()
Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Or xRg.Value = 0 Then
                xRg.EntireRow.Hidden = True
         
            ElseIf xRg.Value <> "" Or xRg.Value > 0 Then
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
sametguler
Yeni Başlamış
 
Adı Soyadı:SAMET GÜLER
Kayıt: 19 Nis 2012 08:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#5)  sametguler » 14 Şub 2019 20:44

Puantaj sayfasındaki butona basınca sadece ilk sırada yazılı PUANTAJ sayfasını gizliyor. Diğer sayfalarda işe yaramıyor.

Buton ile belirtilen aralıklar gizlenirken, aynı zamanda;
PUANTAJ sayfasındaki A19:AU218 aralığındaki boş olan sütunlar ve
TOPLU BORDRO MAAŞ sayfasındaki A18:BZ217 aralığındaki boş olan sütunlar ve
TOPLU BORDRO TEDİYE sayfasındaki A18:BZ217 aralığındaki boş olan sütunları da gizlemek istiyorum. Mümkün mü acaba?
Teşekkür ederim şimdiden...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sametguler
Yeni Başlamış
 
Adı Soyadı:SAMET GÜLER
Kayıt: 19 Nis 2012 08:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#6)  sametguler » 22 Şub 2019 20:23

Konu Günceldir.
Kullanıcı avatarı
sametguler
Yeni Başlamış
 
Adı Soyadı:SAMET GÜLER
Kayıt: 19 Nis 2012 08:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#7)  Kasnic » 22 Şub 2019 20:37

Her sayfa için referans olarak bir satır belirleyiniz örneğin A1:BZ1 gibi. Sonra aşağıdaki kodu deneyiniz.
Kod: Tümünü seç
Sub Gizle()
Range("A1:BZ1").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub
Kullanıcı avatarı
Kasnic
Siteye Alışmış
 
Kayıt: 19 Nis 2018 15:39
Meslek: Satınalma
Yaş: 30
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#8)  Kasnic » 23 Şub 2019 08:30

Samet bey, yeni farkettim formullü hücreler gizlenmiyor demişsiniz. Bunun için yine bir referans aralığı geçiyoruz örneğin 19 uncu satırdaki sütunlar gibi. Yalnız burada hücre değerini ben boş olarak ayarladım. Sizde formüllerinizi eğer sıfır ise boş olarak ayarlarsanız sorun kalmaz.
Kod: Tümünü seç
Sub sutun_gizleme()
Dim a As Integer
Dim gk As Integer

On Error Resume Next
gk = Cells(19, 256).End(3).Column
For a = 1 To gk
If Cells(19, a) <> "" Then
Columns(a).Hidden = False
Else
Columns(a).Hidden = True
End If
Next a
End Sub

Sub goster_sutun()
Columns.Hidden = False
End Sub
Kullanıcı avatarı
Kasnic
Siteye Alışmış
 
Kayıt: 19 Nis 2018 15:39
Meslek: Satınalma
Yaş: 30
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe