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

[yasarcan]

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.

 

[Muzaffer Ali]

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?

 

[yasarcan]

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?

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

 

[Muzaffer Ali]

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.

 

[yasarcan]

Teşekkür ederim elinize sağlık. Düşündüğümden iyi oldu.
Kolaygelsin.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[yasarcan]

Rica ederim. Kolay gelsin.

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

 

[Muzaffer Ali]

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.

 

[yasarcan]

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.

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

 

[yasarcan]

excel o sayfa adedinde onay butonunu kaldırmadı mecburen x yazarak çözmeye çalışacağım

 

[yasarcan]

Örnekteki gibi düzenledim. Ancak stabil çalışmıyor

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

 

[Muzaffer Ali]

Merhaba.
Dosyanız ekte.

 

[yasarcan]

Merhaba.
Dosyanız ekte.

Bende koşullu biçimlendirme + filtre ederek uğraşıyodum mükemmel olmuş.
saygılar hocam
kolay gelsin

 

[yasarcan]

Bende koşullu biçimlendirme + filtre ederek uğraşıyodum mükemmel olmuş.
saygılar hocam
kolay gelsin

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

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

 

[Muzaffer Ali]

Aşağıdaki kodları kullanın.

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

 

[yasarcan]

Teşekkürler
Allah razı olsun.

 

[Muzaffer Ali]

Rica ederim. İyi çalımalar.
Allah hepimizden razı olsun.