Koşullu Satır ve Sütun Gizleme Konusunda Yardım

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

Koşullu Satır ve Sütun Gizleme Konusunda Yardım

İleti#1)  alp_platin » 11 Tem 2019 15:41

Öncelikle herkese kolay gelsin. İyi günler. VBA konusunda acemiyim forumda bulduğum bir kodda değişiklik yaptım ve belirli koşula göre satırları gizledim. Ama aynı durumu sütunlara uygulayamadım. Yardımcı olursanız sevinirim. Şimdiden teşekkürler.

A Sütununda B yazan satırları gizliyor.
Kod: Tümünü seç
Sub satırgizle()
    Dim i As Integer
    Application.ScreenUpdating = False
    With ActiveSheet
    For x = 2 To .Range("A1048576").End(3).Row
        .Rows(x).EntireRow.Hidden = False
        If .Cells(x, "A").Value = "B" And 1 Then
            .Rows(x).EntireRow.Hidden = True
        End If
    Next x
    End With
    Application.ScreenUpdating = True
End Sub


Buda A satırında B yazan sütunları gizlemesi için ama alakasız bir gizleme yapıyor. Düzeltmek istediğim makro bu.
Ama iki makroyu da daha hızlı ve stabil bir şekilde kullanabileceğim fikirleriniz varsa fikirlerinize açığım. [yummy] [yummy]

Kod: Tümünü seç
Sub sutungizle()
    Dim i As Integer
    Application.ScreenUpdating = False
    With ActiveSheet
    For x = 1 To .Range("XFD1").End(3).Column
        .Columns(x).EntireColumn.Hidden = False
        If .Cells(x, "A").Value = "B" And 1 Then
            .Columns(x).EntireColumn.Hidden = True
        End If
    Next x
    End With
    Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
alp_platin
 
Adı Soyadı:alp platin
Kayıt: 23 Eyl 2010 13:25
Konum: İSTANBUL
Meslek: MUHASEBE
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist/aksaray

Cevap: Koşullu Satır ve Sütun Gizleme Konusunda Yardım

İleti#2)  Ali ÖZ » 11 Tem 2019 16:19

Kod: Tümünü seç
Application.ScreenUpdating = False
    For x = 1 To ActiveSheet.Range("XFD1").End(3).Column
        If ActiveSheet.Cells(1, x).Value = "B" Then ActiveSheet.Columns(x).EntireColumn.Hidden = True
    Next
Application.ScreenUpdating = True
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9888
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Koşullu Satır ve Sütun Gizleme Konusunda Yardım

İleti#3)  alp_platin » 11 Tem 2019 16:28

Çok teşekkür ederim.
Kullanıcı avatarı
alp_platin
 
Adı Soyadı:alp platin
Kayıt: 23 Eyl 2010 13:25
Konum: İSTANBUL
Meslek: MUHASEBE
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist/aksaray

Cevap: Cevap: Koşullu Satır ve Sütun Gizleme Konusunda Yardı

İleti#4)  alp_platin » 12 Tem 2019 08:40

Ali ÖZ yazdı:
Kod: Tümünü seç
Application.ScreenUpdating = False
    For x = 1 To ActiveSheet.Range("XFD1").End(3).Column
        If ActiveSheet.Cells(1, x).Value = "B" Then ActiveSheet.Columns(x).EntireColumn.Hidden = True
    Next
Application.ScreenUpdating = True


Ali Bey,

Benim eklediğim satır için olan makro çalışmıyor 1-2 satır gizleyip bırakıyor.
Sizin eklediğiniz sütun makrosunu aşağıdaki şekilde değiştirdim oda 1 satır gizleyip duruyor. Onuda beceremedim. :roll:
Yardımcı olabilirseniz çok sevinirim.

Kod: Tümünü seç
Sub SATIRGIZLE()
    Dim i As Integer
Application.ScreenUpdating = False
    For x = 1 To ActiveSheet.Range("A1048576").End(3).Row
        If ActiveSheet.Cells(x, "A").Value = "G" Then ActiveSheet.Rows(x).EntireRow.Hidden = True
    Next
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
alp_platin
 
Adı Soyadı:alp platin
Kayıt: 23 Eyl 2010 13:25
Konum: İSTANBUL
Meslek: MUHASEBE
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist/aksaray

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

Cevap: Koşullu Satır ve Sütun Gizleme Konusunda Yardım

İleti#5)  alp_platin » 12 Tem 2019 09:27

Son durum şu tablonun son satırına kadar seçim yaptığım zaman işlemi tamamlayamıyor.
Ama 2-3 bin gibi seçim yaparsam çalışıyor ama çok yavaş hızlandırma şansımız var mı?
Kullanıcı avatarı
alp_platin
 
Adı Soyadı:alp platin
Kayıt: 23 Eyl 2010 13:25
Konum: İSTANBUL
Meslek: MUHASEBE
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist/aksaray

Cevap: Koşullu Satır ve Sütun Gizleme Konusunda Yardım

İleti#6)  Ali ÖZ » 12 Tem 2019 09:28

Merhaba,
Tam olarak yapmak istediğiniz şey nedir ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9888
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Koşullu Satır ve Sütun Gizleme Konusunda Yardım

İleti#7)  alp_platin » 12 Tem 2019 10:53

Tam olarak yapmak istediğim raporumun içinde sürekli kullanmadığım alanları gizleyip açmak. Ama çalışma yaparken bu alanları topluca açmak istiyorum. Sunum ve anlatım yapmadan öncede tek tıkla kapatmak.
Kullanıcı avatarı
alp_platin
 
Adı Soyadı:alp platin
Kayıt: 23 Eyl 2010 13:25
Konum: İSTANBUL
Meslek: MUHASEBE
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist/aksaray

Cevap: Koşullu Satır ve Sütun Gizleme Konusunda Yardım

İleti#8)  alp_platin » 12 Tem 2019 12:30

Ali Bey
hızlandırılacak bir şey yapılmıyorsa en azından sütun için yazdığınız kodu satıra çevirebilir misiniz?
Kullanıcı avatarı
alp_platin
 
Adı Soyadı:alp platin
Kayıt: 23 Eyl 2010 13:25
Konum: İSTANBUL
Meslek: MUHASEBE
Yaş: 37
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist/aksaray


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe