EĞER FONKSİYONU

[a_self_lion]

SELAM ARKADAŞLAR A1=ONY B1=ONY C1=ONY
BU HÜCRELERİN HERHANGHİ BİRİNDE ONY HAZACAK VE BUNLARIN HERHANGİ BİRİNDE ONY YAZINCA G1 HÜCRESİNE 1 YAZACAK FORMÜLÜ NASIL YAPABİLİRİM

 

[TRABLUS]

G1 hücresine aşağıda ki formülü yazınız..

=EĞER(A1="ony";"1";(EĞER(B1="ony";"1";(EĞER(C1="ony";"1";"")))))

 

[Kemal Demir]

Gerçi Sn.Trablus Cevabı vermiş ama Soru Makro Kısmında Oldugu için alternatif cevap yazmak istedim.

[vb:1:b0cdf62f4d]Sub bul()
if Cells(1,1).value="ony" or Cells(1,2).value="ony" or Cells(1,3).value="ony" then
Cells(1,7).value="1"
else
Cells(1,7).value="Koşullar Sağlanmadı"
end if
End sub[/vb:1:b0cdf62f4d]