Eğer Fonksiyonu Belirli Bir Metinse yan satıra sayı atsın?

[yastık]

merhaba arkadaşlar

şöyle birşey yapmak istiyorum

A1 de AHMET YAZIYORSA B1 DE 1 YAZSIN MEHMET YAZIYORSA 2 YAZSIN

Bunun için EĞER(A1=AHMET;"1";EĞER(A1=MEHMET;"2") şöyle birşey denedim ama olmadı

yardımcı olurmusunuz.

 

[Orion1]

string değerleri çift tırnak içine almalısınız.

=EĞER(A1="AHMET";"1";EĞER(A1="MEHMET";"2";))

 

[yastık]

string değerleri çift tırnak içine almalısınız.

=EĞER(A1="AHMET";"1";EĞER(A1="MEHMET";"2";))

teşekkür ederim. elinize sağlık

 

[mehmet6702]

Merhabalar,
bu işlemde 3. bir değer daha varsa yani A1 de MUSTAFA yazıyorsa B1'e 3 yazması için ne yapmammız gerekir? EĞER'le yazılan formülü devam ettirdim kabul etmedi.

 

[abazya]

Deneyin.

=EĞER(A1="";"";EĞER(A1="AHMET";"1";EĞER(A1="MEHMET";"2";EĞER(A1="MUSTAFA";"3";))))

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki formülüde kullanabilirsiniz.

=EĞER(A1="";"";ARA(A1;{"AHMET";"MEHMET";"MUSTAFA"};{1;2;3}))

 

[y_yilmaz1977]

Aşağıdaki kodu da kullanabilirsiniz.

Sub isim()

Dim i As Range
Dim k As Integer
k = 1
For Each i In Range("a1:a500")


If i.Value = "ahmet" Then
Cells(k, 2).Value = 1
ElseIf i.Value = "mehmet" Then
Cells(k, 2).Value = 2
ElseIf i.Value = "mustafa" Then
Cells(k, 2).Value = 3

End If
k = k + 1
Next


End Sub