Çözüldü Harf Arası Birer Boşluk Bırakma

[Gata]

A sütundaki Adı ve soyadlarının uzunluğu kadar C2 hücresinden başlayarak harfleri parçaal formülü ile dinamik olarak ayırdım.Daha sonra bu harfleri aralarında boşluk olmak şartıyla B1 hücresine birleştir formülünü kullanarak harfler arasında boşluk olacak şekilde yaptım fakat bu formül dinamik değil A sütundaki kelimenin uzunluğu kadar dinamik formül olmasını istiyorum yardımcı olurmu sunuz.Not Eski Versiyonlara Göre

 

[Necdet]

Merhaba,
Aşağıdaki Kullanıcı Tanımlı Fonksiyonu (KTF) yi kullanabilirsiniz.

Kullanımı :

=BOSLUKEKLE(A1)
gibi

Function BOSLUKEKLE(rng As Range)

Dim t As String

Dim i As Integer
For i = 1 To Len(rng)
    t = t & Mid(rng, i, 1) & " "
Next i

BOSLUKEKLE = Trim(t)

End Function

 

[Gata]

teşekkür ederim hocam selamlar

 

[Haluk]

RegExp ile alternatif;

Function AddSpace(myRange As Range) As String
'   Haluk - 16/11/2023
    Dim regExp As Object
    
    Set regExp = CreateObject("VBScript.RegExp")
    
    regExp.IgnoreCase = True
    regExp.Global = True

    regExp.Pattern = "(.)"
    
    AddSpace = regExp.Replace(myRange.Text, "$1 ")
    
    Set regExp = Nothing
End Function

.

 

[Korhan Ayhan]

Bazı denemeler yaptım. İncelersiniz.

 

[Gata]

Çok teşekkür ederim Korhan Bey hocam emeğinize sağlık selamlar Allah'a emanet olun iyi akşamlar

 

[Gata]

Korhan bey çözüldü diye nasıl işaretleme yapacagim

 

[Korhan Ayhan]

Linki inceleyiniz.

Konu Başlığına ÇÖZÜLDÜ Tagı Ekleme

Merhaba Değerli Arkadaşlar, Görseli takip ederek bu işlemi yapabilirsiniz. Bu işlemi yapabilmeniz için belirli bir süre var. Bu süre içinde bu işlemi yapma yetkiniz bulunmaktadır. @Hüseyin bey bu süreyi başlık altında belirtirseniz sevinirim.

www.excel.web.tr

 

[Gata]

Teşekkür ederim Korhan Bey Verdiğiniz bilgiler için selamlar Allah'a emanet olun

 

[Haluk]

@Gata;

4.mesajda bir alternatif önermiştim ama zahmet edip de bir yorum yapmadınız...... Özel bir sebei var mı?

.

 

[Gata]

Yok bir sebebi özür dilerim hocam çözümüzü gördüm ama yorum yapmayı unuttun hakkınızı helal edin Allah'a emanet olun selamlar