Hücreye küçük harf yazıldığı anda büyük harfe çevirme

[Korhan Ayhan]

Siz kodu "Genel Takip" sayfasının kod bölümüne uygulamışsınız.

Sanırım diğer sayfa için uygulamanız gerekiyordu.

 

[Grknpkdzn]

Siz kodu "Genel Takip" sayfasının kod bölümüne uygulamışsınız.

Sanırım diğer sayfa için uygulamanız gerekiyordu.

Akıl tutulması yaşamışım resmen.
Yardımlarınız ve üslubunuz için teşekkür ederim.

 

[sevketkayaalp]

Siz kodu "Genel Takip" sayfasının kod bölümüne uygulamışsınız.

Sanırım diğer sayfa için uygulamanız gerekiyordu.

Merhaba, uzun zaman geçmiş, yardımınızla ben de güzel işler yaptım, çok teşekkür ederim. Başka bir kod ile birleştirmem gerekti. Yalnız kodu uyguladıktan sonra , yapması gerekeni yapıyor.ctrl + z işlevi çalışmıyor, Geri al yapamıyorum, sebebini bulamadım.


Private Sub Worksheet_Change(ByVal Target As Range)

' bu kod büyük harfe çeviriyor

If Intersect(Target, [B11:B12, B13:B16, B19:B39,C19:C39]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target.Value = BuyukHarf(Target.Value)
Application.EnableEvents = True



'bu kod hücreye ilk veri girildiği anda günü tarihini ve ilgili hücreye serino (günün tarihi ve saati )basıyor
If Intersect(Target, Range("B19")) Is Nothing Then Exit Sub


If Target.Value = "" Then Exit Sub

If Range("F5") = "" Then
Range("F5") = Format(Date, "dd.mm.yyyy")
'Range("F5").NumberFormat = "dd.mm.yyyy"

End If

' Range("F12") = Mid(Range("F5"), 7, 4) & Mid(Range("F5"), 4, 2) & Mid(Range("F5"), 1, 2)
Range("F12") = Mid(Range("F5"), 7, 4) & Mid(Range("F5"), 4, 2) & Mid(Range("F5"), 1, 2)
Range("F12") = Range("F12") & Mid(Now(), 11, 2) & Mid(Now(), 14, 2)

End Sub

Function BuyukHarf(Veri As String)

BuyukHarf = UCase(Replace(Replace(Veri, "i", "İ"), "ı", "I"))

End Function

 

[Korhan Ayhan]

Makro kullanırsanız CTRL+Z (Gerial) komutu çalışmaz.