Excelde Yazdığım Harflerin İlk Harfi Büyük Olabilirmi

[turkey15]

Arkadaşlar Excelde Yazdığım Harflerin İlk Harfi Büyük Olabilirmi,yardımcı olurmusunuz.

 

[ersoyalan]

Merhaba,

Sayfanızın kod bölümüne kodları ekleyin.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target = StrConv(Target, vbProperCase)
End Sub

 

[Merhum İdris SERDAR]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each c In Selection.Cells
c.Value = Evaluate("=Proper(" & """" & c & """" & ")")
Next c
End Sub


Yazılanları seçin.

.

 

[turkey15]

Merhaba,

Sayfanızın kod bölümüne kodları ekleyin.


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target = StrConv(Target, vbProperCase)
End Sub

Merhaba arkadaşım kod bölümü neresi oluyor acaba?

 

[ersoyalan]

Merhaba,

Ekli dosyayı incelermisin.

 

[turkey15]

Merhaba,

Ekli dosyayı incelermisin.

tamam dediğiniz gibi odu ekledim ama yazdığım yazılar yine küçük yada büyük

 

[ersoyalan]

Merhaba,

Kodları sayfanızın kod bölümünde ThisWorkbook bölümüne kopyalayın.


E.ALAN

 

[turkey15]

Merhaba,

Kodları sayfanızın kod bölümünde ThisWorkbook bölümüne kopyalayın.


E.ALAN

kusura bakma ama ben kod bölümünde öle bi bölüm göremedim

 

[ersoyalan]

Ekli dosyayı inceleyin.

 

[turkey15]

Merhaba,

Ekli dosyayı incelermisin.

şuan oldu ilginize çpk teşekkürler fakat ben sayfada bazı başlık gibi yerleri komple büyük harfle yazmak istiyorum bu nasıl olur.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Option Explicit
 
Sub İLK_HARF_BÜYÜK_HARF()
    Dim Hücre As Range
    For Each Hücre In Selection
    If Hücre.Value <> Empty Then Hücre.Value = Evaluate("=Proper(" & """" & Hücre.Value & """" & ")")
    Next
End Sub
 
Sub TÜMÜ_BÜYÜK_HARF()
    Dim Hücre As Range
    For Each Hücre In Selection
    If Hücre.Value <> Empty Then Hücre.Value = Evaluate("=Upper(" & """" & Hücre.Value & """" & ")")
    Next
End Sub
 
Sub TÜMÜ_KÜÇÜK_HARF()
    Dim Hücre As Range
    For Each Hücre In Selection
    If Hücre.Value <> Empty Then Hücre.Value = Evaluate("=Lower(" & """" & Hücre.Value & """" & ")")
    Next
End Sub

 

[turkey15]

Ok çok güzel oldu ama ben tüm excel dosyalarıma ble utucuklarmı ilave edeceğim

 

[ersoyalan]

Korhan hocam merhaba,

Oldukça güzel bir çalışma olmuş.Ellerinize sağlık.Arşive aldım.

E.ALAN

 

[turkey15]

Hocam tamam saolun sonunda çözdüm olayı