Yerinekoy fonksiyonu yinele bölimü

[ikikan]

YERİNEKOY(KIRP(F15);" ";DAMGA(10);5)

Arkadaşlar bu fonksiyonda yinele yerine değer verince alt alta dizmiyor,
yinele değer vermeyince alt alta diziyor.
Benim isteğim yineleye değer verince alt alta dizmesi mümkünmüdür?
Makro ve formül ilede olabilir !

 

[YUSUF44]

Verdiğiniz örnek formül şunu diyor:

F15'teki 5. boşluk karakterini 5. boşlukta damga (10) yani enter ile değiştirir. bu formülü yazdığımızda f15'teki veriniz 5. boşluktan itibaren 2 satır halini alacaktır. Ancak düzgün görünmesi için metin kaydırma şeklinde biçimlendirilmesi gerekir. Eğer her boşluğun değiştirilmesini istiyorsanız yineleme yazmamanız gerekir. Çünkü yineleme, formülü sadece bir defa çalıştırıyor.

 

[ikikan]

Verdiğiniz örnek formül şunu diyor:

F15'teki 5. boşluk karakterini 5. boşlukta damga (10) yani enter ile değiştirir. bu formülü yazdığımızda f15'teki veriniz 5. boşluktan itibaren 2 satır halini alacaktır. Ancak düzgün görünmesi için metin kaydırma şeklinde biçimlendirilmesi gerekir. Eğer her boşluğun değiştirilmesini istiyorsanız yineleme yazmamanız gerekir. Çünkü yineleme, formülü sadece bir defa çalıştırıyor.

Sorunumda o Yusuf44 bey formül veya makro ile yapılabilirmi ?

 

[Ömer]

Merhaba,

Sorunuzu örnek bir dosya ile destekleyip açıklarmısınız.

 

[ikikan]

Merhaba,

Sorunuzu örnek bir dosya ile destekleyip açıklarmısınız.

Ömer Bey örnek dosya ektedir.

 

[Ömer]

Dosyanızı tam anlayamadım, alt alta olsun istemişsiniz.

F27 hücresindeki formül ile alt alta yazmışsınız. Aynı formülü kullanabilirsiniz.

Alt altadan kastınız her değerin farklı hücrede olması mı?

 

[ikikan]

Dosyanızı tam anlayamadım, alt alta olsun istemişsiniz.

F27 hücresindeki formül ile alt alta yazmışsınız. Aynı formülü kullanabilirsiniz.

Alt altadan kastınız her değerin farklı hücrede olması mı?

Ömer Bey şöyle anlatayım her 10. boşluktan sonra ALT+ENTER yapmasını istiyorum fakat yinele bölümüne değer girince bir kere tekrarlıyor ben bunu tüm metne uygulamasını istiyorum .

Tek hücrede ve tüm metine

 

[Ömer]

Ktf hazırladım. Kodları modüle kopyalayın.

Daha sonra sayfa üzerinde kullanımı:

=SatAc(F16)

Gibidir.

Function SatAc(Deger As Range)
 
    Dim d() As String, i As Integer, a As String, b As String
    
    d = Split(Deger, " ")
    For i = 0 To UBound(d)
        a = " "
        If i <> 0 And i Mod 10 = 0 Then a = Chr(10)
        b = b & d(i) & a
    Next i
        
    SatAc = b
    
End Function

 

[ikikan]

Ktf hazırladım. Kodları modüle kopyalayın.

Daha sonra sayfa üzerinde kullanımı:

=SatAc(F16)

Gibidir.

Function SatAc(Deger As Range)
 
    Dim d() As String, i As Integer, a As String, b As String
    
    d = Split(Deger, " ")
    For i = 0 To UBound(d)
        a = " "
        If i <> 0 And i Mod 10 = 0 Then a = Chr(10)
        b = b & d(i) & a
    Next i
        
    SatAc = b
    
End Function

Teşekürler Ömer Bey ilginize emeğinize saglık.