Cops Lock'u Sabitlemek

[Araştırıcı]

Değerli Forum Paylaşıcı Arkadaşlar,
Herkese Günaydın.

Yazdığımız herhangibir satırda, Cops Lock'unu küçük harfe devamlı kalacak şekilde set edebilirmiyiz, nasıl?
Klavyeden bağımsız hale getirmek önemli burada. Yani klavye ile müdahale edilmeyecek. Herhangibir buton koymadan bunu yapabilirsek çok daha iyi olucak.
Teşekkür ediyorum

 

[Ali]

Değerli Forum Paylaşıcı Arkadaşlar,
Herkese Günaydın.

Yazdığımız herhangibir satırda, Cops Lock'unu küçük harfe devamlı kalacak şekilde set edebilirmiyiz, nasıl?
Klavyeden bağımsız hale getirmek önemli burada. Yani klavye ile müdahale edilmeyecek. Herhangibir buton koymadan bunu yapabilirsek çok daha iyi olucak.
Teşekkür ediyorum

Çalışma sayfanızı sağ tuş ile tıklayıp kod görüntüle dedikten sonra aşağıdaki kodları VB içine yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Kelime = Replace(Target.Value, "İ", "i")
Kelime = Replace(Kelime, "I", "ı")
Target.Value = StrConv(Kelime, vbLowerCase)
End Sub

 

[Araştırıcı]

Hata veriyor

Sayın Ali Bey,

Bu formülü dediğiniz gibi uyguladığımda ekte görülen hata verilmekte ve Excel kendini kapatmaktadır. Bu neden oluyor? Amacım Kaybedilen ve kazanılan işler sütunundaki sembolleri oluşturmada kullanıcıların Caps Lock ile büyük harfle girişini engellemek sadece küçük harf ile giririşi gerçekleştirmelerini sağlıyarak bu sembollerin aktarımını sağlamaktı.

 

[Ali]

Sayın Ali Bey,

Bu formülü dediğiniz gibi uyguladığımda ekte görülen hata verilmekte ve Excel kendini kapatmaktadır. Bu neden oluyor? Amacım Kaybedilen ve kazanılan işler sütunundaki sembolleri oluşturmada kullanıcıların Caps Lock ile büyük harfle girişini engellemek sadece küçük harf ile giririşi gerçekleştirmelerini sağlıyarak bu sembollerin aktarımını sağlamaktı.

Server kısıtlaması nedeni ile eklerinizi göremedim.Ama bu makro kodları Excel'in kendiliğinden kapanmasını sağlamaz.Kodlar bende sorunsuz çalışıyor.Araçlar-Makro-Güvenlik kısmından makro güvenlik düzeyini orta olarak düzenleyip tekrar deneyin,başka bir bilgisayarda denemeniz mümkünse oradada kontrol edebilirsiniz.

 

[Araştırıcı]

Orta yapmama rağmen önüne geçemedim. Makro çalışıyor ama işlemi yapınca Error Sent Raporlaması çıkıyor. Dont Send de desem Send de desem Exceli kapıyor ve atıyor. çok ilginç. Bu nedenle çok meraklandım. Bu olmaması gerekiyor ama neden ataıyor aklım almadı