3 sayının 2'li (küçük - eşit - büyük) Kombinasyonu...

[katip16487]

Merhabalar.

A1, A2 ve A3 hücrelerinde değişik rakamlar bulunmaktadır.

Bu rakamların KÜÇÜK - BÜYÜK - EŞİT veya BÜYÜK EŞİT, KÜÇÜK EŞİT şeklinde 2'li kombinasyonlarını almak istiyorum.

Örneğin;
A1>A2, A1>A3, A2>A3
A1>A2, A1>A3, A2=A3
A1>A2, A1>A3, A2<A3
A1>A2, A1>A3, A2>=A3
A1>A2, A1>A3, A2<=A3
.
.
.

şeklinde dökümünü almak istiyorum...

Saygılarımla...

 

[Ergün Güler]

Sub karsilastir()
Dim i, j As Long
Dim son_sat As Long

son_sat = Sayfa1.Range("A65536").End(3).Row
MsgBox son_sat

With Sayfa1
For i = 1 To son_sat

If .Cells(i, "A") > .Cells(i, "B") Then .Cells(i, "D") = "Büyük"
If .Cells(i, "A") < .Cells(i, "B") Then .Cells(i, "D") = "Küçük"
If .Cells(i, "A") = .Cells(i, "B") Then .Cells(i, "D") = "Eşit"

If .Cells(i, "A") > .Cells(i, "C") Then .Cells(i, "E") = "Büyük"
If .Cells(i, "A") < .Cells(i, "C") Then .Cells(i, "E") = "Küçük"
If .Cells(i, "A") = .Cells(i, "C") Then .Cells(i, "E") = "Eşit"

If .Cells(i, "B") > .Cells(i, "C") Then .Cells(i, "F") = "Büyük"
If .Cells(i, "B") < .Cells(i, "C") Then .Cells(i, "F") = "Küçük"
If .Cells(i, "B") = .Cells(i, "C") Then .Cells(i, "F") = "Eşit"
Next

End With
End Sub

Sonuçlar D,E,F Sütunlarına yazılmaktadır.

 

[katip16487]

Cevap için teşekkürler. Ancak ben kombinasyonun dökümünü almak istiyorum.