hücrede büyük harf yazma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, aşagıdaki kodda B3 hücresi ilk harfi büyük yapıyor,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3]) Is Nothing Then Exit Sub
If UCase(Target) <> Target Then
Target = Evaluate("=proper(" & Target.Address & ")")
End If
End Sub


ama ben aynı dosyanın aynı sayfasında B4 için UPPER'i kullanarak B4 için hücreden çıkınça büyük harflerle yazmasını istiyorum, bu kodun devamına bir kod mu yazacağım buna bir bakarmısınız.

 

[Husgvarna]

Şöyle yapın.

 Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="#ff0000"]If Not Intersect(Target, Range("B3,B5:B6")) Is Nothing Then[/COLOR]
If UCase(Target) <> Target Then Target = Evaluate("=proper(" & Target.Address & ")")
End If
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
If UCase(Target) <> Target Then
Application.EnableEvents = False
Target = Evaluate("=UPPER(" & Target.Address & ")")
Application.EnableEvents = True
End If
End Sub

 

[Hacı Bayram ÖZKAN]

Merhaba üstad; bu oldu teşekkürer, ama B5 ve B6 hücrelerini de tekrar İlk harfi büyük diğeri küçük yazmak istiyorum, bu nasıl olur. bunada bakarmısın Teşekkürler.

 

[Husgvarna]

Yukarıdaki kırmızı bölüm gibi değişiklik yeterlidir.

 

[Hacı Bayram ÖZKAN]

Teşekkür ederim, eskik olmayın.