• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru onay kutusu ile diğer sayfada satır gizleme

yasarcan

yasarcan

Altın Üye
Katılım
30 Nisan 2016
Mesajlar
100
Excel Vers. ve Dili
2007
Merhabalar

"sayfa1" içerisinde yapabiliyorum "sayfa2" de yapamadım. Yardımcı olursanız sevinirim.
dosyayı paylaşıyorum.
eveti tıklayınca a konusu gizlenecek
hayırı tıklayınca b konusu gizlenecek
uygulanmaz tıklanınca ikiside gizlenecek.
 

Ekli dosyalar

Merhaba.
Evet, Hayır ve Uygulanamazdan sadece bir tanesi seçilebilir değil mi?
Yani ikisi yada üçü aynı anda seçili olma ihtimali yok değil mi?
 
dalgalikur' Alıntı:
Merhaba.
Evet, Hayır ve Uygulanamazdan sadece bir tanesi seçilebilir değil mi?
Yani ikisi yada üçü aynı anda seçili olma ihtimali yok değil mi?
Genişletmek için tıkla ...
evet bu konuyu çözdüğümde onun üzerinde çalışacaktım :)
her kutucuk ayrı ayrı işaretli olacak aynı anda ikisi yada üçü işaretli olmayacak.
teşekkür ederim
 
O zaman Activex OptionButton kullanmak daha doğru olur.
Bir de hepsini göster seçeneği ekledim. Eğer lazım değilse silersiniz.
Dosyanız ekte.
 

Ekli dosyalar

dalgalikur' Alıntı:
Rica ederim. Kolay gelsin.
Genişletmek için tıkla ...
Merhaba
Activex OptionButton yada form denetimi butonları kullandığımda 1500 adet ve yaklaşık 100 sayfaya girince excel çöküyor. Malesef iki yöntemdede boyut küçük olmasına rahmet ya çöküyor yada takılıyor.

her iki yöntem yerinde hücrelere x yazarak yapamazmıyım? Satır gizleme olayını.. teşekkürler
 
1500 adet OptionButton ve 100 tane sayfa mı var?

Tam olarak ne yapmak istediğinizi açıklayın, özel değilse orijinal dosyayı ekleyin, özel bilgiler varsa silebilir yada değiştirebilirsiniz.
Kendi düzenlediğiniz kodları da ekleyin.
 
dalgalikur' Alıntı:
1500 adet OptionButton ve 100 tane sayfa mı var?

Tam olarak ne yapmak istediğinizi açıklayın, özel değilse orijinal dosyayı ekleyin, özel bilgiler varsa silebilir yada değiştirebilirsiniz.
Kendi düzenlediğiniz kodları da ekleyin.
Genişletmek için tıkla ...

Örneğin içinde ne yapmaya çalıştığımı anlattım.
 

Ekli dosyalar

excel o sayfa adedinde onay butonunu kaldırmadı mecburen x yazarak çözmeye çalışacağım
 
Son düzenleme:
Örnekteki gibi düzenledim. Ancak stabil çalışmıyor

Yardımcı olursanız sevinirim teşekkürler.
 

Ekli dosyalar

  • K1.xlsm
    K1.xlsm
    39.2 KB · Görüntüleme: 3
yasarcan' Alıntı:
Bende koşullu biçimlendirme + filtre ederek uğraşıyodum mükemmel olmuş.
saygılar hocam
kolay gelsin
Genişletmek için tıkla ...
Merhaba aşağıdaki koddan hariç sayfaları çıkarsak nasıl olur? işaretlediğim farklı sayfalardan benim istediğim sıraya göre gizlenmesini sağlıyorum. ancak hedef sayfa tek iken veri gönderen sayfa yaklaşık 3000 e çıkınca hariç sayfalar bölümüne sığmadı karakter sınırı varmış galiba.

kısaca sadece rapor da çalışacak. kodları deneme yanılmayla silip hedef sayfayı girip denediğimde excel kitlendi yapamadım :)
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim HaricSayfalar
    Dim HaricBak As Integer
    Dim Haric As Boolean
    Dim syf As Worksheet
    Dim Temizle As Boolean
    HaricSayfalar = Array("Sayfa4", "VERİ") 'Buraya hariç bırakmak istediğiniz sayfa adlarını aynı şekilde yazarak çoğaltabilirsiniz.
    Application.EnableEvents = False
    For Each syf In ThisWorkbook.Worksheets
        If Target.Text = "X" Then
            Cells(Target.Row, 3) = ""
            Cells(Target.Row, 4) = ""
            Cells(Target.Row, 5) = ""
            Cells(Target.Row, Target.Column) = "X"
        ElseIf Target.Text = "" Then
            Temizle = True
        End If
        Haric = False
        For HaricBak = 0 To UBound(HaricSayfalar)
            If syf.Name = HaricSayfalar(HaricBak) Then
                Haric = True
                Exit For
            End If
        Next
        If Haric = False Then
            If Not Intersect(Target, Range("C:E", "H:H")) Is Nothing Then
                Select Case Target.Column
                    Case 3 'Evet
                        syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = True
                        syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = False
                    Case 4 'Hayır
                        syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = False
                        syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = True
                    
                    Case 5 ' Uygulanamaz
                        syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = True
                        syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = True
                    
                End Select
                
                If Temizle Then
                    syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = False
                    syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = False
                End If
            End If
        End If
    Next
    Application.EnableEvents = True
End Sub
 
Aşağıdaki kodları kullanın.


Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Sayfalar
    Dim DahilBak As Integer
    Dim Dahil As Boolean
    Dim syf As Worksheet
    Dim Temizle As Boolean
    Sayfalar = Array("RAPOR", "Sayfa1") 'Buraya dahil etmek istediğiniz sayfa adlarını aynı şekilde yazarak çoğaltabilirsiniz.
    Application.EnableEvents = False
    If Target.Text = "X" Then
        Cells(Target.Row, 3) = ""
        Cells(Target.Row, 4) = ""
        Cells(Target.Row, 5) = ""
        Cells(Target.Row, Target.Column) = "X"
    ElseIf Target.Text = "" Then
        Temizle = True
    End If
    For Each syf In ThisWorkbook.Worksheets

        Dahil = False
        For DahilBak = 0 To UBound(Sayfalar)
            If syf.Name = Sayfalar(DahilBak) Then
                Dahil = True
                Exit For
            End If
        Next
        If Dahil = True Then
            If Not Intersect(Target, Range("C:E", "H:H")) Is Nothing Then
                Select Case Target.Column
                    Case 3 'Evet
                        syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = True
                        syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = False
                    Case 4 'Hayır
                        syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = False
                        syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = True
                    
                    Case 5 ' Uygulanamaz
                        syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = True
                        syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = True
                    
                End Select
                
                If Temizle Then
                    syf.Rows((Target.Row * 2) + 7).EntireRow.Hidden = False
                    syf.Rows((Target.Row * 2) + 8).EntireRow.Hidden = False
                End If
            End If
        End If
    Next
    Application.EnableEvents = True
End Sub
 
Rica ederim. İyi çalımalar.
Allah hepimizden razı olsun.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst