Belirli Satırlar Dolu İse Onay Kutularını Seçme

[dragon44760]

Sorumu örnek dosya içersinde açıkladım. Yardımcı olursanız sevinirim.

 

[Murat OSMA]

Şu bağlantıyı inceleyiniz;
http://www.exceltr.com/2011/02/cift-tiklayarak-checkbox-olusturma/

Kodları şu şekilde değiştirebilirsiniz;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Column <> 2 Then [COLOR="Red"]Exit Sub[/COLOR]
        With Target.Offset(0, 1)
            If .Value = "£" Then
                .Value = "R"
            Else
                .Value = "£"
            End If
                .Font.Name = "Wingdings 2"
                .HorizontalAlignment = xlCenter
        End With
    Cancel = True
End Sub[/FONT][/SIZE]

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz, aynı mantıkla farklı bir metodla yapılmıştır.

Murat bey sayfayı açarken yanıt yoktu, gönderirken yanıtınızı gördüm, aynı mantıkla yanıtlamışşız, aradaki tek fark, formül ve kodtur.

 

[dragon44760]

Sn.Murat OSMA ve sn.Seyit Tiken yanıtlarınız için teşekkür ederim ama benim istediğim böyle bir şey değil. Benim istediğim buton vasıtasıyla dolu olan satırlar karşısındaki onay kutularına çek atılması. Liste bölümü formüllü olacak ve dolu olan satırların yanında bulunan "Onay Kutusu"nun çekini kaldırınca o kişiyi listeden çıkaracak (Formüller o kişi bilgilerini getirmeyerek "" gösterecek). Başka bir buton vasıtasıyla yazdırırken boş satırları gizleyerek çıktı alınmasını sağlayacağım. Ekte bulunan dosyada belki daha iyi anlaşılır.

 

[Seyit Tiken]

Kendi fikrimi söylüyorum : Programınızın mantığı pratik değil, anladığım kadarıyla, boş satırları gizleyip kalan isimleri yazdırmak istiyorsunuz, bir kere "Onay Kutucukları" satır gizlemene engeldir, sende deneyebilirsin, satır gizlediğinde "Onay Kutucukları" gizlenmiyor, birbirlerinin üstüne biniyor, bu şekil bir program olmaz, yukarıda Murat beyin ve benim gönderdiğim örnekleri inceleyip kendinize uyarlamaya çalışın, derim.

 

[dragon44760]

Sn.Seyit Tiken dediğiniz gibi gizleme de sorun çıkıyor. Önerdiğiniz gibi bir yöntem bulacağım. Teşekkürler...

 

[Murat OSMA]

Ekli dosyayı inceleyiniz, aynı mantıkla farklı bir metodla yapılmıştır.

Murat bey sayfayı açarken yanıt yoktu, gönderirken yanıtınızı gördüm, aynı mantıkla yanıtlamışşız, aradaki tek fark, formül ve kodtur.

Günaydın Seyit Bey,
Bana da genelde öyle olur.

 

[mustafaine1]

Murat Bey guzel dusunce olmus sahte check box kullanimi icin, boyle bir kullanim is gorebilir, aklimda bir kosul olarak kalicak, tesekkurler..

 

[Murat OSMA]

Merhaba Mustafa Bey, sizin sitenizden alıntı yaptım zaten. Bağlantıyı da mesajıma eklemiştim..

 

[mustafaine1]

evet bende konuyu siteme gelen baglantilardan gordum, aslinda ayni konuyu buraya da eklemistim Yinede tesekkur edilebilcek farkli bir kosul yaratilmis olmus, iyi calismalar.

 

[Murat OSMA]

O konuda haklısınız.

Size de iyi çalışmalar dilerim.

 

[Seyit Tiken]

Aynı olay formüllü hali.

=EĞER(B2="";"£";"R")

Font İsmi : Wingdings 2