• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Büyük harfler öncesi boşluk bırakmak

  • Konbuyu başlatan Konbuyu başlatan bzace
  • Başlangıç tarihi Başlangıç tarihi
Katılım
23 Eylül 2013
Mesajlar
1,348
Excel Vers. ve Dili
Excel 2007 İngilizce -
Excel 2010 Türkçe -
Excel 2013 Türkçe -
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,
 
Merhaba,

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

Kod:
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
 
Necdet bey,
Kod için teşekkürler. Bu işlemi yerleşik işlerler ile yapmak için kafa yoruyordum.
 
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.
 
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.
 
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.
 
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.
 
Yardımcı sütunlar kullanılarak oluşturulan örnek ektedir.
Dizi formüllerle geliştirilebilir.
 

Ekli dosyalar

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)
 
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.
 
Sayın mucit77'nin önerisine alternatif;
Yardımcı sütun kullanarak şartıyla geçerlidir.
  • Verimiz A1 hücresine,
  • Birinci formülü B1,C1,D1 hücrelerine,(B1'e yazılıp, D1'e sürüklenecek)
  • İkinci formülü E1 hücresine,
girerek deneyiniz.
Kod:
=EĞERHATA(İNDİS(DAMGA(SATIR(65:90));
   KÜÇÜK(EĞER(ESAYIYSA(BUL(DAMGA(SATIR(65:90));
      $A1))*SATIR(1:26)<>0;ESAYIYSA(BUL(DAMGA(
   SATIR(65:90));$A1))*SATIR(1:26));
SÜTUN(B1)));"")
[COLOR="Blue"]Formül dizi formülüdür. CTRL + SHIFT + ENTER ile tamamlayınız.[/COLOR]
Kod:
=YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;B1;" "&B1);C1;" "&C1);D1;" "&D1)

Uitser Madina
 
Verilen formül aşağıdaki şekillerde çalışacaktır.
Geliştirmek bize kaldı.
JaneJillyJankat
İstanbulKayseriEskişehir
... gibi
Kod:
=DEĞİŞTİR(DEĞİŞTİR(A1;
  MAK(EĞERHATA(BUL(DAMGA(SATIR(65:90));
    PARÇAAL(A1;1;38))+1;""));;" ");
  MİN(EĞERHATA(BUL(DAMGA(SATIR(65:90));
PARÇAAL(A1;1;38))+1;""));;" ")
[COLOR="Blue"]Formül dizi formülüdür. CTRL + SHIFT + ENTER ile tamamlayınız.[/COLOR]
 
Geri
Üst