cinsiyete göre rakam atsın

[stres]

örnek dosyada açıklama yaptığım gibi kız ve erkek yazdığımızda 1 yada 2 rakamını yazasın

 

[stres]

dosyayı ekliyorum

 

[S.Yiğit]

dosyayı ekliyorum

Merhaba..

C9 Hücresine =EĞERSAY(B1:B4;"ERKEK") Denermisiniz ?

 

[leumruk]

=EĞER(B4="Erkek";"1";EĞER(B4="Kız";"2";""))

Formülü sarı kısma kopyalayın.

 

[stres]

elien sağlık erkeği gösteriyor ama erkek yazan yeri kız diye değiştiğimde sarı olan yerdeki rakamı 2 diye değişmesini istiyorum her seferinde formülle oynamıyım

 

[uzmanamele]

merhaba

bu formül işinizi görür mü?

=EĞER(B4="erkek";1;EĞER(B4="kız";2;0))

bu şekilde de olur ama...

=EĞER(B4="erkek";1;2)

bu da alternatif olsun

=EĞER(B4="erkek";"♂";EĞER(B4="kız";"♀";"Ø"))

sondaki Ø işareti yerine ek resimdeki işareti koymak daha doğru olurdu ama excelde bulamadım.

 

[S.Yiğit]

Bende eksik okumuşum soruyu

 

[stres]

Bende eksik okumuşum soruyu

olsun eline sağlık ayrıca uzmanamele eline sağlık işimi görmemesi mümkünmü

 

[ali_ozturk34]

ya arkadaşlar bu formüllerin hiçbiri benim bilgisayarda olmuyor anlamadım ya benim exceldemi bi sorun var kafayı yiyeceğim

 

[leumruk]

Ne tür bir hatayla karşılaşıyorsunuz.

 

[uzmanamele]

merhaba
cinsiyetle ilgili ne çok sembol varmış

http://commons.wikimedia.org/wiki/Category:Gender_symbols

 

[stres]

merhaba
cinsiyetle ilgili ne çok sembol varmış

http://commons.wikimedia.org/wiki/Category:Gender_symbols

senin formülünden faydalanarak Erkekse E Kız ise K yazdırmayı başardım eline sağlık

=EĞER(B4="erkek";"E";EĞER(B4="kız";"K";0))

 

[ali_ozturk34]

Ne tür bir hatayla karşılaşıyorsunuz.

burada yazılan formülü kopyalıyorum yapıştırıyorum ama erkekse 1 yaz dediği yerdeki 1 seçili kalıyor ve formül yanlış hatası veriyor

 

[ali_ozturk34]

senin formülünden faydalanarak Erkekse E Kız ise K yazdırmayı başardım eline sağlık

=EĞER(B4="erkek";"E";EĞER(B4="kız";"K";0))

formülü burdaki yazıldğı gibi alıyorum gidiyorum o sarı olan yere kopyalıyorum sonra enter yapıyorum hata veriyor tamam diyorum "erkek" seçili kalıyor. Walla bi anlam weremedim ben

 

[leumruk]

Noktalıvirgülleri "," yazıp dener misiniz? Belki ayarlardan olabilir?

 

[uzmanamele]

merhaba
denetim masası / tarih saat vs seçenekleri / bölge ve dil seçenekleri / bölgesel seçenekler / özelleştir

burada varsayılan ayarlar farklı olsagerek

ondalık simgesi : virgül
basamaklandırma : nokta
liste ayırıcı : noktalı virgül yapınız

 

[stres]

kusura bakmayın bir sürü uğraştım ama olmadı yeni bir isteğim olacak dosya ekte

 

[uzmanamele]

merhaba

bu kod işinizi görür mü

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
cinsiyet = UCase(Target.Text)
If cinsiyet = "ERKEK" Then
[B4] = 1
Else
If cinsiyet = "KıZ" Then
[B4] = 2
Else
End If
End If
End Sub

 

[stres]

bu kod işinizi görür mü

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
cinsiyet = UCase(Target.Text)
If cinsiyet = "ERKEK" Then
[B4] = 1
Else
If cinsiyet = "KıZ" Then
[B4] = 2
Else
End If
End If
End Sub

[/QUOTE


eline sağlık Teşekkür ederim evet işimi gördü ancak tüm stununun tamamında bunu yapmak istesem ne yapmam lazım

 

[stres]

uzmanamele yok arkadaşlar bu konudasiz yardım edermisiniz