Büyük harf

[serif11]

Arkadaşlar selam.
D sütununa veri girip enter tuşuna basınca girdiğimiz verilerin hepsinin BÜYÜK HARF olmasını nasıl sağlayabilirim?
Şimdiden teşekkürler

 

[tamer42]

Arkadaşlar selam.
D sütununa veri girip enter tuşuna basınca girdiğimiz verilerin hepsinin BÜYÜK HARF olmasını nasıl sağlayabilirim?
Şimdiden teşekkürler

Üstatlar ne der bilemem ama; benim bilgime göre bu işlemi ancak makro (kod yazarak) ile sağlayabilirsiniz.

Örnek dosya gönderirseniz çözüm üretmeye çalışırız.

Kolay gelsin.

 

[serif11]

Muhteşem bir tespit. Bunun ancak makro ile çözülebileceği hiç aklıma gelmemişti. Teşekkürler

 

[morfiss]

Arkadaşlar selam.
D sütununa veri girip enter tuşuna basınca girdiğimiz verilerin hepsinin BÜYÜK HARF olmasını nasıl sağlayabilirim?
Şimdiden teşekkürler

Şu konuyu inceler misiniz?
http://www.excel.web.tr/f14/b-y-k-harf-k-k-harf-t7321.html

 

[serif11]

Yardım lütfen

 

[PLİNT]

Merhaba
İşlem yapacağınız sayfanın; kod sayfasına ekleyip denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
Dim s As String
Application.EnableEvents = False
On Error Resume Next
s = Evaluate("=büyükharf(""" & Target.Value & """)")
s = Evaluate("=upper(""" & Target.Value & """)")
Target.Replace Target.Value, s
Application.EnableEvents = True
End Sub

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Evaluate("=UPPER(""" & Target.Value & """)")
    Application.EnableEvents = True
End Sub

 

[serif11]

Plint ve Korhan Ayhan arkadaşlarım.
Öncelikle ilgi ve emeğinize teşekkür ederim.
Ancak aynı sayfada;

Private Sub Worksheet_Change(ByVal Target As Range)

şeklinde başlayan başka bir kod daha olduğu için çalıştıramadım. Sizin yazdığınız kodları bu kodun içine nasıl yerleştireceğimi bilemedim..
Aşağıdaki kodları silince ikisi de tam istediğim şekilde çalışıyor.


Kodlar şöyle :

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
    Case Is = 1: Target.Offset(, 1).Select
    Case Is = 2: Target.Offset(, 1).Select
    Case Is = 3: Target.Offset(, 1).Select
    Case Is = 4: Target.Offset(, 1).Select
    
    Case Is = 5: Target.Offset(1, -4).Select
    
    Case Else
End Select
    On Error GoTo son
    If Intersect(Target, Range("A2:A5000")) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    
    Application.EnableEvents = False
    If Len(Target) = 7 Then
        Target = Format(Target, "##"" ""##"" ""###")
    ElseIf Len(Target) = 8 Then
        Target = Format(Target, "###"" ""##"" ""###")
    ElseIf Len(Target) = 9 Then
        Target = Format(Target, "###"" ""###"" ""###")
    ElseIf Len(Target) = 10 Then
        Target = Format(Target, "###"" ""##"" ""##"" ""###")
    ElseIf Len(Target) = 11 Then
        Target = Format(Target, "###"" ""###"" ""##"" ""###")
    ElseIf Len(Target) = 12 Then
        Target = Format(Target, "###"" ""###"" ""###"" ""###")
    End If
Columns(Target.Column).EntireColumn.AutoFit

Application.EnableEvents = True
son:

End Sub

 

[serif11]

Tamam hallettim...
İlginize, bilginize, emeğinize teşekkürler...

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case Is = 1: Target.Offset(, 1).Select
        Case Is = 2: Target.Offset(, 1).Select
        Case Is = 3: Target.Offset(, 1).Select
        Case Is = 4: Target.Offset(, 1).Select
        Application.EnableEvents = False
        Target.Value = Evaluate("=UPPER(""" & Target.Value & """)")
        Application.EnableEvents = True
        Case Is = 5: Target.Offset(1, -4).Select
        Case Else
    End Select
    
    On Error GoTo Son
    If Intersect(Target, Range("A2:A5000")) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    
    Application.EnableEvents = False
    If Len(Target) = 7 Then
        Target = Format(Target, "##"" ""##"" ""###")
    ElseIf Len(Target) = 8 Then
        Target = Format(Target, "###"" ""##"" ""###")
    ElseIf Len(Target) = 9 Then
        Target = Format(Target, "###"" ""###"" ""###")
    ElseIf Len(Target) = 10 Then
        Target = Format(Target, "###"" ""##"" ""##"" ""###")
    ElseIf Len(Target) = 11 Then
        Target = Format(Target, "###"" ""###"" ""##"" ""###")
    ElseIf Len(Target) = 12 Then
        Target = Format(Target, "###"" ""###"" ""###"" ""###")
    End If
    Columns(Target.Column).EntireColumn.AutoFit
Son:
    Application.EnableEvents = True
End Sub

 

[serif11]

Hallettim dedim ama olmamış.

Sizin kodları;

Private Sub Worksheet_Change(ByVal Target As Range)

satırından sonra yerleştirdim.. Bu sefer de diğer kodlar çalışmadı

 

[serif11]

Tamamdır.
Süperrrrrr..
tekrar tekrar ve çok çok teşekkürler...