- Katılım
- 22 Şubat 2023
- Mesajlar
- 227
- Excel Vers. ve Dili
- Türkçe
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
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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
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
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.Hocam çalışmadı kod
Bende çalışmadı hocamB1 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
ayrı ayrı derken?Vallahi hocam kodların ikisini de yapıştırdım İkisi de çalışmadı ayrı ayrı yaptım
Verdiği hata alt veya derleme hatası diyor hıcam