Büyük Harf Yapma

[btanju]

Merhabalar,
Baş harflerini büyük yapmak için aşağıda belirtiğim gibi bir kod buldum fakat tüm sayfadaki hücreleri uyguluyor sadece F3:F557 arasında bu formülün çalışması için nasıl bir formül olması gerekmektedir.
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = WorksheetFunction.Proper(Target.Value)
End Sub

 

[Korhan Ayhan]

Kodun 2. satırı olarak aşağıdaki satırı ekleyip deneyiniz.

If Intersect(Target, Range("F3:F557")) Is Nothing Then Exit Sub

 

[btanju]

Kodun 2. satırı olarak aşağıdaki satırı ekleyip deneyiniz.

If Intersect(Target, Range("F3:F557")) Is Nothing Then Exit Sub

Hocam bu şekilde yaptım fakat değişiklik olmadı büyük harf ilede küçük harf ilede denedim düzeltme yapmadı bir yerde hata mı yaptım acaba çalışma sayfasına ekledim Sheet1'in içine ekledim formülü oradamı hata yaptım
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F3:F557")) Is Nothing Then Exit Sub
End Sub

 

[Korhan Ayhan]

Satır silin demedim ki...

EKLEYİN dedim.

 

[btanju]

Satır silin demedim ki...

EKLEYİN dedim.

Teşekkü ederim hocam kusurabakmayın sorunsuz çalıştı sayenizde öğreneceğiz.