Büyük Küçük Harf Değiştir Menüsüne Yeni Bir Özellik Daha Ekleyebilir miyiz?

Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Büyük Küçük Harf Değiştir Menüsüne Virgül ve Parantez Öncesinde ve Sonrasındaki Boşluklarla İlgili Bir Özellik Daha Ekleyebilir miyiz?
 

Ekli dosyalar

N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,488
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Kod: 
Private Sub CommandButton1_Click()
    Dim Hücre As Range, Kelime As Variant, X As Integer, Say As Integer
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    If OptionButton1 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=LOWER(""" & Hücre & """)")
    Next
    
    ElseIf OptionButton2 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=UPPER(""" & Hücre & """)")
    Next
    
    ElseIf OptionButton3 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=PROPER(""" & Hücre & """)")
    Next
    ElseIf OptionButton4 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=UPPER(""" & Mid(Hücre, 1, 1) & """)") & Evaluate("=LOWER(""" & Mid(Hücre, 2, Len(Hücre)) & """)")
    Next
    
    ElseIf OptionButton5 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=PROPER(""" & Hücre & """)")
    If InStr(1, Trim(Hücre), " ") > 0 Then Kelime = Split(Trim(Hücre), " ")
    Say = UBound(Kelime)
    Hücre = Replace(Hücre, Kelime(UBound(Kelime)), "") & Evaluate("=UPPER(""" & Kelime(UBound(Kelime)) & """)")
    Next
    
    ElseIf OptionButton6 = True Then
        
        For Each Hücre In Selection
       [B][COLOR=red] Hücre = Replace(Hücre, " ,", ", ")
[/COLOR][/B]        If Hücre <> Empty Then Hücre = WorksheetFunction.Trim(Hücre)
        Next
    End If
    
    Application.ScreenUpdating = True
End Sub
 
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Sayın Necdet bey ekteki dosyaya uygulama yapamadım acaba dosyaya ekleyebilirmisiniz?
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,728
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Eksik yada hatalı olduğunu düşündüğünü yanları varsa bildirin düzeltmeye çalışırım.

Kod: 
Option Explicit
 
Private Sub CommandButton1_Click()
    Dim Hücre As Range, Kelime As Variant, X As Integer, Say As Integer, Veri As String
 
    On Error Resume Next
 
    Application.ScreenUpdating = False
 
    If OptionButton1 = True Then
        For Each Hücre In Selection
            If Hücre <> Empty Then Hücre = Evaluate("=LOWER(""" & Hücre & """)")
        Next
 
    ElseIf OptionButton2 = True Then
        For Each Hücre In Selection
            If Hücre <> Empty Then Hücre = Evaluate("=UPPER(""" & Hücre & """)")
        Next
 
    ElseIf OptionButton3 = True Then
        For Each Hücre In Selection
            If Hücre <> Empty Then Hücre = Evaluate("=PROPER(""" & Hücre & """)")
        Next
    ElseIf OptionButton4 = True Then
        For Each Hücre In Selection
            If Hücre <> Empty Then Hücre = Evaluate("=UPPER(""" & Mid(Hücre, 1, 1) & """)") & Evaluate("=LOWER(""" & Mid(Hücre, 2, Len(Hücre)) & """)")
        Next
 
    ElseIf OptionButton5 = True Then
        For Each Hücre In Selection
            If Hücre <> Empty Then Hücre = Evaluate("=PROPER(""" & Hücre & """)")
            If InStr(1, Trim(Hücre), " ") > 0 Then Kelime = Split(Trim(Hücre), " ")
            Say = UBound(Kelime)
            Hücre = Replace(Hücre, Kelime(UBound(Kelime)), "") & Evaluate("=UPPER(""" & Kelime(UBound(Kelime)) & """)")
        Next
 
    ElseIf OptionButton6 = True Then
        For Each Hücre In Selection
            If Hücre <> Empty Then Hücre = WorksheetFunction.Trim(Hücre)
        Next
 
    ElseIf OptionButton7 = True Then
        For Each Hücre In Selection
            Veri = ""
            If Hücre <> Empty Then
                Hücre = WorksheetFunction.Trim(Hücre)
                If InStr(1, Trim(Hücre), ",") > 0 Then Kelime = Split(Trim(Hücre), ",")
 
                If Kelime <> "" Then
                    For X = 0 To UBound(Kelime)
                        If Left(Kelime(X + 1), 1) <> " " Then
                            If X = UBound(Kelime) Then
                                If Veri <> Hücre.Value Then
                                    Veri = IIf(Veri = "", Kelime(X) & ",", Veri & Kelime(X))
                                End If
                            Else
                                If Veri <> Hücre.Value Then
                                    Veri = IIf(Veri = "", Kelime(X) & ", ", Veri & Kelime(X) & ", ")
                                End If
                            End If
                        Else
                            Veri = Hücre.Value
                        End If
                    Next
 
                    Hücre.Value = IIf(Veri = "", Hücre.Value, Veri)
                End If
            End If
        Next
 
    ElseIf OptionButton8 = True Then
        For Each Hücre In Selection
            Veri = ""
            If Hücre <> Empty Then
                Hücre = WorksheetFunction.Trim(Hücre)
                If InStr(1, Trim(Hücre), "(") > 0 Then Kelime = Split(Trim(Hücre), "(")
 
                If Kelime <> "" Then
                    For X = 0 To UBound(Kelime)
                        If Right(Kelime(X), 1) <> " " And X <= UBound(Kelime) Then
                            If X = UBound(Kelime) Then
                                If Veri <> Hücre.Value Then
                                    Veri = IIf(Veri = "", Kelime(X) & "(", Veri & Kelime(X))
                                End If
                            Else
                                If Veri <> Hücre.Value Then
                                    Veri = IIf(Veri = "", Kelime(X) & " (", Veri & Kelime(X) & " (")
                                End If
                            End If
                        Else
                            Veri = Hücre.Value
                        End If
                    Next
 
                    Hücre.Value = IIf(Veri = "", Hücre.Value, Veri)
                End If
 
                Veri = ""
                Hücre = WorksheetFunction.Trim(Hücre)
                If InStr(1, Trim(Hücre), ")") > 0 Then Kelime = Split(Trim(Hücre), ")")
 
                If Kelime <> "" Then
                    For X = 0 To UBound(Kelime)
                        If Left(Kelime(X + 1), 1) <> " " And (X + 1) <= UBound(Kelime) Then
                            If X = UBound(Kelime) Then
                                If Veri <> Hücre.Value Then
                                    Veri = IIf(Veri = "", Kelime(X) & ")", Veri & Kelime(X))
                                End If
                            Else
                                If Veri <> Hücre.Value Then
                                    Veri = IIf(Veri = "", Kelime(X) & ") ", Veri & Kelime(X) & ") ")
                                End If
                            End If
                        Else
                            Veri = Hücre.Value
                        End If
                    Next
 
                Hücre.Value = IIf(Veri = "", Hücre.Value, Veri)
                End If
            End If
        Next
 
    End If
 
    Application.ScreenUpdating = True
End Sub
 
Private Sub CommandButton2_Click()
    Unload Me
End Sub
 
Private Sub OptionButton1_Click()
    OptionButton1.Font.Bold = True
    OptionButton1.ForeColor = vbRed
    OptionButton2.Font.Bold = False
    OptionButton2.ForeColor = vbBlack
    OptionButton3.Font.Bold = False
    OptionButton3.ForeColor = vbBlack
    OptionButton4.Font.Bold = False
    OptionButton4.ForeColor = vbBlack
    OptionButton5.Font.Bold = False
    OptionButton5.ForeColor = vbBlack
    OptionButton6.Font.Bold = False
    OptionButton6.ForeColor = vbBlack
    OptionButton7.Font.Bold = False
    OptionButton7.ForeColor = vbBlack
    OptionButton8.Font.Bold = False
    OptionButton8.ForeColor = vbBlack
End Sub
 
Private Sub OptionButton2_Click()
    OptionButton1.Font.Bold = False
    OptionButton1.ForeColor = vbBlack
    OptionButton2.Font.Bold = True
    OptionButton2.ForeColor = vbRed
    OptionButton3.Font.Bold = False
    OptionButton3.ForeColor = vbBlack
    OptionButton4.Font.Bold = False
    OptionButton4.ForeColor = vbBlack
    OptionButton5.Font.Bold = False
    OptionButton5.ForeColor = vbBlack
    OptionButton6.Font.Bold = False
    OptionButton6.ForeColor = vbBlack
    OptionButton7.Font.Bold = False
    OptionButton7.ForeColor = vbBlack
    OptionButton8.Font.Bold = False
    OptionButton8.ForeColor = vbBlack
End Sub
 
Private Sub OptionButton3_Click()
    OptionButton1.Font.Bold = False
    OptionButton1.ForeColor = vbBlack
    OptionButton2.Font.Bold = False
    OptionButton2.ForeColor = vbBlack
    OptionButton3.Font.Bold = True
    OptionButton3.ForeColor = vbRed
    OptionButton4.Font.Bold = False
    OptionButton4.ForeColor = vbBlack
    OptionButton5.Font.Bold = False
    OptionButton5.ForeColor = vbBlack
    OptionButton6.Font.Bold = False
    OptionButton6.ForeColor = vbBlack
    OptionButton7.Font.Bold = False
    OptionButton7.ForeColor = vbBlack
    OptionButton8.Font.Bold = False
    OptionButton8.ForeColor = vbBlack
End Sub
 
Private Sub OptionButton4_Click()
    OptionButton1.Font.Bold = False
    OptionButton1.ForeColor = vbBlack
    OptionButton2.Font.Bold = False
    OptionButton2.ForeColor = vbBlack
    OptionButton3.Font.Bold = False
    OptionButton3.ForeColor = vbBlack
    OptionButton4.Font.Bold = True
    OptionButton4.ForeColor = vbRed
    OptionButton5.Font.Bold = False
    OptionButton5.ForeColor = vbBlack
    OptionButton6.Font.Bold = False
    OptionButton6.ForeColor = vbBlack
    OptionButton7.Font.Bold = False
    OptionButton7.ForeColor = vbBlack
    OptionButton8.Font.Bold = False
    OptionButton8.ForeColor = vbBlack
End Sub
 
Private Sub OptionButton5_Click()
    OptionButton1.Font.Bold = False
    OptionButton1.ForeColor = vbBlack
    OptionButton2.Font.Bold = False
    OptionButton2.ForeColor = vbBlack
    OptionButton3.Font.Bold = False
    OptionButton3.ForeColor = vbBlack
    OptionButton4.Font.Bold = False
    OptionButton4.ForeColor = vbBlack
    OptionButton5.Font.Bold = True
    OptionButton5.ForeColor = vbRed
    OptionButton6.Font.Bold = False
    OptionButton6.ForeColor = vbBlack
    OptionButton7.Font.Bold = False
    OptionButton7.ForeColor = vbBlack
    OptionButton8.Font.Bold = False
    OptionButton8.ForeColor = vbBlack
End Sub
 
Private Sub OptionButton6_Click()
    OptionButton1.Font.Bold = False
    OptionButton1.ForeColor = vbBlack
    OptionButton2.Font.Bold = False
    OptionButton2.ForeColor = vbBlack
    OptionButton3.Font.Bold = False
    OptionButton3.ForeColor = vbBlack
    OptionButton4.Font.Bold = False
    OptionButton4.ForeColor = vbBlack
    OptionButton5.Font.Bold = False
    OptionButton5.ForeColor = vbBlack
    OptionButton6.Font.Bold = True
    OptionButton6.ForeColor = vbRed
    OptionButton7.Font.Bold = False
    OptionButton7.ForeColor = vbBlack
    OptionButton8.Font.Bold = False
    OptionButton8.ForeColor = vbBlack
End Sub
 
Private Sub OptionButton7_Click()
    OptionButton1.Font.Bold = False
    OptionButton1.ForeColor = vbBlack
    OptionButton2.Font.Bold = False
    OptionButton2.ForeColor = vbBlack
    OptionButton3.Font.Bold = False
    OptionButton3.ForeColor = vbBlack
    OptionButton4.Font.Bold = False
    OptionButton4.ForeColor = vbBlack
    OptionButton5.Font.Bold = False
    OptionButton5.ForeColor = vbBlack
    OptionButton6.Font.Bold = False
    OptionButton6.ForeColor = vbBlack
    OptionButton7.Font.Bold = True
    OptionButton7.ForeColor = vbRed
    OptionButton8.Font.Bold = False
    OptionButton8.ForeColor = vbBlack
End Sub
 
Private Sub OptionButton8_Click()
    OptionButton1.Font.Bold = False
    OptionButton1.ForeColor = vbBlack
    OptionButton2.Font.Bold = False
    OptionButton2.ForeColor = vbBlack
    OptionButton3.Font.Bold = False
    OptionButton3.ForeColor = vbBlack
    OptionButton4.Font.Bold = False
    OptionButton4.ForeColor = vbBlack
    OptionButton5.Font.Bold = False
    OptionButton5.ForeColor = vbBlack
    OptionButton6.Font.Bold = False
    OptionButton6.ForeColor = vbBlack
    OptionButton7.Font.Bold = False
    OptionButton7.ForeColor = vbBlack
    OptionButton8.Font.Bold = True
    OptionButton8.ForeColor = vbRed
End Sub
 

Ekli dosyalar

Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Sayın korhan bey necdet bey ve sizin ilgi ve alakanıza teşekkürler. Ekte göndermiş olduğum dosyada bulunan menüye verilen kodları ekleyemedim. Eğer yardımcı olursanız sevinirim. Şimdiden Teşekkürler.
 
Son düzenleme:
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,728
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Üstteki mesajıma örnek dosya eklenmiştir. İncelermisiniz.
 
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Sadece Kelimelere Bitişik Yazılan Parantezleri Ayırmıyor.

Diğerleri Çok Güzel Olmuş; Sadece Kelimelere Bitişik Yazılan Parantezleri Ayırmıyor. Örneğin (Ahmet) yazdım, Ben Ahmet isminin parantezden sonra bir boşluk verdirmesini ve Ahmet isminden sonra da bir boşluk verdikten sonra parantez gelsin istiyorum Örneğin ( Ahmet ) gibi. Fazla Boşlukları Alıyor, O kısmı da düzelirse ihtiyaca cevap verecek kolay gelsin
 
Son düzenleme:
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Parantez Sorunu

Parentez sorununu çözebilirmiyiz? Yani parantezin önünde ve sonunda bir boşluk olmasını fazla olan boşlukların silinmesini istiyorum. Sorun tamamen çözülmüş olacak.
 
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,488
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Parantez ve virgül olayını yeni şık tanımlamadan boşluk düzenlemede belirttim.

Kod: 
Private Sub CommandButton1_Click()
    Dim Hücre As Range, Kelime As Variant, X As Integer, Say As Integer
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    If OptionButton1 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=LOWER(""" & Hücre & """)")
    Next
    
    ElseIf OptionButton2 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=UPPER(""" & Hücre & """)")
    Next
    
    ElseIf OptionButton3 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=PROPER(""" & Hücre & """)")
    Next
    ElseIf OptionButton4 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=UPPER(""" & Mid(Hücre, 1, 1) & """)") & Evaluate("=LOWER(""" & Mid(Hücre, 2, Len(Hücre)) & """)")
    Next
    
    ElseIf OptionButton5 = True Then
    For Each Hücre In Selection
    If Hücre <> Empty Then Hücre = Evaluate("=PROPER(""" & Hücre & """)")
    If InStr(1, Trim(Hücre), " ") > 0 Then Kelime = Split(Trim(Hücre), " ")
    Say = UBound(Kelime)
    Hücre = Replace(Hücre, Kelime(UBound(Kelime)), "") & Evaluate("=UPPER(""" & Kelime(UBound(Kelime)) & """)")
    Next
    
    ElseIf OptionButton6 = True Then
        
        For Each Hücre In Selection
[B]        Hücre = Replace(Hücre, ",", ", ")
        Hücre = Replace(Hücre, " ,", ", ")
        Hücre = Replace(Hücre, "(", " ( ")
        Hücre = Replace(Hücre, ")", " ) ")
[/B]        If Hücre <> Empty Then Hücre = WorksheetFunction.Trim(Hücre)
        Next
    End If
    
    Application.ScreenUpdating = True
    Unload Me
End Sub
 

Ekli dosyalar

Son düzenleme:
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Noktayı koşmuşsunuz, çok güzel...

Sayın necdet bey teşekkürler noktayı koymuşsunuz, ellerinize sağlık ihtiyacımı görecek istediğim buydu. İyi çalışmalar tekrar teşekkürler.
 
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Çalışma dosyası üzerinde 2 değişiklik yapılabilir mi)geldi,gelenlerin içerisinde?

Sayın necdet bey dosya kullanıyorum. Fakat bir iki teferruat var onları da ekleme imkanı var mı acaba ?
1. eğer cümle içerisiden virgül varsa virgülden sonra bir boşluk verdirebilinir mi? yani şöyle bir kelime var " geldi,gelenlerin içerisinde " buradaki geldi kelimesinden sonraki virgülden sonra bir boşluk verdirilebilinir mi? ( Virgül öncesinde boşluk varsa onu kaldırıp kelimeye virgülü yaslıyor, bu Güzel.)
2. ise parantez olayı parantez biten kelimeye yaslanmış vaziyette ise kelimeden sonra bir boşluk verdirebilinir mi? yukarıdaki örneği burada da verilirse şöyle yani "geldi(gelenlerin) içerisinde" geldi kelimesi ile parantez arasına bir boşluk verdirilebilir mi? ( Parantezden sonra bir boşluk verdiyor bu da güzel, parantezden önceki kelime arası da bir boşluk verdirilebilir mi? ) Not: son eklemiş olduğunuz dosya üzerinde adapte edebilirseniz, çok memmun oluruz, teşekkürler iyi çalışmalar.
 
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,488
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

9. mesajda kod ve dosyayı günledim,

2. sorunuzu pek anlamadım örneklerseniz çözüm yoluna gidilebilir.
 
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
virgül parantez ve boşluk düzenle komutunda iki kelime arasında virgül varsa birinci kelime virgülden sonra bir boşluk vermesini de ekleyebilirmiyiz. Parantezde ise parantez kendisinden önceki kelimeye birleşik ise kendisinden önceki kelimeden sonra yani parantez işaretinden önceki kelime arasında bir boşluk özelliğide eklenebilir mi? Teşekkürler.
 
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,488
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,


9. mesaj yenilenmiştir, deneyiniz.
 
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Necdet bey eksiğiyle birlikte şimdi dört dörtlük olmuş ellenize sağlık teşekkürler.
 
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Her İşlem Yapılmasında Menü Kayboluyor

Sayın Necdet bey her işlemden sonra menü kayboluyor, menüyü çıkış tuşu ile kapatmak istiyorum, acaba o bölümde düzeltilebilir mi? diğer işlevlerin hepsini çok güzel yapıyor. İyi günler kolay gelsin.
 
N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,488
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

9. mesajdaki kodlardaki en son satır olan :

Kod: 
Unload Me
satırını silin.
 
Y

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
946
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Altın Üyelik Bitiş Tarihi
20-03-2029
Teşekkürler

Sayın Necdet bey vermiş olduğunuz kodu sildim normale geçti. Çok Teşekkürler. Ellerinize Sağlık.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst