Büyük harf

[turgayzeynep]

B3 hücresinde ismin baş harfini büyük soy ismi tamamen büyük olarak Makro ile nasıl yapabilirim Yardımcı olur musunuz

 

[Mdemir63]

Selamlar

Kodlar Ziynettin Hocama aittir.
Deneyiniz

Sub test()
    Sheets("sayfa1").Select
    Son = Cells(Rows.Count, 2).End(xlUp).Row
    a = Range("B1:B" & Son).Value
    ReDim b(1 To UBound(a), 1 To 2)
    For i = 1 To UBound(a)
        v = VBA.Trim(a(i, 1))
        s = InStrRev(v, " ")
        Ad = Evaluate("=PROPER(""" & Left(v, s) & """)")
        Soyad = Evaluate("=UPPER(""" & Mid(v, s + 1, Len(v)) & """)")
        b(i, 1) = Ad & Soyad
    Next i
    [B1].Resize(UBound(a), 2) = b
    MsgBox "İşlem tamam...", vbInformation
End Sub

 

[turgayzeynep]

Hocam çalışmadı kod

 

[Necdet]

Merhaba,
Alternatif olsun.

Bir modüle aşağıdaki kodları kopyalayıp yapıştırınız.
Bu kodları istediğiniz excel dosyasında hazır fonksiyon olarak kullanabilirsiniz.

Function BKH(Sozcuk As String, Optional Tip As Integer = 2) As String

    'Tip    1. Küçük Harf
    '       2. Büyük Harf
    '       3. Yazım Düzeni
    
    If Tip = 1 Then
        BKH = Evaluate("=LOWER(" & """" & Sozcuk & """" & ")")
    ElseIf Tip = 2 Then
        BKH = Evaluate("=UPPER(" & """" & Sozcuk & """" & ")")
    Else
        BKH = Application.WorksheetFunction.Proper(Sozcuk)
    End If
    
End Function

Aşağıdaki kodları ise ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [B3]) Is Nothing Then Exit Sub
Dim t1 As String
Dim t2 As String

Application.EnableEvents = False
t1 = Left(Target.Value, 1)
t2 = Right(Target.Value, Len(Target.Value) - 1)

t1 = BKH(t1, 2)
t2 = BKH(t2, 1)
Target.Value = t1 & t2
Application.EnableEvents = True

End Sub

 

[Mdemir63]

Hocam çalışmadı kod

B1 den itibaren ad ve soyad yazın çeşitli şekillerde, sonra kodu çalıştırın isimleri baş harfi büyük soyisimleri tamamı büyük yapacaktır.
ben kullanıyorum çalışıyor

 

[turgayzeynep]

Vallahi hocam kodların ikisini de yapıştırdım İkisi de çalışmadı ayrı ayrı yaptım

 

[turgayzeynep]

B1 den itibaren ad ve soyad yazın çeşitli şekillerde, sonra kodu çalıştırın isimleri baş harfi büyük soyisimleri tamamı büyük yapacaktır.
ben kullanıyorum çalışıyor

Bende çalışmadı hocam

 

[Necdet]

Vallahi hocam kodların ikisini de yapıştırdım İkisi de çalışmadı ayrı ayrı yaptım

ayrı ayrı derken?

 

[Mdemir63]

Selamlar
dosya içindeki yazım düzeni butonuna basın

İndir

 

[turgayzeynep]

Selamlar
dosya içindeki yazım düzeni butonuna basın

İndir

Verdiği hata alt veya derleme hatası diyor hıcam

 

[Mdemir63]

Selamlar
Bence siz Excel versiyonunuzu gözden geçirin.

İzleyin

 

[Necdet]

Benim önerim ne oldu, halaa tık yok.