Hangi karaktere basarsam basayım belli karakter çıksın

[muratgunay48]

Arkadaşlar, hangi karaktere basarsam basayım, ENTER yapınca x dönüşsün.
Bunu nasıl sağlarım.
Teşekkür ederim.

 

[bmutlu966]

Hangi sayfada çalışmak istiyorsanız o sayfanın kod bölümüne aşağıdaki kodları yapıştırın. A-BM kolonları arasında çalışır. Değiştirmek isterseniz kod üzerinde düzenleme yaparsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:BM65536")) Is Nothing Then
        If Target <> "" Then
       Target = "x"
        End If
    End If
End Sub

 

[muratgunay48]

Hangi sayfada çalışmak istiyorsanız o sayfanın kod bölümüne aşağıdaki kodları yapıştırın. A-BM kolonları arasında çalışır. Değiştirmek isterseniz kod üzerinde düzenleme yaparsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:BM65536")) Is Nothing Then
        If Target <> "" Then
       Target = "x"
        End If
    End If
End Sub

Hocam, tekrar rahatsız ediyorum ama, bu işlemi, örneğin C3:H40 arası sınırlandırmak istesem. Nasıl yapmalıyım. ("A1:BM65536") değiştirdim. olmadı.

 

[Saban Sertkaya]

Hocam, tekrar rahatsız ediyorum ama, bu işlemi, örneğin C3:H40 arası sınırlandırmak istesem. Nasıl yapmalıyım. ("A1:BM65536") değiştirdim. olmadı.

Çalışıyor..

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:H40")) Is Nothing Then
If Target <> "" Then
Target = "x"
End If
End If
End Sub

 

[muratgunay48]

Çalışıyor..

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:H40")) Is Nothing Then
If Target <> "" Then
Target = "x"
End If
End If
End Sub

Teşekkür ederim hocam. Emeğinize sağlık.

 

[Saban Sertkaya]

Bana değil bmutlu966'ya teşekkür ediniz. Kodlar kendisine ait. Biz sadece revize ettik.

 

[muratgunay48]

@bmutlu966 teşekkür ederim.

 

[bmutlu966]

Rica ederim arkadaşlar hiç problem değildi