hücreye girilen sayıyı yazıya cevirme?

[crabby]

merhaba..
yapmak istedigim aynı hücre içerisine 1 yazdıgımda bunu ERKEK,
2 yazdıgımda ise KADIN olarak değiştirmesini istiyorum.
nasıl yapabilirim arkadaşlar bunu yardımcı olursanız sevinirim.
Not: değişiklik aynı hücrede olması lazım!
teşekkürler..

 

[accountant80]

Hangi hücreye istediğinizi bilmediğimden Tüm satırlar için olanı şu

Kod bölümüne kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = 1 Then Target.Value = "ERKEK"
If Target.Value = 2 Then Target.Value = "KADIN"
End Sub

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

D sütunu için:
Kodları sayfanın kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d:d")) Is Nothing Then

Columns("D:D").Replace What:="1", Replacement:="ERKEK", SearchOrder:=xlByRows

Columns("D:D").Replace What:="2", Replacement:="KADIN", SearchOrder:=xlByRows

Else
End If
End Sub

. . .

 

[İhsan Tank]

merhaba..
yapmak istedigim aynı hücre içerisine 1 yazdıgımda bunu ERKEK,
2 yazdıgımda ise KADIN olarak değiştirmesini istiyorum.
nasıl yapabilirim arkadaşlar bunu yardımcı olursanız sevinirim.
Not: değişiklik aynı hücrede olması lazım!
teşekkürler..

Merhaba
A1:A10 aralığı için

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
If Target = 1 Then
Target = "Erkek"
ElseIf Target = 2 Then
Target = "Kadın"
End If
End Sub

 

[crabby]

arkadaşlar özür diliyorum bunu yazacagım kod bölümüne nasıl giricem acaba?

 

[Emir Hüseyin Çoban]

arkadaşlar özür diliyorum bunu yazacagım kod bölümüne nasıl giricem acaba?

. . .

Aşağıdaki linki inceleyiniz.
2. Adıma Dikkat
Tüm Excel Versiyonlarında Yeni Modül Ekleme ( Görsel Anlatım )

Forumda da arama yaparsanız görsel ve yazılı pek çok örnek mevcut.
. . .