Şarta uygun verileri sıralamak...

[ozgurmath]

Þarta uygun verileri sıralamak...

Merhaba Arkadaşlar;

Soru ektedir...

Teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:cdc98b3f9e]Sub listele()
For a = 4 To 13
c = 0
d = 0
e = 0
yanlis = WorksheetFunction.CountIf(Range(Cells(4, a), Cells(23, a)), 0)
dogru = WorksheetFunction.CountIf(Range(Cells(4, a), Cells(23, a)), 1)
bos = WorksheetFunction.CountIf(Range(Cells(4, a), Cells(23, a)), "X")
Range(Cells(24, a), Cells(23 + yanlis, a)).Font.ColorIndex = 3
Range(Cells(24 + yanlis, a), Cells(23 + yanlis + dogru, a)).Font.ColorIndex = 5
Range(Cells(24 + yanlis + dogru, a), Cells(23 + yanlis + dogru + bos, a)).Font.ColorIndex = 0
For b = 4 To 23
If Cells(b, a) = 0 Then
c = c + 1
Cells(c + 23, a) = Cells(b, 3)
End If
If Cells(b, a) = 1 Then
d = d + 1
Cells(d + 23 + yanlis, a) = Cells(b, 3)
End If
If Cells(b, a) = "X" Then
e = e + 1
Cells(e + 23 + yanlis + dogru, a) = Cells(b, 3)
End If
Next: Next
End Sub
[/vb:1:cdc98b3f9e]

 

[ozgurmath]

Teşekkürler...