Listede var olanı otomatik çevirebilirmiyiz

[stres]

merhaba arkadaşlar hayırlı akşamlar .Bir sıkıntım var ,dosya ve açıklaması ektedir şimdiden teşekkürler

 

[tahsinanarat]

Sayfanın kod bölümüne yazın

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If IsEmpty(Target) Then Exit Sub
If Target.Column <> 7 Then Exit Sub
If Target = 1 Then Target = "ERKEK"
If Target = 2 Then Target = "KIZ"
End Sub

 

[stres]

tahsianarat ilgin için teşekkür ederim ama tekrar izah edersem gönderdiğim dosyada zaten var olan 1 ve 2 rakamlarını otomatik çevirdikten sonra 17. satırdan itibarende ben yazdıkça çevirsin yani ilk 16 satıra müdahale etmiyim otomatik çevirsin.siizn göndrdiğiniz kodda 16. satıra kadarda müdahale etmem gerekiyor.umarım doğru anlattım

 

[stres]

acil çıkmak zorundayım bu konuda yardımlarınızı esirgemeyeceğinizi bilmenin rahatlığı ile herkese hayırlı akşamlar hayırlı bayramlar

 

[stres]

tahsianarat ilgin için teşekkür ederim ama tekrar izah edersem gönderdiğim dosyada zaten var olan 1 ve 2 rakamlarını otomatik çevirdikten sonra 17. satırdan itibarende ben yazdıkça çevirsin yani ilk 16 satıra müdahale etmiyim otomatik çevirsin.siizn göndrdiğiniz kodda 16. satıra kadarda müdahale etmem gerekiyor.umarım doğru anlattım

tekrar selamlar bu konudaki eksiklik hala duruyor sanırım üstatlarımız yeni yeni geldiler

 

[stres]

sorunu deneme yanılma yöntemi ile halletim bul değiştir dedim excel sağolsun değiştirdi yinede ilgilenen herkese teşekkür ederim

 

[tahsinanarat]

Kodu aşağıdaki şekilde değiştirip deneyin.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
[G1:G65000].Replace What:="1", Replacement:="ERKEK"
[G1:G65000].Replace What:="2", Replacement:="KIZ"
If Target = 1 Then Target = "ERKEK"
If Target = 2 Then Target = "KIZ"
End Sub

 

[stres]

Kodu aşağıdaki şekilde değiştirip deneyin.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
[G1:G65000].Replace What:="1", Replacement:="ERKEK"
[G1:G65000].Replace What:="2", Replacement:="KIZ"
If Target = 1 Then Target = "ERKEK"
If Target = 2 Then Target = "KIZ"
End Sub

teşekkürler pek makbule geçti eline sağlık