checkbox sorunu

[muratkayabasi82]

yaklaşık 1000 kisinin isminin yanında aynı sayıda checkbox olacak. Şahıs o gün geldi ise checkbok tıklanıp şahsın iminin yanındaki kutucuğa yanındaki kutucuga "geldi"yazacak ve şahsın ismini yeşile boyayacak. şahıs gelmedi ise checkbok değeri false olduğu için "GELMEDİ" yazacak. Ancak her bir checkbox' ın Private Sub CheckBox1_Click(), Private Sub CheckBox2_Click()... olayına tek tek kod girmeden yapma imkanı var mı?

 

[Haluk]

Yapılır ama sayfaya 1000 tane ActiveX nesnesi yerleştirirseniz, bundan sonraki sorunuz o dosyanın neden bozulduğuyla ilgili olabilir....

.

 

[muratkayabasi82]

excel kaldırmaz diyorsunuz yani..

 

[Haluk]

Yani belli olmaz...... PC'nin konfügürasyonu ve kullandığınız Excel'in 32/64 Bit olmasına göre, dosyanın bozulacağı tarih değişiklik gösterir....

Bence, koşullu biçimlendirme ve ilgili bir hücrede Webdings-Windings kararkterlerini kullanarak aynı durumu simule edebilirsiniz.

.

 

[Orion1]

B1 hücresini webdings yazı karakteri olarak biçimlendirin.
Klavyeden A tuşuna basın,tik işareti oluşacaktır.

 

[muratkayabasi82]

B1 hücresini webdings yazı karakteri olarak nasıl biçimlendiricem? Weddingsler ile daha önce hiç çalışmadım.

 

[Orion1]

B1 hücresini webdings yazı karakteri olarak nasıl biçimlendiricem? Weddingsler ile daha önce hiç çalışmadım.

 

[muratkayabasi82]

webdings pek işimi görmeyecek gibi. cünkü cok farklı neredeyse hiç excel bilmeyen farklı farklı kişiler kullanacak. A harfine basıp tick işaretini koymak yerine checkbox veya ona benzer birşeye tıklayıp ismi renklendirmesi gerek.

 

[Orion1]

Linkteki dosyayı inceleyiniz.
Küçük a koyunuz.
DOSYAYI INDIR

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If Target.Value = "a" Then
    Target.Offset(0, -2).Interior.Color = vbGreen
    Target.Offset(0, -1).Value = "Geldi"
Else
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    Target.Offset(0, -1).Value = "Gelmedi"
End If
End Sub

 

[Haluk]

İsimler A sütunundaysa, B sütunundaki hücrelere "Veri Doğrulama-Liste" ile "Geldi", "Gelmedi" diye 2 adet alternatif koyun. A sütunundaki hücrelere de buna göre koşullu biçimlendirme yapın....


.

 

[muratkayabasi82]

elinize saglık, ancak C sütunundaki hücrelerden birine gelip A harfine basmak yerine mouse sol tuşu tick koyamaz mı? Bir daha tick koyunca kaldırsın gibi..

 

[Orion1]

C sütununa çift tıklayınız.
Dosya linktedir.

DOSYAYI INDIR

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
If Target.Value = "" Then
    Target.Value = "a"
    Target.Offset(0, -2).Interior.Color = vbGreen
    Target.Offset(0, -1).Value = "Geldi"
ElseIf Target.Value = "a" Then
    Target.Value = ""
    Target.Offset(0, -2).Interior.ColorIndex = xlNone
    Target.Offset(0, -1).Value = "Gelmedi"
End If
Cancel = True
Application.EnableEvents = True
End Sub

 

[muratkayabasi82]

güzel olmuş, emeginize sağlık tek tıklama ile çalışmaz değimi? bir defa tıklasın tick koysun, bir defa daha tıklarsa kaldırsın şeklinde..

 

[Orion1]

güzel olmuş, emeginize sağlık tek tıklama ile çalışmaz değimi? bir defa tıklasın tick koysun, bir defa daha tıklarsa kaldırsın şeklinde..

Çift tıklama ile olur.

 

[muratkayabasi82]

Çok teşekkürler. Bu olacak gibi..

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[muratkayabasi82]

Peki c sütunundaki tüm tickleri kaldırabileceğimiz bir temizle butonu olabilir mi? yani gün sonu sıfırlasın birisi

 

[Orion1]

Peki c sütunundaki tüm tickleri kaldırabileceğimiz bir temizle butonu olabilir mi? yani gün sonu sıfırlasın birisi

Dosyanız linktedir.

DOSYAYI INDIR

Sub temizle()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("A2:A" & sonsat).Interior.ColorIndex = xlNone
Range("B2:B" & sonsat).Value = "Gelmedi"
Range("C2:C" & sonsat).Value = ""

End Sub

 

[muratkayabasi82]

Teşekkürler. Son olarak ticleri koyacağımız sütunlar E4 sütunundan Başlayacak aşağı doğru uzayacak. Örnegin E4 e tick koyduğumda B4, C4 ve D4 hücrelerini boyayacak. Yine J sütununda da tickler olacak. örnegin J5' e tick koyulduğunda G5, H5 vs I5 hücrelerini boyayacak.

 

[Orion1]

Teşekkürler. Son olarak ticleri koyacağımız sütunlar E4 sütunundan Başlayacak aşağı doğru uzayacak. Örnegin E4 e tick koyduğumda B4, C4 ve D4 hücrelerini boyayacak. Yine J sütununda da tickler olacak. örnegin J5' e tick koyulduğunda G5, H5 vs I5 hücrelerini boyayacak.

Dosyanız linktedir..

DOSYAYI INDIR
.