Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-05-2015, 22:58   #1
bzace
 
bzace kullanıcısının avatarı
 
Giriş: 23/09/2013
Şehir: İstanbul
Mesaj: 1,334
Excel Vers. ve Dili:
Excel 2007 İngilizce - Excel 2010 Türkçe - Excel 2013 Türkçe -
Varsayılan Büyük harfler öncesi boşluk bırakmak

Merhabalar,
Hastanede can sıkıntısından farklı olaylar deniyorum. Bunlardan bir tanesi de yazılan veri içersin de büyük harfler öncesi boşluk ( " " ) karakterini eklemek istiyorum.
Örnek;
JaneJillyJankat
KAŞEN
Bu verilerin olması gereken sonucumuz,
Jane Jilly Jankat
K A Ş E N
Mobilden yazdığımdan verileri kısa tuttum fakat tüm olasılıklar göz önüne alınması gerekir.
Verilerimiz içerisinde büyük harf olmayabilir vs.
Saygılar,
__________________
BEDAVA PEYNİR sadece FARE KAPANINDA var!
bzace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-05-2015, 23:57   #2
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,903
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Kodları inceleyiniz. A sütunundan okur B sütununa yazar.
Gerekirse doğrudan A sütununa da yazdırabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub BuyukHarfBoslukEkle()

    Dim i   As Long, _
        x   As String, _
        j   As Integer
        
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
    
        x = ""
        
        For j = 1 To Len(Cells(i, "A"))
             If (Asc(Mid(Cells(i, "A"), j, 1)) > 64 And Asc(Mid(Cells(i, "A"), j, 1)) < 91) Or _
                 Asc(Mid(Cells(i, "A"), j, 1)) = 199 Or _
                 Asc(Mid(Cells(i, "A"), j, 1)) = 208 Or _
                 Asc(Mid(Cells(i, "A"), j, 1)) = 214 Or _
                 (Asc(Mid(Cells(i, "A"), j, 1)) > 219 And Asc(Mid(Cells(i, "A"), j, 1)) < 223) Then x = x & " "
            x = x & Mid(Cells(i, "A"), j, 1)
        Next j
        
        Cells(i, "B") = Trim(x)
        
    Next i
    
End Sub
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-05-2015, 21:30   #3
bzace
 
bzace kullanıcısının avatarı
 
Giriş: 23/09/2013
Şehir: İstanbul
Mesaj: 1,334
Excel Vers. ve Dili:
Excel 2007 İngilizce - Excel 2010 Türkçe - Excel 2013 Türkçe -
Varsayılan

Necdet bey,
Kod için teşekkürler. Bu işlemi yerleşik işlerler ile yapmak için kafa yoruyordum.
__________________
BEDAVA PEYNİR sadece FARE KAPANINDA var!
bzace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-05-2015, 01:42   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,633
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Tek bir formülle olabileceğini zannetmiyorum. Yardımcı sütunlar kullanılarak PARÇAAL-ÖZDEŞ-BÜYÜKHARF fonksiyonları kullanılarak çözüm üretilebilir.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-05-2015, 09:01   #5
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 11,903
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Kodları KTF (Kullanıcı Tanımlı Fonksiyon) haline getirmek olası. O zaman Tüm dosyalarda normal fonksiyon gibi kullanabilirsiniz.

KTF için forumda arama yapabilirsiniz.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-05-2015, 19:23   #6
bzace
 
bzace kullanıcısının avatarı
 
Giriş: 23/09/2013
Şehir: İstanbul
Mesaj: 1,334
Excel Vers. ve Dili:
Excel 2007 İngilizce - Excel 2010 Türkçe - Excel 2013 Türkçe -
Varsayılan

Merhabalar,
Arkadaşımın Formüller konusunda Uzmanlaşmış bir Ablamıza danışması sonucu bu işlemin formüller ile yapılabileceği söylemiştir. (belli bir yere kadar)

Çok uzun metinlerde uygulanacak formülün sürekli aynı döngüyü tekrar ettirmek gerektiğini söylemiştir.
__________________
BEDAVA PEYNİR sadece FARE KAPANINDA var!
bzace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-05-2015, 19:48   #7
kuvari
Destek Ekibi
 
kuvari kullanıcısının avatarı
 
Giriş: 04/05/2007
Şehir: İstanbul
Mesaj: 2,633
Excel Vers. ve Dili:
OFİS 2013 TÜRKÇE-İNG. 64 BİT
Varsayılan

Alıntı:
bzace tarafından gönderildi Mesajı Görüntüle
Merhabalar,
Arkadaşımın Formüller konusunda Uzmanlaşmış bir Ablamıza danışması sonucu bu işlemin formüller ile yapılabileceği söylemiştir. (belli bir yere kadar)

Çok uzun metinlerde uygulanacak formülün sürekli aynı döngüyü tekrar ettirmek gerektiğini söylemiştir.
Ufak bir örnek gönderseymiş, bizde faydalanırdık.
__________________
Bilgi kadar zenginlik, cehalet kadar yoksulluk yoktur.
(Hz. Ali)
kuvari Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-05-2015, 20:16   #8
mucit77
Destek Ekibi
 
mucit77 kullanıcısının avatarı
 
Giriş: 22/10/2012
Mesaj: 1,972
Excel Vers. ve Dili:
2007 Türkçe
Varsayılan

Yardımcı sütunlar kullanılarak oluşturulan örnek ektedir.
Dizi formüllerle geliştirilebilir.
Eklenmiş Dosyalar
Dosya Türü: rar BüyükHarföncesiBoşluk.rar (7.4 KB, 8 Görüntülenme)
__________________
Alıntı:
evi Nepal'de kalmış
Slovakyalı salyangozdur ruhum
mucit77 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-05-2015, 20:49   #9
bzace
 
bzace kullanıcısının avatarı
 
Giriş: 23/09/2013
Şehir: İstanbul
Mesaj: 1,334
Excel Vers. ve Dili:
Excel 2007 İngilizce - Excel 2010 Türkçe - Excel 2013 Türkçe -
Varsayılan

Alıntı:
kuvari tarafından gönderildi Mesajı Görüntüle
Ufak bir örnek gönderseymiş, bizde faydalanırdık.
Yaşımızın daha genç olduğunu ve bu işlemi yapabilceğimizi söylemiştir.
Kendisi biraz uğraşmamızı istiyormuş.(kendimiz için)
__________________
BEDAVA PEYNİR sadece FARE KAPANINDA var!
bzace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-05-2015, 22:57   #10
kuvari
Destek Ekibi
 
kuvari kullanıcısının avatarı
 
Giriş: 04/05/2007
Şehir: İstanbul
Mesaj: 2,633
Excel Vers. ve Dili:
OFİS 2013 TÜRKÇE-İNG. 64 BİT
Varsayılan

Alıntı:
bzace tarafından gönderildi Mesajı Görüntüle
Yaşımızın daha genç olduğunu ve bu işlemi yapabilceğimizi söylemiştir.
Kendisi biraz uğraşmamızı istiyormuş.(kendimiz için)
Sayın bzace ben artık 34 yaşındayım genç sayılmam,bana gönderebilir.Bu dediğinizin yerleşik formüllerle olmasına ihtimal vermiyorum.
__________________
Bilgi kadar zenginlik, cehalet kadar yoksulluk yoktur.
(Hz. Ali)
kuvari Çevrimdışı   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 06:21


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden