• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan yyhy
  • Başlangıç tarihi Başlangıç tarihi
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
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

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
 
Sayın Necdet bey ekteki dosyaya uygulama yapamadım acaba dosyaya ekleyebilirmisiniz?
 
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

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:
Selamlar,

Üstteki mesajıma örnek dosya eklenmiştir. İncelermisiniz.
 
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:
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.
 
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:
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.
 
Ç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.
 
Merhaba,

9. mesajda kod ve dosyayı günledim,

2. sorunuzu pek anlamadım örneklerseniz çözüm yoluna gidilebilir.
 
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.
 
Merhaba,


9. mesaj yenilenmiştir, deneyiniz.
 
Necdet bey eksiğiyle birlikte şimdi dört dörtlük olmuş ellenize sağlık teşekkürler.
 
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.
 
Merhaba,

9. mesajdaki kodlardaki en son satır olan :

Kod: 
Unload Me
satırını silin.
 
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.
Geri
Üst