büyük küçük harf yapan kod sayıyı yazdırmıyor

[gedavet]

1. ve 2. sütunlardaki (kırmızı rekli olan sütunlarda a ile b ) sütunlara sayı yazıldığı zaman baştan birtane sayıyı siliyor yazmıyor örnekte her sütunda 35 yazılıdır ancak 3 yazmıyor sadece 5 yazıyor
kod bölümündeki alttaki kod bu sütunların ilgili kodu 3. ve 4. süyunlarda bu sıkıntı yok bu nu nasıl çözeriz yardımcı olabilirmisiniz

 

[Kemal Demir]

Merhaba,

Len(Target.Value) [b][u]- 1[/b][/u])

-1 i iptal edersiniz sorun çözülür diye düşünüyorum.

 

[gedavet]

ilginiz için teşekkür ederim evet düzeldi
ancak iism yazınca başın aboşluk veriyor bunu vermese

 

[Necdet]

Merhaba,

Genel Amaçlı kullanım isterseniz aşağıdaki kodları deneyiniz.

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Target.Column < 3 Then
    Target.Value = AdSOYAD(Target.Value)
Else
    Target.Value = SOYAD(Target.Value)
End If
Application.EnableEvents = True
Son:
End Sub

Aşağıdaki Fonksiyonları ise bir modüle kopyalayınız.

Public Function AdSOYAD(Sozcuk As String)
Dim Ad      As String, _
    SOYAD   As String, _
    i       As Integer, _
    s
s = Split(Sozcuk, " ")
If UBound(s) > 0 Then
    For i = 0 To UBound(s) - 1
        Ad = Ad & " " & s(i)
    Next i
    Ad = Application.WorksheetFunction.Trim(Ad)
    Ad = Evaluate("=PROPER(""" & Ad & """)")
    SOYAD = s(UBound(s))
    SOYAD = Evaluate("=UPPER(""" & SOYAD & """)")
    AdSOYAD = Ad & " " & SOYAD
Else
    AdSOYAD = Evaluate("=PROPER(""" & Sozcuk & """)")
End If
End Function

Public Function SOYAD(Sozcuk As String)
    SOYAD = Evaluate("=UPPER(""" & Sozcuk & """)")
End Function

 

[gedavet]

necdet bey ilginiz için teşekkür ederim ancak istediğim sutuna istediğim özelliği ayarlıyordum önceki kodda bun da nasıl ayarlarız diyelimki 10 sütunluk bir veriler var 3. 7. sütunlarda adsoyad 2. ve 6. sütundada soyad mantığını nasıl ayarlarım diğer sütunlarda işlem yapmasa

 

[Necdet]

necdet bey ilginiz için teşekkür ederim ancak istediğim sutuna istediğim özelliği ayarlıyordum önceki kodda bun da nasıl ayarlarız diyelimki 10 sütunluk bir veriler var 3. 7. sütunlarda adsoyad 2. ve 6. sütundada soyad mantığını nasıl ayarlarım diğer sütunlarda işlem yapmasa

Merhaba,

Aşağıda kırmızı ile belirttiğim değişiklikler yeterli olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [[B][COLOR=red]B:C, F:G[/COLOR][/B]]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If [COLOR=red][B]Target.Column = 3 Or Target.Column = 7[/B][/COLOR] Then
    Target.Value = AdSOYAD(Target.Value)
Else
    Target.Value = SOYAD(Target.Value)
End If
Application.EnableEvents = True
Son:
End Sub

 

[ormann]

Büyük harfi küçük harfe çevirmek için nasıl bir kod uygulamalıyız?Yani
TEKKEKÖY ORMAN İŞLETME ŞEFLİĞİ Yazdığım zaman kod otamatik olarak Tekkeköy Orman İşletme Şefliği olarak nasıl değiştirebiliriz?

 

[Kemal Demir]

Merhaba,
Varsayılım bu bilgiler a1 hücresinde , b2 hucresinin içine aşağıdaki formulu yazınız
=Proper(ilgili hücre)

 

[baydeniro]

teşekkürler Necdet Yeşertener üstad.