Excelde hücre içinde alt alta olan verileri sütünlar halinde yazma

[ramazankaya89]

Herkese merhaba,
ekteki dosyamda hücrelerin içinde alt alta yazılmış olan veriler mevcut bu verileri sütünlara nasıl alabilirim

yardımcı olabilirmisiniz

https://s2.dosya.tc/server26/2og6w8/dosya.xlsx.html

 

[ÖmerFaruk]

Copy / özel Yapıştır / Devrik Dönüşüm

Eğer boş satırları kopyalmasın istiyorsanız aynı pencerede Boş Olanları Atla demelisiniz.

Satır sayınız Excel sütun sayınızdan fazla ise excel sizi uyaracaktır.

 

[ramazankaya89]

Copy / özel Yapıştır / Devrik Dönüşüm

Eğer boş satırları kopyalmasın istiyorsanız aynı pencerede Boş Olanları Atla demelisiniz.

Satır sayınız Excel sütun sayınızdan fazla ise excel sizi uyaracaktır.

Hocam sadece ilk satırları alıyor ama bazı hücrelerde alt alta birden çok satır var onları almıyor

 

[ÖmerFaruk]

İlgili hücreyi çift tıkladığınızda onunda kopyalanmış olduğunu göreceksiniz

 

[Korhan Ayhan]

Alternatif;

Formülle çözümler linktedir.

Soru - Formülle Metni Sütunlara Dönüştürme

Merhaba, A1 hücresinde bulunan "ISD L 026 3" metninin boşluk sırasına göre sütunlara ayrılmasını istiyorum. Harf/rakam sayıları değişkenlik gösteriyor, sağdan/soldan al formülü ile yapmaya çalıştım ama ne yazık ki olmadı. Boşluklara göre ayrıştırılması gerekiyor ama yapamadım. A1 : ISD L 026 3...

www.excel.web.tr

 

[ramazankaya89]

hocalarım ne yaptıysam olmadı yapamadım yanlıs da yapmadım ama neden olmuyor anlamıs degılım

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub test()
    Dim Bak As Long
    Dim i As Variant
    Dim Bak2 As Integer

    For Bak = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If Cells(Bak, "A") <> "" Then
            i = Split(Cells(Bak, "A").Text, Chr(10))
            If UBound(i) > 1 Then
                If i(Bak2) <> "" Then
                    Cells(Bak, "A") = i(Bak2)
                End If
                 For Bak2 = UBound(i) To 1 Step -1
                    If i(Bak2) <> "" Then
                        Cells(Bak + 1, "A").Insert Shift:=xlDown
                        Cells(Bak + 1, "A") = i(Bak2)
                    End If
                Next
            End If
        End If
    Next
End Sub

 

[ramazankaya89]

Muzaffer Bey Merhaba,
bu kod çalıştırdı fakat alt alta açarak gitti bunu hücrenin yanındaki sütünlara yaza yaza gitmesini yapabilirmiyiz yapmak istediğim tam olarak bu hücrelerin içindeki degerler birden fazla ise alıp yan sütunlarına yaza yaza gitmesi

 

[alicimri]

Altenatif

Sub Makro2()
Columns(1).ColumnWidth = 20
Son = Cells(Rows.Count, 1).End(3).Row
For x = 2 To Son
bol = Split(Cells(x, 1), Chr(10))
say = UBound(bol)
For i = 0 To say
Cells(x, 1).Offset(0, i + 1).NumberFormat = "@"
Cells(x, 1).Offset(0, i + 1).Value = bol(i)
Next
Next
End Sub

 

[ramazankaya89]

ALLAH razı olsun sorun çözüldü herkese cok tesekkurler

 

[Necdet]

Merhaba,

• A sütununu seçin
• Veri
• Metni Sütunlara Dönüştür
• Sınırlandırılmış
• Ayırıcı/Diğer kısmına Ctrl+J
• Tamam

 

[ramazankaya89]

Merhaba,

• A sütununu seçin
• Veri
• Metni Sütunlara Dönüştür
• Sınırlandırılmış
• Ayırıcı/Diğer kısmına Ctrl+J
• Tamam

Sagolun Necdet Hocam cok tesekkurler

 

[alicimri]

[

• Ayırıcı/Diğer kısmına Ctrl+J

Örneğin, 25. satırdaki verileri kontrol edin
552202E010 gibi değerleri Bilimsel hücre biçimine çeviriyor.
Bunu önlemek için sihirbazın son aşamasında tüm sütunlarda metin i işaretlemek gerek.