Sütüna eklenen işaretli-işaretsiz butonları nasıl süzerim ?

[karadush]

Merhaba arkadaşlar;

Örnek bir dosya ekliyorum, bu dosyada basit örnek olması açısından otomatik süzme eklenmiş bir form oluşturdum ve sürekli kayıt girdisi yapılan bir liste 5000-10000 satıra kadar devam ediyor. Daha önce C ve D sütünuna sürekli her satıra işlemler tamamlanınca yapıldı, yapılmadı diyerek yazıyorduk fakat ben bunu bir onay kutusu olarak yapmak istiyorum kaldıki yaptım asıl sorun şurada;
Firma ismine gelip örnek; a firmasını süzünce direkt olarak a firmasının yaptığı işleri görüyoruz doğal olarak diğerlerini seçincede b ve c firmalarının işleri çıkıyor aynı bu uygulamayı C ve D sütünunda yani 1. Dönem ve 2. Döneme de uygulamak istiyorum örnekte C sütununda bazı satırlar işaretlenmiş yapıldı olarak süzdüğümüz zaman boş olanlar ve boş olmayanlar adı altında 2 seçenek var fakat boş olanları seçiyorum hiçbir değişiklik yok boş olmayanları seçiyorum sadece 1.dönem ve 2. dönemde birer tane seçim kutusu görüyorum. Örneği incelerseniz daha net anlaşılır sanırım konuyuda özetlediğime göre yapılanlar ve yapılmayanları yani işaretliler ve işaretsizleri nasıl süzebilirim. Yardımlarınız için şimdiden teşekkür ederim. Esen Kalın.

 

[N.Ziya Hiçdurmaz]

Yanıt

Basit bir çözüm örneği inceleyiniz(veri doğrulama ile yapılmıştır)

 

[karadush]

Sayın HİÇDURMAZ;

Sayın HİÇDURMAZ;

Öncelikle cevap ve çözümünüz için teşekkür ederim.
Fakat;

Siz bunu sadece 1. Dönem için yaptınız ve işaret kutularını iptal ettiniz hepsini yapıldı olarak metin halinde yazıp veri doğrulamayı D sütununa uyguladınız yanlışsam düzeltin lütfen çünkü buradan anladığım ve incelediğim örnekte 2. Dönem yani E Sütünundan satır işaretlersem yani kutu herhangi bir değişiklik olmuyor.

Benim burada istediğim olay metin halinde 1. Döneme ve 2. Döneme sürekli yapıldı, yapılmadı yazmayı ortadan kaldırıp oraya bir onay kutusu koymak.

Sizin verdiğiniz örneği şu şekilde yapabilirsek;

Örnek;

1. Dönem ve 2. Dönem Adında 2 sütunumuz olsun ve bunlara yapıldı yapılmadı kavramını bir şekildi işaretle belirtip süzmek istediğimizdede yapılmayanların işaretsiz yapılanlarında işaretli olmasını sağlayabilirmiyiz.

Sizin yaptığınız örnekte ki gibi yaparsak eğer;

1. 2 sütun daha açmış olacağız
2. Zaten metin olarak yazmamak için böyle bir arayış içindeyiz, (hadi metni tüm sütunu uygulayabiliriz sorun değil)
3. Ben sadece o listeyi örnek olması açısından verdim yoksa liste 36 sütundan oluşuyor ve şu anki satır sayısı 5941.

Siz de takdir edersiniz ki 36 sütundan ne kadar kısabilirsem o kadar benim için kolaylık olacak bu yöntemide bunun için yapmaya ve sizlerden yardım almaya çalışıyorum.

 

[Necdet]

Merhaba,

Teker teker onay kutusu ile uğraşmaktansa, seçtiğiniz hücreler eğer boşsa "Yapıldı", Dolu ise Boşaltan bir makro işinize yarar mı?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C3:D65000]) Is Nothing Then Exit Sub
For Each Hücre In Selection
    If Hücre.Value = "" Then
        Hücre.Value = "Yapıldı"
    Else
        Hücre.Value = ""
    End If
Next Hücre
Son:
End Sub

 

[karadush]

Sayın YEŞERTENER;

Sayın YEŞERTENER;

İlginiz için teşekkür ederim. Bu denli pratik bir fikir ve uygulama için ayrıca teşekkür ederim checkbox larla uğraşıp duracaktım ve halada uğraşıyordum sizin mesajınızı görene kadar. Tam istediğim gibi bir sonuç aldım. Esen Kalın.

 

[karadush]

Sayın YEŞERTENER;

Sayın YEŞERTENER;

Bir şeyi fark ettim şuan, onuda satırı kaldırmak için tıkladığımda fark ettim.
Satır kaldırmak için satır numarasından seçtiğimiz zaman makroyu aktif ediyor yani direk satırda bir yazı varsa veya yoksa otomatikman yapıldı yazılarını atıyor, benim için çok bir sorun teşkil etmiyor ama gözüme takıldı kurcalarken.

--------------------------------------------------------------------------------------------

Tekrar tekrar mesaj yazıp flood yapmamak için bu mesaja ekliyorum.

Sayın YEŞERTENER;

Malesef az önce sorun olmayacağını söylesem de üzülerek sorun olduğunu belirteceğim.

Sorunu yukarda belirtmiştim satırı seçince demiştim, az önce belli bir bölümü seçip kopyalamak istedim fakat ne kadar yazılı bilgi varsa hepsini silip tüm seçili alanlara Yapıldı olarak metin işliyor.
Yani aradan bir kaç satır veya bir kaç sayfada almaya yada yazdırmaya kalksak tıkladığımız her satırda makro atadığımız sütunlar olduğu için makro devreye giriyor.

Umarım bir çözüm yolu bulabiliriz.

 

[Korhan Ayhan]

Selamlar,

Sn. Necdet beyin önerdiği kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C3:D65536]) Is Nothing Then Exit Sub
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
For Each Hücre In Selection
    If H&#252;cre.Column > 2 And H&#252;cre.Column < 5 Then
        If H&#252;cre.Value = "" Then
            H&#252;cre.Value = "Yap&#305;ld&#305;"
        Else
            H&#252;cre.Value = ""
        End If
    End If
Next H&#252;cre
Son:
End Sub

 

[Necdet]

Merhaba,

Korhan Bey çözümü sunmuş, bana da teşekkür etmek kalıyor.

Teşekkürler Korhan Bey.

 

[karadush]

Korhan bey ve Necdet bey ilginizden dolayı tekrardan teşekkür ederim.

Bir parça çözüm getirdik tüm satırlar yerine bizim koymak istediğimiz sütunlara işliyoruz buraya kadar sorun yok fakat;

Çalışma sayfamızdan örnek verelim;

Resimlerle ayrıntılı ifade ettim sanırım. 2 Kez seçersek aynı satırları eski haline dönüyor.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C3:D65000]) Is Nothing Then Exit Sub
If Application.Selection.Columns.Count > 2 Then Exit Sub
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
For Each Hücre In Selection
    If Hücre.Column > 2 And Hücre.Column < 5 Then
        If Hücre.Value = "" Then
            Hücre.Value = "Yapıldı"
        Else
            Hücre.Value = ""
        End If
    End If
Next Hücre
Son:
End Sub

 

[karadush]

Sayın YEŞERTENER;

Sayın YEŞERTENER;

Tebrikler son noktayı koyduk tam bire bir istediğim kodları elde etmiş olduk tekrardan ilgi ve alakanızdan dolayı size çok minnettarım. Sizlerin sayesinde biz(ler) de excel de epeyce yol kat ettik ve daha kat edeceğimiz çok yol var tabiki bunlarıda sizin gibi "Bilgi Paylaştıkça Büyür" kavramını gerçek anlamıyla kendisine ilke edinmiş arkadaşların sayesinde olacaktır. Esen Kalın.

 

[Necdet]

Güle güle kullanınız Sayın karadush.

İyi geceler.