Cümlenin başharfleri büyük

[turgayzeynep]

Hocam kolay gelsin iyi çalışmalar hocam B2'den C33 sütunları arasındaki yazıların baş harfleri büyük Cümlenin diğer tarafları küçük harf olacak şekilde Makro ile nasıl yapabilirim
ve B2 hücresi ile C33 hücresinde İsim soy isim yazılı bunda da isimleri baş harfi büyük soy isimlerin tamamen büyük olmasını istiyorum Bu şekilde bir Makro istiyorum Yardımcı olur musunuz rıca etsem

 

[Muzaffer Ali]

Merhaba.
1. kod sadece ilk harfi, 2 kod tüm kelimelerin baş harfini büyük yapar.

Sub test1()
    Dim Bak As Range
    For Each Bak In Range("B2:C33")
        If Bak <> "" Then
            Bak = Replace(Bak.Text, Left(Bak.Text, 1), UCase(Left(Bak.Text, 1)), 1, 1)
        End If
    Next
End Sub

Sub test2()
    Dim Bak As Range
    For Each Bak In Range("B2:C33")
        If Bak <> "" Then
            Bak = WorksheetFunction.Proper(Bak)
        End If
    Next
End Sub

 

[turgayzeynep]

Merhaba.
1. kod sadece ilk harfi, 2 kod tüm kelimelerin baş harfini büyük yapar.

Sub test1()
    Dim Bak As Range
    For Each Bak In Range("B2:C33")
        If Bak <> "" Then
            Bak = Replace(Bak.Text, Left(Bak.Text, 1), UCase(Left(Bak.Text, 1)), 1, 1)
        End If
    Next
End Sub

Sub test2()
    Dim Bak As Range
    For Each Bak In Range("B2:C33")
        If Bak <> "" Then
            Bak = WorksheetFunction.Proper(Bak)
        End If
    Next
End Sub

Hocam çalışmadı

 

[alicimri]

Alternatif. A sütununda hücrelerdeki ilk harf ve noktadan sonra boşluk varsa onlardan sonraki ilk harf büyük oluyor.

Sub Makro1()
For i = 2 To Cells(Rows.Count, 1).End(3).Row
   For e = 1 To Len(Cells(i, 1))
   If e = 1 Then
  Cells(i, 1).Value = UCase(Mid(Cells(i, 1), 1, 1)) & Mid(Cells(i, 1), 2)
  ElseIf Mid(Cells(i, 1), e, 1) = "." And Mid(Cells(i, 1), e + 1, 1) = " " Then
Cells(i, 1).Value = Left(Cells(i, 1), e) & UCase(Mid(Cells(i, 1), e + 2, 1)) & Right(Cells(i, 1), Len(Cells(i, 1)) - e - 2)
  End If
   Next
   Next
End Sub

 

[alicimri]

B3:C33 aralığına uyarlanmış kod.

Sub Makro1()
For i = 2 To 33
   For e = 1 To Len(Cells(i, 2))
   If e = 1 Then
  Cells(i, 2).Value = UCase(Mid(Cells(i, 2), 1, 1)) & Mid(Cells(i, 2), 2)
  Cells(i, 3).Value = UCase(Mid(Cells(i, 3), 1, 1)) & Mid(Cells(i, 3), 2)
  ElseIf Mid(Cells(i, 2), e, 1) = "." And Mid(Cells(i, 2), e + 1, 1) = " " Then
Cells(i, 2).Value = Left(Cells(i, 2), e) & UCase(Mid(Cells(i, 2), e + 2, 1)) & Right(Cells(i, 2), Len(Cells(i, 2)) - e - 2)
   End If
   Next
   For x = 1 To Len(Cells(i, 3))
   If Mid(Cells(i, 3), x, 1) = "." And Mid(Cells(i, 3), x + 1, 1) = " " Then
Cells(i, 3).Value = Left(Cells(i, 3), x) & UCase(Mid(Cells(i, 3), x + 2, 1)) & Right(Cells(i, 3), Len(Cells(i, 3)) - x - 2)
  End If
   Next
   Next
End Sub

 

[turgayzeynep]

B3:C33 aralığına uyarlanmış kod.

Sub Makro1()
For i = 2 To 33
   For e = 1 To Len(Cells(i, 2))
   If e = 1 Then
  Cells(i, 2).Value = UCase(Mid(Cells(i, 2), 1, 1)) & Mid(Cells(i, 2), 2)
  Cells(i, 3).Value = UCase(Mid(Cells(i, 3), 1, 1)) & Mid(Cells(i, 3), 2)
  ElseIf Mid(Cells(i, 2), e, 1) = "." And Mid(Cells(i, 2), e + 1, 1) = " " Then
Cells(i, 2).Value = Left(Cells(i, 2), e) & UCase(Mid(Cells(i, 2), e + 2, 1)) & Right(Cells(i, 2), Len(Cells(i, 2)) - e - 2)
   End If
   Next
   For x = 1 To Len(Cells(i, 3))
   If Mid(Cells(i, 3), x, 1) = "." And Mid(Cells(i, 3), x + 1, 1) = " " Then
Cells(i, 3).Value = Left(Cells(i, 3), x) & UCase(Mid(Cells(i, 3), x + 2, 1)) & Right(Cells(i, 3), Len(Cells(i, 3)) - x - 2)
  End If
   Next
   Next
End Sub

Hocam kodlar yapıştırdım 2 kotla çalışmadı

 

[Muzaffer Ali]

Hocam çalışmadı

Kodlar çalışıyor ama sanırım siz yapamıyorsunuz.
Kodları bir modüle kopyalayın, hangi kodu çalıştırmak isterseniz o kodun herhangi bir satırını seçin sonra F5 tuşuna basarak kodları çalıştırın.

 

[alicimri]

Butona tıklayın. B3:C33 aralığını kontrol edin.

Buyukharf.xlsm dosyasını indir - download

Buyukharf.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[turgayzeynep]

Butona tıklayın. B3:C33 aralığını kontrol edin.

Buyukharf.xlsm dosyasını indir - download

Buyukharf.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

sağ tarafa dügme yapmıssınızya onu iptal edemiyormusunuz yazınca enter tuşuna basınca düğmenin yaptığı görevi yapza olmazmı

 

[alicimri]

Ben daha önce girilmiş veriler için kod yazmıştım.

enter tuşuna basınca

2. cümlenin ilk harfini büyük yazma işini Excelin kendisi yapıyor.
Bir cümle yazıp nokta koyun boşluk verin tekrar bir cümleye başlayın bu cümlenin ilk kelimesinin ilk harfini büyük yapacaktır.
İlk cümle için ise aşağıdaki kodu ilgili sayfanın kod modülüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B3:C33"), Target) Is Nothing Then Exit Sub
Target.Value = UCase(Mid(Target.Value, 1, 1)) & Mid(Target.Value, 2)
End Sub

 

[alicimri]

#10 mesajdaki koda ilave yaptım.

 

[turgayzeynep]

Ben daha önce girilmiş veriler için kod yazmıştım.

2. cümlenin ilk harfini büyük yazma işini Excelin kendisi yapıyor.
Bir cümle yazıp nokta koyun boşluk verin tekrar bir cümleye başlayın bu cümlenin ilk kelimesinin ilk harfini büyük yapacaktır.
İlk cümle için ise aşağıdaki kodu ilgili sayfanın kod modülüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Mid(Target.Value, 1, 1)) & Mid(Target.Value, 2)
End Sub

Ben daha önce girilmiş veriler için kod yazmıştım.

2. cümlenin ilk harfini büyük yazma işini Excelin kendisi yapıyor.
Bir cümle yazıp nokta koyun boşluk verin tekrar bir cümleye başlayın bu cümlenin ilk kelimesinin ilk harfini büyük yapacaktır.
İlk cümle için ise aşağıdaki kodu ilgili sayfanın kod modülüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B3:C33"), Target) Is Nothing Then Exit Sub
Target.Value = UCase(Mid(Target.Value, 1, 1)) & Mid(Target.Value, 2)
End Sub

Hocam her boşluktan sonra büyük harf yapmıyor ama baş harfleri büyük yapıyor ama boşluktan sonra büyük harf yapmıyor boşluktan sonrada büyük harf yapmasını istiyorum

 

[alicimri]

nedir. onu belirtirseniz.
Benim versiyon 2007 ona göre belirtiyorum.
Yukardaki Menülerde Sağ üst tarafta bir şekil var, onu tıklayın. açılan iletişim kutusunda altta Excel Seçenekleri tuşuna tıklayın, yine açılan iletişim kutusunda sağ taraftaki listeden Yazım Denetleme yi tıkla Orada da Otomatik Düzeltme Seçenekleri ni tıkla orada da Tümcelerin ilk harfini büyük yap ı işaretleyin.