sayıyı kelime ile değiştirsin

[maskot94]

Merhaba.b ve c sütununda herhangi bir hücreye 1 yazdığımda bunu aynı hücrede evet olarak değiştirsin(1 yerine evet yazsın), 2 yerine hayır, 3 yerine yok diye yazsın.Bir hücre için bu şekilde komut yazdım ama bunu tüm sütuna uygulatmam için nasıl bir komut yazılmalı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("c1") = 1 Then
Range("c1") = "evet"
End If
If Range("c1") = 2 Then
Range("c1") = "hayır"
End If
If Range("c1") = 3 Then
Range("c1") = "yok"
End If

End Sub

 

[AdemCan]

Merhaba, dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Or Target.Column = 3 Then
    If Target.Value = 1 Then Target.Value = "Evet"
    If Target.Value = 2 Then Target.Value = "Hayır"
    If Target.Value = 3 Then Target.Value = "Yok"
End If

End Sub

 

[Levent Menteşoğlu]

Bende alternatif olarak hiç kod kullanmadan "Hücreleri Biçimlendir" ile yapılmış bir mantık öneriyorum.

 

[Cengiz Demir]

Bu da select case'li alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Or Target.Column = 3 Then
 
   Select Case Target.Value
       Case 1: Target.Value = "Evet"
       Case 2: Target.Value = "Hayır"
       Case 3: Target.Value = "Yok"
   End Select
   
End If

End Sub

 

[Korhan Ayhan]

Başka bir alternatif;

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    With Range("B:C")
        .Replace 1, "Evet", xlWhole
        .Replace 2, "Hayır", xlWhole
        .Replace 3, "Yok", xlWhole
    End With
End Sub

 

[maskot94]

teşekkürler bütün kodlar çalıştı.