Hücre değerine göre kadın veya erkek yazdırmak

[obruk]

excel sayfasında,1 yazan hücreleri erkek,2 yazan hücreleri kadın şeklinde değiştirecek bir formül var mı
yardımcı olacak arkadaşlara şimdiden teşekkür ederim..

 

[N.Ziya Hiçdurmaz]

Sayfa kod bölümüne yapıştırınız sadece a1:a1000 arası geçerlidir.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
For i = 1 To 1000
If Range("a" & i) = "1" Then
Range("a" & i) = "Erkek"
End If
If Range("a" & i) = "2" Then
Range("a" & i) = "Kadın"
End If
Next
End Sub

 

[Orion1]

Merhaba.
Kodsuz da şöyle yapılır.
*Değiştirilecek sütunları seçin.
*ctrl+H tuşlarına basın.
*Aranan kutucuğuna 1 yazın.
*Yeni değer kutucuğuna Erkek yazın.
*Tümünü değiştire basın.
-----İ ş l e m T a m a m-------
Kolay gelsin

 

[xxcell]

Alternatif olsun,

Değiştir Ctrl + H ile
Aranan : 1 , Yeni # Değer : Erkek # Yanlızca Tüm Hücreler (Ok)
Tümünü Değiştir (ALT+T)

Değitir Ctrl + H ile
Aranan : 2 , Yeni # Değer : Kadın # Yanlızca Tüm Hücreler (Ok)
Tümünü Değiştir (ALT+T)

 

[Orion1]

Merhaba.
Soruyu fonksiyonlar bölümünde sorduğunuzu dikkate alarak ,fonksiyonla aşağıdaki gibi yapılır.
Verilerin A sütununda olduğu varsayılarak .B1 hücresine aşağıdaki kodu yapıştırın ve aşağı doğru kopyalayın.

=EĞER(A1=1;"ERKEK";EĞER(A1=2;"KADIN";""))

 

[Necdet]

Eğer Bilgi griş yaparken uzun uzun Erkek yada Kadın yazmadan 1 yada 2 yazmak istiyorsanız ve bunun da A sütununda olduğunu varsayarsak, ekteki dosyayı inceleyiniz.

Aşağıdaki kodları, ilgili sayfanın kod bölümüne ekleyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Select Case Target.Value
     Case 1
             Target.Value = "Erkek"
     Case 2
             Target.Value = "Kadın"
End Select
Son:
End Sub

 

[Seyit Tiken]

Buda bir çeşit olsun.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
If Target = 1 Then Target = "erkek"
If Target = 2 Then Target = "kadın"
End Sub