Aynı hücredeki metinleri ayrı satırlara yazdırma (metini sütünlara dönüştürme ile yapamadım

[Turlas2020]

Merhaba Arkadaşlar
Gruba yeni katıldım. Otomotivde yedek parça sektöründe çalışıyorum.
Bazı ürünlerin OEM diye tabir ettiğimiz numaraları oluyor. Aynı ürünü tanımlayan 3,4 bazen 5 farklı numara olabiliyor.
Bunlar aynı sütünda yazılıyor bunların her birini ayrı sütünlara almak istiyorum.
Kolay bir yolu varmıdır?
Şimdiden teşekkürler.

 

[Ömer]

Merhaba,
Aramıza hoş geldiniz.
Örnek bir çalışma ekleyip yapmak istediğinizi detaylı açıklar mısınız.

https://dosya.co


.

 

[Turlas2020]

Merhaba,
Aramıza hoş geldiniz.
Örnek bir çalışma ekleyip yapmak istediğinizi detaylı açıklar mısınız.

https://dosya.co


.

Teşekkür ederim Hoş bulduk
Örnek dosyayı yükledim
https://dosya.co/hyuktunfs3bu/örnek_1.xlsx.html
Ekli dosyada OEM no yazan sütünda bazen 1 hücre içine 3-4 farklı numara yazılmış. Bunları ayrı sütünlara aktarmak istiyorum
Tek numara tek sütünda gözükecek şekilde.
Mesela; B6 hücresinde 4 farklı numara vara aralarında boşluk var sanırım. En üstteki 2ci no C6ya 3.no altındaki D6ya 4.cü no E6ya
o şekilde taşımanın kısa bir yolu varmıdır?
Şimideden teşekkür ederim.

 

[YUSUF44]

Metni sütunlara dönüştür menüsünde ayraç yerinde Alt+010 şeklinde dener misiniz?

 

[Turlas2020]

Metni sütunlara dönüştür menüsünde ayraç yerinde Alt+010 şeklinde dener misiniz?

Özür dilerim cevabınızı tam olarak uygulayamadım?
Alt+F10 mu demek istediniz?
Daha detayları yazarmısınız lütfen?

 

[YUSUF44]

B sütununu seçin
Veri menüsünden Metni Sütunlara Dönüştür'ü seçin
İlk ekranda Sınırlandırılmış'ı seçip ileri deyin
İkinci ekranda Diğer'i işaretleyip yanındaki boşlukta Alt tuşu basılıyken 010 yazın ve ileri deyin
Son tuşuna basarak işlemi tamamlayın

 

[Turlas2020]

B sütununu seçin
Veri menüsünden Metni Sütunlara Dönüştür'ü seçin
İlk ekranda Sınırlandırılmış'ı seçip ileri deyin
İkinci ekranda Diğer'i işaretleyip yanındaki boşlukta Alt tuşu basılıyken 010 yazın ve ileri deyin
Son tuşuna basarak işlemi tamamlayın

Teşekkür ederim. Söylediğinizi bu sefer uygulayabildim.
İşlemi uyguladığımda ilk sütünda tek numara kalıyor. Diğer numaralar yok oluyor.
Ya birşeyi yanlış yapıyorum ya da istenilen çözümü vermiyor.

 

[Ömer]

Merhaba,

İşlem hatası yapıyor olabilirsiniz.

Makro olarak dener misiniz.

Alt F11 ile VBA ekranına geçin, Insert menüsünden Module ekleyin.

Eklenen Module1 içine girerek aşağıdaki kodları bu bölümü yapıştırın ve aynı ekrandayken kodları F5 ile çalıştırıp sonucu gözlemleyin.

Sub cevir()
 
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:= _
        xlDelimited, TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="" & Chr(10) & ""
     
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
 
End Sub

 

[çıtır]

Formülle oluşturulmuş çözüm.
https://dosya.co/jgc6i59vtspb/sütunal.rar.html

 

[Turlas2020]

Merhaba,

İşlem hatası yapıyor olabilirsiniz.

Makro olarak dener misiniz.

Alt F11 ile VBA ekranına geçin, Insert menüsünden Module ekleyin.

Eklenen Module1 içine girerek aşağıdaki kodları bu bölümü yapıştırın ve aynı ekrandayken kodları F5 ile çalıştırıp sonucu gözlemleyin.

Sub cevir()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:= _
        xlDelimited, TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="" & Chr(10) & ""
    
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit

End Sub

çok teşekkürler bu sefer işe yaradı

 

[Turlas2020]

Formülle oluşturulmuş çözüm.
https://dosya.co/jgc6i59vtspb/sütunal.rar.html

çok teşekür ederim emeğinize sağlık.
2 çözümü de denedim makro ve formüllü olarak

 

[çıtır]

çok teşekür ederim emeğinize sağlık.
2 çözümü de denedim makro ve formüllü olarak

Rica ederim.Dönüş yaptığınız için teşekkür ederim. not: B sütununu gizleyebilirsiniz.