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

[bzace]

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,

 

[Necdet]

Merhaba,

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

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

 

[bzace]

Necdet bey,
Kod için teşekkürler. Bu işlemi yerleşik işlerler ile yapmak için kafa yoruyordum.

 

[Korhan Ayhan]

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.

 

[Necdet]

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.

 

[bzace]

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.

 

[Erdem Akdemir]

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.

 

[ÖmerBey]

Yardımcı sütunlar kullanılarak oluşturulan örnek ektedir.
Dizi formüllerle geliştirilebilir.

 

[bzace]

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)

 

[Erdem Akdemir]

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.

 

[bzace]

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.

=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]

=YERİNEKOY(YERİNEKOY(YERİNEKOY(A1;B1;" "&B1);C1;" "&C1);D1;" "&D1)

Uitser Madina

 

[bzace]

Verilen formül aşağıdaki şekillerde çalışacaktır.
Geliştirmek bize kaldı.
JaneJillyJankat
İstanbulKayseriEskişehir
... gibi

=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]