Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 18 sonutan 1 ile 18 arasndakiler gsteriliyor.

Konu: Byk harfe eviren makro

  1. #1
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    983

    Byk harfe eviren makro

    Merhaba Excel dostlar,
    Baz belgelerde balk ksm byk harflerle yazlmas gerekirken inadna kk harfle yazanlar oluyor.
    Bu problemi gidermek iin excelden yardm gerekiyor.
    Aadaki makro ile belirtilen aralktaki kelimeleri byk harfe eviriyorum. Ancak;
    Giresun' u GIRESUN olarak eviriyor. Bilecik' i BILECIK .. Malum Trke karakter problemi.
    1-Trke karakterlere uygun olarak dntrmesi iin nasl bir deiiklik ilave etmek gerekir?
    2-Kk harfe evirmek ve lk Harfleri byk yapmak iinde makro var mdr?
    bu konuda yardm talep ediyorum.
    Teekkrler.
    ************
    Sub Buyukharf()
    ' Belirtilen aralktaki her bir hcreye tek tek git.
    For Each x In Range("B1:B2")
    ' Aralktaki metni byk harflere dntr.
    x.Value = UCase(x.Value)
    Next
    End Sub

  2. #2
    Kdemli ye
    yelik tarihi
    Dec 2009
    Nereden
    stanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    413
    Merhaba,

    Kod:
    x.Value = UCase(x.Value)
    , satr aadaki satr olarak deitirin.


    Kod:
    x.Value = UCase(Replace(Replace(Replace(x.Value, "", "I"), "i", ""), "", ""))

  3. #3
    Kdemli ye
    yelik tarihi
    Sep 2013
    Nereden
    stanbul
    Versiyon
    Ofis-2010 Trke
    Mesajlar
    501
    Sayn Ziynettin Bey

    Hazr buradayken bu olay benim de iime yarayacak bir durum ama benim ki biraz farkl, fark da u ben belli bir stunda deil de setiim hcrelerde ki yaz karakterlerini byk harfe evirmesini istersem kod'da nasl bir deiiklik gerekir. Teekkrler

  4. #4
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    983
    Mrb,
    ok teekkr ederim Ziynettin Bey,
    Ayni forml aadaki iinde geerli olur mu?
    **********
    Sub Proper_Case()

    ' Belirtilen aralktaki her bir hcreye tek tek git.
    For Each x In Range("C1:C5")
    ' Visual Basic for Applications'ta Yazm Dzeni ilevi yoktur.
    ' Bu nedenle, alma sayfas ilevini aadaki ekilde kullanmalsnz:
    x.Value = Application.Proper(x.Value)
    Next
    End Sub
    Konu behcet tarafndan (15.02.2014 Saat 23:30 ) deitirilmitir.

  5. #5
    Kdemli ye
    yelik tarihi
    Dec 2009
    Nereden
    stanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    413
    Behet Bey,
    Proper fonksiyonu kelimelerin ilk harfi iindir.

    Kod:
    x.Value = WorksheetFunction.Proper(Replace(Replace(Replace(x.Value, "", "I"), "i", ""), "", ""))

  6. #6
    Kdemli ye
    yelik tarihi
    Dec 2009
    Nereden
    stanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    413
    Alnt atakyl-59 Nickli yeden Alnt Mesaj gster
    Sayn Ziynettin Bey

    Hazr buradayken bu olay benim de iime yarayacak bir durum ama benim ki biraz farkl, fark da u ben belli bir stunda deil de setiim hcrelerde ki yaz karakterlerini byk harfe evirmesini istersem kod'da nasl bir deiiklik gerekir. Teekkrler
    Seilen alan iin,

    Kod:
    Sub AlanBykHarf()
    For Each x In Range(Replace(Selection.Address, "$", ""))
        x.Value = UCase(Replace(Replace(Replace(x.Value, "", "I"), "i", ""), "", ""))
    Next x
    End Sub

  7. #7
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    983
    ok teekkr ederim Ziynettin Bey,
    Ancak seilen alan iin deil. Bir nolu mesajda olduu gibi.
    rnein B12;B13 hcreleri iin. nk kii hcreye veriyi yazyor.
    O yazdka otomatik olarak byk/kk veya ilk harf byk olmasyd amacmz.
    yi geceler diliyorum.
    Kaln salcakla.

  8. #8
    Kdemli ye
    yelik tarihi
    Dec 2009
    Nereden
    stanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    413
    Soruda bu ksm gzden karmm.

    O halde bunu deneyi.

    Kod:
    Private Sub Worksheet_Change(ByVal Target As Range)   
        If Intersect(Target, Range("B2:B12")) Is Nothing Then Exit Sub
        Application.EnableEvents = False
            Target = WorksheetFunction.Proper(Replace(Replace(Replace(Target, "", "I"), "i", ""), "", ""))
        Application.EnableEvents = True
    End Sub

  9. #9
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    983
    Mrb, Ziynettin Bey,
    Size ok ok teekkr ediyorum. Gecenin bir buuunda.
    Allah raz olsun. Sizler iyiki varsnz.
    Makroyu hemen uyguladm. Aslnda ok gzel ama bir kusuru oldu.
    Onu gidermenin yolu var m bilmem.
    EKOLOJK OKUR YAZARLIK SEMNER yazdmda
    Ekolojik Okur Yazarlik Semineri eklinde eviriyor.
    Teekkrler.

  10. #10
    Kdemli ye
    yelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    983
    Merhaba Hocam,
    Target = WorksheetFunction.Proper(Replace(Replace(Replace(T arget, "", "I"), "i", ""), "", "")) 'satrn
    Target = WorksheetFunction.Proper(Replace(Replace(Replace(T arget, "I", ""), "", "i"), "", "")) 'bu hale getirdim oldu.
    Herey iin teekkrler.

  11. #11
    Kdemli ye
    yelik tarihi
    Sep 2013
    Nereden
    stanbul
    Versiyon
    Ofis-2010 Trke
    Mesajlar
    501
    Sayn Ziynettin bey

    AlanBykHarf Kod'unu ayn zamanda AlanKkHarf eklinde de dzenledim. Bunlar Kiisel Makro kitabnda bir modl iine yerletirdim. Artk btn Excel kitaplarnda kullanabileceim. Emeiniz iin size, konuyu at iin Behet bey'e teekkr ederim. ok ok saolun!!!

  12. #12
    Yeni ye
    yelik tarihi
    Mar 2012
    Nereden
    Konya
    Versiyon
    Excel 2010 TR
    Mesajlar
    10
    Merhaba. Excel alma syfamdaki btn hcrelere metin verisi girerken, caps lock tuu ak olsun olmasn btn yazlan metinlerin komple byk hafle yazlmasn istiyorum. Bunun iin basit bir makro iimi grecek ama yapamadm. Makro konusunda yardmc olabilecek birine ihtiyacm var.

  13. #13
    Kdemli ye
    yelik tarihi
    Apr 2004
    Mesajlar
    682
    Alnt d_a_yavuz Nickli yeden Alnt Mesaj gster
    Merhaba. Excel alma syfamdaki btn hcrelere metin verisi girerken, caps lock tuu ak olsun olmasn btn yazlan metinlerin komple byk hafle yazlmasn istiyorum. Bunun iin basit bir makro iimi grecek ama yapamadm. Makro konusunda yardmc olabilecek birine ihtiyacm var.
    Bu alma kitab modlnde

    Kod:
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Target.Value = UCase(Replace(Replace(Target.Value, "i", ""), "", "I"))
    
    End Sub

  14. #14
    Yeni ye
    yelik tarihi
    Mar 2012
    Nereden
    Konya
    Versiyon
    Excel 2010 TR
    Mesajlar
    10
    Orion1 hocam verdiin cevap iin teekkrler ama olmad. Kod mu almyor yoksa ben mi yapamadm anlamadm? Halen kk harfe devam ediyor excel

  15. #15
    Kdemli ye
    yelik tarihi
    Apr 2004
    Mesajlar
    682
    Alnt d_a_yavuz Nickli yeden Alnt Mesaj gster
    Orion1 hocam verdiin cevap iin teekkrler ama olmad. Kod mu almyor yoksa ben mi yapamadm anlamadm? Halen kk harfe devam ediyor excel
    alttaki linkteki dosyay inceleyiniz.

    DOSYAYI NDR

  16. #16
    Yeni ye
    yelik tarihi
    Feb 2017
    Mesajlar
    14
    Kod:
    SUB BUYUKHARF()
    Sheets("sayfa1").Select
    
    
        With Range("A1", Cells(Rows.Count, "A").End(xlUp))
            .Value = Evaluate("INDEX(UPPER(" & .Address(External:=True) & "),)")
        End With
    END SUB
    Hocam ben bunu kullaniyorum. tr karakter sorunu yok. tavsiye ederim. tabi bunu istedigin sutunlara gore hazirlaman lazim
    ve is yapsin istedigin zaman calistirman gerek
    ya da change olayina , auto close vs otomatik calisan bir yere falan eklemen gerek . ya da manuel calistiracaksin . hucreleri doldurduktan soran.
    Konu hoguz2 tarafndan (23.04.2017 Saat 21:53 ) deitirilmitir.

  17. #17
    Yeni ye
    yelik tarihi
    Mar 2012
    Nereden
    Konya
    Versiyon
    Excel 2010 TR
    Mesajlar
    10
    Alnt Orion1 Nickli yeden Alnt Mesaj gster
    alttaki linkteki dosyay inceleyiniz.

    DOSYAYI NDR
    Hocam ok teekkrler. Ama ne hikmetse benim excel kitaplarnda sizin kod almyor. Bende sizin yklediiniz dosyay indirdim sizin alma kitabnza kendi alma kitabmdaki sayfalar tayp problemi o ekilde zdm. Sizin alma kitabnda sorunsuz kullanyorum.

  18. #18
    Yeni ye
    yelik tarihi
    Mar 2012
    Nereden
    Konya
    Versiyon
    Excel 2010 TR
    Mesajlar
    10
    Alnt hoguz2 Nickli yeden Alnt Mesaj gster
    Kod:
    SUB BUYUKHARF()
    Sheets("sayfa1").Select
    
    
        With Range("A1", Cells(Rows.Count, "A").End(xlUp))
            .Value = Evaluate("INDEX(UPPER(" & .Address(External:=True) & "),)")
        End With
    END SUB
    Hocam ben bunu kullaniyorum. tr karakter sorunu yok. tavsiye ederim. tabi bunu istedigin sutunlara gore hazirlaman lazim
    ve is yapsin istedigin zaman calistirman gerek
    ya da change olayina , auto close vs otomatik calisan bir yere falan eklemen gerek . ya da manuel calistiracaksin . hucreleri doldurduktan soran.
    Hocam teekkrler. Buda iimi grr.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •