verilen cevaba göre kız erkek olarak renklendirsin

[Muhammet Okumuş]

arkadaşlar a sütunda erkek ve kız öğrencileri grupladım.m2:af2 satırına öğrencilerin verdiği cevaba göre renklendirmek istiyorum.cevabı veren öğrencinin yanına "x" işareti koyacağım.bir öğrenci birden fazla cevap verebilir. örneğin ilk soruyu ahmet ikinci soruyu elif 3.soruyu şeyma cevaplasın.bu durumda m2 hücresi mavi olacak.n2 ve o2 hücreleri kız öğrenci cevapladığı için kırmızı renkli olacak.diyelim ki ahmet ilk soruyu cevapladığı için b2 hücresine elif için b8 şeyma için b9 "X"işareti koyacağım.yani öğrencilerin ilk cevapları b sütununa 2.cevapları c sütununa ... bu şekilde "x" işareti koyacağım

 

[leumruk]

Selamlar,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b2:ı6,b8:ı10]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then Exit Sub
If Not Intersect(Target, [b2:ı6]) Is Nothing Then
For i = 13 To 32
If Cells(2, i).Interior.ColorIndex = xlNone Then
Cells(2, i).Interior.ColorIndex = 42
Exit Sub
End If
Next i
End If
If Not Intersect(Target, [b8:ı10]) Is Nothing Then
For x = 13 To 32
If Cells(2, x).Interior.ColorIndex = xlNone Then
Cells(2, x).Interior.ColorIndex = 3
Exit Sub
End If
Next x
End If
End Sub

 

[Muhammet Okumuş]

sn leumruk hocam olmuş ancak x ları silince hata veriyor.

 

[leumruk]

Merhaba,
2. Satıra On Error Resume Next satırını ekleyin.

 

[Muhammet Okumuş]

leumruk hocam x'ları silince bu kez de renkleri silmiyor

 

[leumruk]

leumruk hocam x'ları silince bu kez de renkleri silmiyor

Merhaba,
Syn. muokumuş,
İstediniz de yapmadık mı?:tongue: Söyleseniz sildirirdik.
İlgili dosyayı güncelledim. Yeniden indirebilirsiniz.

 

[Muhammet Okumuş]

sn leumruk çok teşekkür ederim.bu kez olmuş.heralde makro çözümler fonksiyonlardan daha kullanışlı.herlde bu işlemi fonksiyonlarla yapamazdık?