Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 01-01-2018, 20:59   #1
ecem1989
Altın Üye
 
Giriş: 01/01/2018
Şehir: Manisa
Mesaj: 42
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan Büyük harfe çevirme

Arkadaşlar selam.
Çalışma sayfasındaki E2:I1000 hücreleri arasına veri girip enter tuşuna bastığımda verileni BÜYÜK HARFE dönüşmesini nasıl sağlayabilirim?
Şimdiden teşekkürler.
ecem1989 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 01-01-2018, 21:22   #2
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,483
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Alt taraftan uygulama istediğiniz sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırın.

NOT: Belgenizi kapatırken MAKRO İÇERİR olacak şekilde kaydetmeyi unutmayın.

İLAVE AÇIKLAMA: Aşağıdaki kod'da Sayın ASLAN'ın sorusu ile Sayın antonio ve YUSUF Bey'in farkettiği -- iı / İI -- durumu için düzeltme yapıldı.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:E10000, G2:G10000, L2:L10000]) Is Nothing Then Exit Sub
If Target <> UCase(Replace(Replace(Target, "i", "İ"), "ı", "I")) Then _
Target = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 21:22   #3
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,508
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp Kod Görüntüle deyince açılan sayfaya) yapıştırıp deneyin:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:I1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
Application.EnableEvents = False
Target = UCase(WorksheetFunction.Substitute(WorksheetFunction.Substitute(Target, "i", "İ"), "ı", "I"))
Application.EnableEvents = True
End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 21:26   #4
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,544
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alternatif;

Türkçe karakter desteği bakımından @Ömer Baran ın kodlarına ekleme, @yusuf44 den de alıntı yapıldı.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:I1000]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target <> buyukharf(Target) Then Target = buyukharf(Target)
End Sub

Public Function buyukharf(cumle)
gecici = ""
For i11 = 1 To Len(cumle)
          h = Mid(cumle, i11, 1)
          Select Case h
            Case "ğ": gecici = gecici + "Ğ"
            Case "ü": gecici = gecici + "Ü"
            Case "ş": gecici = gecici + "Ş"
            Case "ç": gecici = gecici + "Ç"
            Case "ö": gecici = gecici + "Ö"
            Case "ı": gecici = gecici + "I"
            Case "i": gecici = gecici + "İ"
            Case Else: gecici = gecici + UCase(h)
            End Select
Next i11
buyukharf = gecici
End Function
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 21:32   #5
ecem1989
Altın Üye
 
Giriş: 01/01/2018
Şehir: Manisa
Mesaj: 42
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Çok teşekkür ederim.
ecem1989 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 01-01-2018, 21:41   #6
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,668
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Ömer Bey, böyle bir koda benim de ihtiyacım var.
Sizin kodlarınız daha sade geldi, kodları aşağıdaki gibi yaptığımda çalışmıyor.

Yardımcı olur musunuz?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:E10000], [G2:G10000], [L2:L10000]) Is Nothing Then Exit Sub
If Target <> UCase(Target) Then Target = UCase(Target)
End Sub
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 21:53   #7
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,283
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Eskilerden bir mesaj için aşağıdaki linke bakabilirsiniz;

http://www.excel.web.tr/f133/hucrele...ary-t7611.html

.
__________________
Kod anlatılmaz,yazılır ! 🇹🇷
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 21:59   #8
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,107
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alternatif bile değil ama çeşit olsun )
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim deg As String, b_harf As String
If Not Intersect(Target, [E2:I1000]) Is Nothing Then
    Application.EnableEvents = False
        deg = Target.Value
        b_harf = UCase(Replace(Replace(deg, "i", "İ"), "ı", "I"))
    Application.EnableEvents = True
    Target.Value = b_harf
End If
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-01-2018, 22:07   #9
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Alternatif bile değil ama çeşit olsun )
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim deg As String, b_harf As String
If Not Intersect(Target, [E2:I1000]) Is Nothing Then
    Application.EnableEvents = False
        deg = Target.Value
        b_harf = UCase(Replace(Replace(deg, "i", "İ"), "ı", "I"))
    Application.EnableEvents = True
    Target.Value = b_harf
End If
End Sub
Son noktayı koymuşsun.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 01-01-2018, 22:13   #10
ecem1989
Altın Üye
 
Giriş: 01/01/2018
Şehir: Manisa
Mesaj: 42
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Hepinizin ilgi ve emeğine teşekkür ederim arkadaşlar.
ecem1989 Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 12:57


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden