Eğer formülü

[ravenloft91]

Merhaba arkadaşlar,
Benim eğer formulü hakkında biraz yardıma ihtiyacım var.3 sütuna ayrı ayrı rakamlar yazıyorum..eğer formulü yazarak şunu istiyorum eğer sütunlardan herhangi ikisi eşitse ikizkenar hepsi eşitse eşkenar hiçbiri eşit değilse çeşitkenar yazdırmaya çalıştım. Çeşit kenar ve ikizkenar koşulunu elde ediyorum ancak eşkenar koşulunu elde edemedim.3 sütunda eşit olduğunda bile ikizkenar yazıyor..formulü nasıl yazmalıyım yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Verilerinizin A1-B1-C1 hücrelerinde olduğunu varsayarsak;

D1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=EĞER(VE(A1=B1;A1=C1;B1=C1);"EŞ KENAR";EĞER(YADA(A1=B1;A1=C1;B1=C1);"İKİZ KENAR";"ÇEŞİT KENAR"))

 

[ravenloft91]

Denedim ve oldu..ilginizden ve yardımınızdan dolayı teşekkür ederim..

 

[ynmcan]

Syn. ravenloft91
Alterntif olarak makrolu bir çözüm.
Örnek dosya ekte.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 50
Cells(i, 4) = ""
If Cells(i, 1) = "" Then
Cells(i, 4) = ""
Else
If Cells(i, 2) = "" Then
Cells(i, 4) = ""
Else
If Cells(i, 3) = "" Then
Cells(i, 4) = ""
Else
If Cells(i, 1) = Cells(i, 2) Then
Cells(i, 4) = "ikizkenar"
End If
If Cells(i, 1) = Cells(i, 3) Then
Cells(i, 4) = "ikizkenar"
End If
If Cells(i, 2) = Cells(i, 3) Then
Cells(i, 4) = "ikizkenar"
If Cells(i, 1) = Cells(i, 3) Then
Cells(i, 4) = "eşkenar"
End If
End If
If Cells(i, 1) <> Cells(i, 2) Then
If Cells(i, 1) <> Cells(i, 3) Then
If Cells(i, 2) <> Cells(i, 3) Then
Cells(i, 4) = "çeşitkenar"
End If
End If
End If
End If
End If
End If
Next
End Sub

 

[bay_musti]

sayın uzman arkadaşlar bende birşey eklemek istiyorum eğer formülünü aşağıda belirttiğim şekilde kullanmak istiyorum

"eğer a sutününda değeri 770 olan bir hücre var ise sağındaki hücreyi veya iki sağındaki hücreyi yaz yoksa yazma"

yani sadece tek hücre seçerek çeşitli alternatiflerini üretebiliyorum ve veya kullanarak ama çok hücreli bi veriden uygun veri olanı nasıl seçeceğimi çıkartamadım teşekkürler