Birden çok sutüna yazılmış değerleri aynı hücrede alt alta birleştirmek

[ensar1453]

Merhabalar bir yardıma ihtiyacım vardı. örneğin elimde bazı kodlar var farklı hücrelere girilmiş olarak. bunları teker teker kopyalayıp bir hücre içinde Alt+Enter yaparak alt alta yazabiliyorum ama 100 tane kodu aynı hücreye böyle teker teker yazmak çok zor bunun bir kısayolu varsa yardımcı olurmusunuz ?

 

[kulomer46]

Kendi çapımda hazırladığım dosyanız Ek 'tedir.

Selamlar..

 

[ensar1453]

Yardımınız ve notunuz için çok teşekkür ederim RABBİM sizi her zaman sizin gibi güzel insanlar ile karşılaştırsın =))

 

[ensar1453]

Kendi çapımda hazırladığım dosyanız Ek 'tedir.

Selamlar..

Yardımınız ve notunuz için çok teşekkür ederim RABBİM sizi her zaman sizin gibi güzel insanlar ile karşılaştırsın =))

 

[Erdem Akdemir]

Merhaba,

KTF ile alternatif,
Formülün yazılı olduğu hücrede metni kaydır yaparsanız sonucu görebilirsiniz.
Kopyala değerleri yapıştır ile'de metni kaydır olmadan sonuçları alabilirsiniz.

=birles(A1:A50;DAMGA(10))

Function birles(hucre As Range, Optional imlec As String = "") As String

For Each alan In hucre

If alan = "" Then
Else
k = k & alan & imlec
End If
Next alan

If imlec = "" Then
birles = k
Else
birles = VBA.Left(k, VBA.Len(k) - 1)
End If
End Function

 

[kulomer46]

Yardımınız ve notunuz için çok teşekkür ederim RABBİM sizi her zaman sizin gibi güzel insanlar ile karşılaştırsın =))

Selamlar... Teşekkürler....

 

[Korhan Ayhan]

Alternatif KTF;

Option Explicit

Function KBİRLEŞTİR(Alan As Range, Optional Ayıraç As String = vbNewLine)
    Dim Veri As Range, Liste As Variant, Say As Long
    
    Application.Volatile True
    
    ReDim Liste(1 To 1)
    
    For Each Veri In Alan
        If Veri.Value <> "" Then
            Say = Say + 1
            ReDim Preserve Liste(1 To Say)
            Liste(Say) = Veri.Value
        End If
    Next
    
    KBİRLEŞTİR = Join(Liste, Ayıraç)
End Function

 

[cigili]

Peki aynı hücrelere alt alta çok fazla sayıda yazılan (''alt+enter'' ile ) değerleri veya kelimeleri alt alta farklı satır hücrelerine nasıl dönüştürebilirim?

 

[Korhan Ayhan]

İnceleyiniz.

Alt+Enter ile alt alta aynı hücrede yazılan yazıları sutun seklınde ayırma sorusu

Merhabalar, A1 hücresinde yazan alt enter ile ayrılmış kelimeleri B1,C1,D1 hücrelerine yazdırmak için nasıl bir fomul uygulamalıyım

www.excel.web.tr

Aynı Hücrede Alt Alta Yazılı Verileri Ayırmak

Merhaba Arkadaşlar, aynı hücrenin içinde farklı satır gibi (alt alta) yazılı olan veriler var. bunları METNİ SÜTUNLARA DÖNÜŞTÜR veya farklı satırlara, farklı hücrelerde ayırabilmek mümkün mü ? Örneğin E1 hücresinde : FATURA NO FATURA TARİHİ yazılı olsun. FATURA NO yu F1 hücresine, FATURA...

www.excel.web.tr

 

[cigili]

Korhan Bey,
Öncelkle hızlı dönüşününz için teşekkürler. Daha önce sitedki gönderdiğiniz çalışmaları incelemişitim fakat genelde başlık gibi az sayıda aynı hücredeki değer veya metinleri sütünlara bölme işlemi. Benim aradığım ise tek hücrede alt alta satır halinde yazılmış değer veya kelimeleri yine satır halinde yazabilmek. Üzerinde çalıştığım excell dosyasını bu linkden inceleyebilirsiniz.
https://s5.dosya.tc/server6/64ekuj/JC_trim_IV_2021.xlsx.html

 

[Haluk]

"Libre Office - RegEx" ile alternatif, ancak E sütunundaki verileriniz sanki eksik veya problemli....... 10 adet veri var gibi görünüyor.




.

 

[necati]

Merhaba,
İşlemde Damga(10) olduğu için şu şekilde yapılabilir:
Bitişik veriniz "A2" hücresinde ise
"B1" den sağa doğru yeteri kadar sıra numarası yazın
"B2" ye şu formülü yazıp sağa doğru kopyalayın

=KIRP(PARÇAAL(YERİNEKOY($A2;DAMGA(10);YİNELE(" ";UZUNLUK($A2))); (B$1-1)*UZUNLUK($A2)+1; UZUNLUK($A2)))

A​

B​

C​

D​

E​

	1​	2​	3​	4​
ali veli selami	ali	veli	selami

 

[Korhan Ayhan]

Merhaba,

Haluk beyin paylaşımına benzer bir kullanıcı tanımlı fonksiyon (KTF) hazırladım.

Option Explicit

Function TEXT_TO_ROW(My_Range As Range, What_Value As Integer, Optional Splitter As Variant = vbLf)
    Dim My_Text As Variant
    
    Application.Volatile True
    
    My_Text = VBA.Split(My_Range.Value, Splitter)
    
    TEXT_TO_ROW = My_Text(What_Value - 1)
End Function

Hücrede görselde ki kullanabilirsiniz.