[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 16: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 10:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#2)  sametguler » 10 Şub 2019 17: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 10:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#3)  şahin » 10 Şub 2019 18: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 23:24
Meslek: memur
Yaş: 29
İleti: 525
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Otomatik Satır Gizleme ve gösterme

İleti#4)  sametguler » 10 Şub 2019 22: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 10:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 96
 
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 22: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 10:52
Konum: TÜRKİYE
Meslek: İŞÇİ
Yaş: 32
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAMSUN


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Bing[Bot], Google [Bot] ve 2 misafir

cron
Bumerang - Yazarkafe